Envoi mails multiples avec pièces jointes différentes

Bonjour,

malgré de multiple recherches, je n'arrive pas à trouver de solution à mon problème.

Je suis amené à envoyer un mails à 700 destinataires différents avec en pièce jointe, un fichier PDF propre à chaque destinataire.

Cette manipulation me prenant une journée, je souhaiterais automatiser cela.

Le lien entre les différents destinataire et leur fichier propre, est fait.

actuellement, j'ai les adresses mail en colonne A, et les liens vers les pièces jointes en colonne B.

Pouvez-vous, s'il vous plait, m'indiquer la marche à suivre ?

D'avance, merci.

bonjour,

solution qui se trouve dans la première suggestion liée à ton titre de message.

Sub Envoi_mail()

    Set OutApp = CreateObject("Outlook.Application")

    For Each cel In Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
       fc = cel(1, 2).Value

        Set objmessage = OutApp.CreateItem(0)
        With objmessage
            .Subject = "le sujet"    'Sujet
           .To = cel.Value    'Email du destinataire doit-être correct ici
           .Body = "Bonjour" & Chr(10) & "Ci-joint, le fichier" & Chr(10) & Chr(10)
            .Attachments.Add fc
            '.Send
            .display 'remplacer par .send pour envoyer message
        End With
        Set objmessage = Nothing

    Next
End Sub

merci beaucoup H2so4.

mon problème semble résolu.

Rechercher des sujets similaires à "envoi mails multiples pieces jointes differentes"