Bonjour,
je suis en train de travailler sur une macro permettant l'envoi d'email personnalisé à une liste de destinataires (en cellule A2 à A143), le texte de chaque mail étant en colonne B; la macro tourne bien mais je bloque sur la création de la boucle du texte "personnalisé" .body qui prend toujours le contenu de la cellule B2 au lieu de passer de ligne en ligne.
Pourriez vous me donner un avis?
Cordialement
Benoit
Sub SendEmail()
Dim olApp As Outlook.Application
Set olApp = CreateObject("outlook.application")
Dim olMail As Outlook.MailItem
For Each Cel In Range("A2:A143")
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = Cel.Value
.Subject = Range("C2")
.Body = Range("B2").Value & vbCrLf_
.Send
End With
Next Cel
End Sub
je suis en train de travailler sur une macro permettant l'envoi d'email personnalisé à une liste de destinataires (en cellule A2 à A143), le texte de chaque mail étant en colonne B; la macro tourne bien mais je bloque sur la création de la boucle du texte "personnalisé" .body qui prend toujours le contenu de la cellule B2 au lieu de passer de ligne en ligne.
Pourriez vous me donner un avis?
Cordialement
Benoit
Sub SendEmail()
Dim olApp As Outlook.Application
Set olApp = CreateObject("outlook.application")
Dim olMail As Outlook.MailItem
For Each Cel In Range("A2:A143")
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = Cel.Value
.Subject = Range("C2")
.Body = Range("B2").Value & vbCrLf_
.Send
End With
Next Cel
End Sub