Bonjour,

J’ai une macro qui sert à envoyer des mails de manière automatique ligne par ligne.

Seulement il arrive que j’ai plusieurs lignes avec le même destinataire, mais je dois intégrer un corps de mail bien distinct malgré le fait que ce soit le même destinataire.

J’aimerais savoir comment je pourrais faire pour que ma macro envoi un seul mail par dentinaire, et que les corps de mail s’intègre les uns après les autres dans mon mail.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
For i = 2 To Sheets("instruction mailing").Range("Q650000").End(xlUp).Row
  Set MonOutlook = CreateObject("Outlook.Application")
  Set monmessage = MonOutlook.CreateItem(0)
  monmessage.SentOnBehalfOfName = expediteur
  monmessage.display
  monmessage.To = Cells(i, 1)
  monmessage.Cc = "xxxx"
  monmessage.Subject = Cells(i, 2)
  corps = Cells(i, 3)
  corps = corps & vbCrLf & vbCrLf
  corps = corps & Cells(i, 4)
  corps = corps & vbCrLf
  corps = corps & Cells(i, 5)
  corps = corps & vbCrLf
  corps = corps & "xxxx"
  corps = corps & vbCrLf & vbCrLf
  corps = corps & Cells(i, 6)
  corps = corps & vbCrLf
  corps = corps & Cells(i, 7)
  monmessage.body = corps & monmessage.body
  monmessage.send
  Next i