XL 2019 VBA mails automatiques ligne à ligne

[TarekB]

Bonjour la communauté,

J'aurais besoin de vos compétences pour la problématique suivante :

j'ai un tableau qui se présente comme suivant, et je voudrais automatiser l'envoi des mails ligne à ligne (l'adresse se trouvant dans la colonne L).

Les informations du corps du mail dont j'ai besoin sont : la colonne A (date) et la colonne B (description). Le nombre de ligne est variable.

D'autre part, serait-il possible de regrouper les mails par destinataire? Car il est possible d'en avoir plusieurs mais les dates et les descriptions varient et j'ai besoin d'avoir l'exhaustivité des données.

Merci d'avance de votre aide.

Bonne journée.

 

[TarekB]

Après recherche, j'ai trouvé le code pour envoyer le mail par ligne. En revanche, je n'arrive pas à construire le corps du mail avec les valeurs qui se trouvent dans les colonnes A et B.

Le code est le suivant :

Sub Mail

Dim LeMail As Variant
Dim I As Integer
Set LeMail = CreateObject("Outlook.Application")


ThisWorkbook.Sheets("Relance").Activate
Range("L1").Select
CptLig = 1
For I = 1 To 500
Selection.Offset(CptLig, 0).Select
Temp = ActiveCell.Value
Mail = Temp
If Mail = "" Then
CptLig = 0

Else

CptLig = 1
With LeMail.CreateItem(olMailItem)
.Subject = "Demande justificatif CB"
.to = Range("L" & I)
.Body = "Bonjour," & _
Chr(13) & Chr(13) & "Sauf erreur de notre part, blablabla." & _
Chr(13) & Chr(13) & "Date : " &

.Display

End With


End If

End Sub

A L'AIDE SVP

 

[zebanx]

Bonsoir Tarek, le forum

Un exemple d'export de plage avec les supers travaux de RON DE BRUIN.
A compléter avec ce que vous avez déjà effectué.

Bonne complétude.
Xl-ment
zebanx