Mail multi-destinataires selon cellules
D
Bonjour à tous,
Désolé si le sujet existe, j’ai cherché mais je ne trouve pas la réponse exacte à mon problème et je suis une quille en vba donc je galère à adapter à mon cas...
Pour mon entreprise, je dois envoyer des mails à plus d’une centaine de destinataires en incluant la ligne Excel associée.
exemple : Envoyer A2 à L2 au mail présent dans la case M2 (dans le corps du mail pas en pièces jointes)
puis envoyer A3 à L3 au mail présent dans M3.
Et ainsi de suite...
Si quelqu’un saurait me renseigner ça serait superbe !!
Merci d’avance !!
E
Bonjour,
Sans fichier représentatif et avec le résultat attendu, un test à adapter :
Sub MAIL()
Dim objOutlook As Object
Dim objEmail As Object, olMailItem As Variant
Dim LR%, L%, CORPS$, C As Byte, WS As Worksheet
Set WS = Worksheets("Feuil1") 'A adapter
LR = WS.Cells(WS.Rows.Count, 13).End(xlUp).Row 'Défini dernière ligne
For L = 1 To LR
For C = 1 To 12
If WS.Cells(L, C) <> "" Then CORPS = CORPS & WS.Cells(L, C) 'A adapter avec le reste du corps de texte/formatage HTML
Next C
Set objOutlook = CreateObject("Outlook.Application")
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.To = WS.Cells(L, 13)
.Subject = "Sujet" 'A adapter
.HTMLBody = CORPS 'A adapter avec le reste du corps de texte/formatage HTML
.Display
End With
Next L
End SubCdlt,