XL 2019 Publipostage via email + fichier xls

[Genesian]

Bonjour tout le monde

J'ai un soucis. Je me retrouve avec une base de données a trier.
En gros j'ai des adresses de clients auxquels je dois par la suite envoyer un email pour signaler la mise en ligne de notre nouveau site.
Le hic c'est que l'on doit adresser un mail personnalisé.
alors je me retrouve avec une colone "contact" avec écrit dedans "monsieur dupont stephane" ou "madame dupont christelle" par exemple...
Comment puis-je faire envoyer a chacun un email personnalisé en ajoutant dans l'objet du mail a l'attention de monsieur dupont stephane ou madame dupont christelle?
Est-ce possible?
merci d'avance pour vos conseils
Genesian

 

[zebanx]

Bonjour Genesian, le forum,

Un exemple de fichier avec un message spécifique pour le corps du texte.
Cela devrait vous donner une idée.
Le code VBA

En colonne H, un "timing" sur le traitement.
Il ne vous restera plus qu'à envoyer ou laisser en réseau ce fichier pour justifier du nombre d'envoi.

xl-ment
zebanx

Sub mailto_badge()
With Sheets("badge")
    dl = .Cells(Rows.Count, 2).End(xlUp).Row
    Set ol = CreateObject("outlook.application")
    '--boucle
    For i = 2 To dl
        '--choix envoi ("x" en colonne G) ou pas
        If Cells(i, 7) = "x" Then
        Cells(i, 8) = ""
        Set ml = ol.createitem(0)
        ml.To = .Cells(i, 9)
        ml.Subject = .Cells(i, 12)
        ml.CC = .Cells(i, 10)
        ml.BCC = .Cells(i, 11)
        ml.Body = .Cells(i, 13)
        '--afficher le mail
        ml.Display
         '--- si vous souhaitez envoyer directement
        'ml.send
        '--- afficher date et heure d'envoi
        Cells(i, 8) = Now
       '---demande AR
        ml.OriginatorDeliveryReportRequested = True
        '---demande confirmation de lecture
        ml.ReadReceiptRequested = True
        End If
    Next i
End With
End Sub