Envoyé mails individualisés : erreur boucle : élément a été déplacé ou supprimé !

[carlos]

Bonjour
voici la macro qui produit une erreur :
Sub testoutlook()
'test envoie message via outlook

Dim ofolder As Outlook.MAPIFolder
Dim oitem As Outlook.MailItem
Dim ooutlook As New Outlook.Application
Dim mooutlook As Outlook.Namespace
Dim i As Byte
Set mooutlook = ooutlook.GetNamespace("MAPI")
Set ofolder = mooutlook.GetDefaultFolder(olFolderOutbox)
Set oitem = ofolder.Items.Add(olMailItem)
With oitem
For i = 1 To 2
.Recipients.Add (Range("a" & i).Value) '< ------------------------------------------ Erreur sur boucle
.Subject = Range("b" & i).Value
.Body = Range("c" & i).Value
.Send
'myItem.Display
Next i
End With
End Sub

Voir PJ

MERCI

carlos

 

[Staple1600]

Re : Envoyé mails individualisés : erreur boucle : élément a été déplacé ou supprimé

Bonjour


Et comme cela

Sub testoutlook()
'test envoie message via outlook

Dim ofolder As Outlook.MAPIFolder
Dim oitem As Outlook.MailItem
Dim ooutlook As New Outlook.Application
Dim mooutlook As Outlook.Namespace
Dim i As Byte
Set mooutlook = ooutlook.GetNamespace("MAPI")
Set ofolder = mooutlook.GetDefaultFolder(olFolderOutbox)
Set oitem = ofolder.Items.Add(olMailItem)
With oitem
For i = 1 To 2
    .Recipients.Add Range("a" & i).Text
    .Subject = Range("b" & i).Text
    .Body = Range("c" & i).Text
    .Send
    'myItem.Display
Next i
End With
End Sub

 

[carlos]

Re : Envoyé mails individualisés : erreur boucle : élément a été déplacé ou supprimé

Bonjour Staple1600

Je suis désolé mais j'ai toujours le meme message d'erreur et au meme endroit :

.Recipients.Add Range("a" & i).Text

Carlos

 

[carlos]

Re : Envoyé mails individualisés : erreur boucle : élément a été déplacé ou supprimé

Bonjour le forum

Je pense qu'il faudrait vider le :.Recipients.Add car cette macro fonctionne pour i = 1 mais pas pour i = 2.
Je ne sais pas le vider .
Si quelqu'un peut m'aider?

Merci

Carlos