Microsoft 365 Envoi de mail personalisé via Outlook problème de boucle

[Ben78]

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

 

[Staple1600]

Re

Comme j'avais fait l'adaptation finale, autant la livrer aussi

Sub test()
Dim olMail As Outlook.MailItem
Dim Cel As Range
For Each Cel In Range("A2:A143")
If Len(Cel) Then
  Set olMail = olApp.CreateItem(olMailItem)
    With olMail
      .To = Cel.Value
      .Subject = Range("C2")
      .Body = Cel.Offset(0, 1).Text
      .Send
    End With
End If
Next Cel
End Sub

 

[Ben78]

Bonjour,

un grand merci à tous, vous trouverez ci-dessous le code définitif avec l'ajout de "Set olApp = CreateObject("outlook.application")", ainsi la macro fonctionne .

Encore une fois merci de vous être penché, et d'avoir solutionné, ce sujet qui m'a bien fait transpirer.

Cordialement
Benoit

Sub SendEmail()
Set olApp = CreateObject("outlook.application")
Dim olMail As Outlook.MailItem
Dim Cel As Range
For Each Cel In Range("A2:A143")
If Len(Cel) Then
  Set olMail = olApp.CreateItem(olMailItem)
    With olMail
      .To = Cel.Value
      .Subject = Range("C2")
      .Body = Cel.Offset(0, 1).Text
      .Send
    End With
End If
Next Cel
End Sub