Automatiser l'envoi de mails avec PJ personnalisée

Bonjour à tous,

Je suis secrétaire bénévole d'une association et chaque année nous devons envoyer à notre liste d'adhérents (près de 500 personnes) un mail type personnalisé avec 2 PJ (bulletin d'adhésion et justificatif de paiement de cotisation).
J'aimerai si possible automatiser cet envoi. Je perds énormément de temps sur ce sujet mais cela est obligatoire

Pourriez-vous m'aider svp?

Ci-après un exemple de ma situation :

Un énorme merci d'avance

Bonjour Caroline171717 et le Forum,

voici ma proposition, en supposant que tu utilises Outlook. Je te conseille de tester le code sur une version reduite de ton fichier. Pour la pièce jointe on doit indiquer le chemin complet et le nom du fichier y compris l'extension

Sub MailCaroline171717()
'https://forum.excel-pratique.com/excel/automatiser-l-envoi-de-mails-avec-pj-personnalisee-192576

    Dim OutApp As Object, OutMail As Object
    Dim lastRow As Long
    Dim strbody As String
    Dim cel As Range

    Application.ScreenUpdating = False

    lastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

    Set OutApp = CreateObject("Outlook.Application")

        For Each cel In Range("A2:A" & lastRow)

        strbody = "Bonjour," & "<br>" & _
        cel.Offset(0, 1).Value & " " & cel.Value & ",<br>" & _
                  "Veuillez trouver ci-joint votre bulletin d'adhésion à notre association ainsi que le justificatif de paiement de la cotisation." & "<br>Cordialement,"

        Set OutMail = OutApp.CreateItem(0)

                    On Error Resume Next

                    With OutMail
                        .To = cel.Offset(0, 2).Value
                        .Subject = "Bullettin d'adhésion"
                        .HTMLBody = strbody
                        .Attachments.Add cel.Offset(0, 3).Value
                        .Attachments.Add cel.Offset(0, 4).Value
                        .Display ' ou .Send
                    End With
        Next cel

End Sub

Bonsoir,

ci-joint un exemple complet d'envoi de mails via un tableau structuré "Adhérents" comportant un lien hypertexte pour les documents à joindre :