Astuces Excel
  1. Astuces Excel
  3. Erreur VBA de plusieurs destinataires par courrier électronique
Intereting Posts
Comparer la colonne sur différentes feuilles Comment puis-je utiliser une instruction if pour utiliser deux valeurs de time dans une string pour changer les colors des cellules? Est-il possible de mettre à jour datatables du server SQL à l'aide de la requête Excel Power? Table MS Word avec calcul automatique Comment vérifier une bibliothèque d'utilitaires Python tiers pour les logiciels malveillants? Macro d'arrêt de la protection Excel Utilisation d'une boucle dans Excel / VBS pour remplir un formulaire Ecrivez au file .csv avec PHP (Commas in Data Error) Comment se split en utilisant le dernier caractère de barre oblique inverse en tant que délimiteur dans Excel 2013? Le programme VBA Excel fonctionne uniquement avec le point d'arrêt VBA avec fonction Vlookup Apporter une window Excel à l'avant plan depuis Access Ajout de valeurs dans des colonnes avec des conditions Aidez-moi à optimiser le code VBA Excel pour copyr certaines colonnes de chaque ligne sur une feuille vers une autre Comment tester une feuille d'activité

Erreur VBA de plusieurs destinataires par courrier électronique

Vous searchz de l'aide pour envoyer des courriels à une list de personnes. Mon code comporte une boucle simple et saisit la valeur à chaque fois où envoyer le courrier électronique. Pendant le test, le premier courriel sera toujours envoyé. Après cela, la 2ème fois, j'ai une erreur sur ".To"

Run-time error - '-2147221238 (8004010a): l'élément a été déplacé ou supprimé.

Cela m'intéresse parce que le code saisit exactement la prochaine valeur de courrier électronique?

Les e-mails doivent être envoyés un par un, au lieu d'append les destinataires à une list de bcc. Est-ce possible avec VBA? Merci d'avance! 

 Sub TestingAgain() 'Setting up the Excel variables. Dim outApp As Object Dim outMailItem As Object Dim iCounter As Integer Dim sDest As Ssortingng Dim sName As Ssortingng 'Create the Outlook application and the empty email. Set outApp = CreateObject("Outlook.Application") Set outMailItem = outApp.CreateItem(0) With outMailItem sDest = "" For i = 2 To WorksheetFunction.CountA(Columns(1)) If i <> "" Then 'Grab first name and email sDest = Cells(i, 5).Value sName = Cells(i, 1).Value 'Send each email .To = sDest .Subject = "FYI" .htmlbody = "Some stuff" .Send Else MsgBox ("Error") End If Next i End With 'Clean up the Outlook application. Set outMailItem = Nothing Set outApp = Nothing End Sub

Lorsque vous envoyez l'e-mail, l'instance mailItem est terminée et n'est plus disponible. Refactez votre code comme: 

 Sub TestingAgain() 'Setting up the Excel variables. Dim outApp As Object Dim outMailItem As Object Dim iCounter As Integer Dim sDest As Ssortingng Dim sName As Ssortingng 'Create the Outlook application and the empty email. Set outApp = CreateObject("Outlook.Application") sDest = "" For i = 2 To WorksheetFunction.CountA(Columns(1)) If i <> "" Then '/ Create the mail item instance. Set outMailItem = outApp.CreateItem(0) With outMailItem 'Grab first name and email sDest = Cells(i, 5).Value sName = Cells(i, 1).Value 'Send each email .To = sDest .Subject = "FYI" .htmlbody = "Some stuff" .send '/ Once sent, mail item is no more available. End With Else MsgBox ("Error") End If Next 'Clean up the Outlook application. Set outMailItem = Nothing Set outApp = Nothing End Sub