Publipostage avec message et fichiers joints personnalisés

Question

Bonjour,

Pour diffuser des informations de réinscription, j'aimerais pouvoir personnaliser un mail avec pour chaque destinataire une pièce jointe personnalisée (je suis sur gmail)
Au gré des recherches, je suis tombé sur une macro qui permet de faire une partie du travail (pour le début du code, voir l'image correspondante car elle contient des url que je ne peux pas publier car pas assez de messages à mon actif :

    With ActiveSheet
        dl = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 4 To dl 'liste commence en ligne 4
            If .Cells(i, 1) <> "" Then
                Set ml = CreateObject("CDO.Message")
                ml.configuration = mConfig
                ml.To = .Cells(i, 3) 'destinataire
                ml.from = expediteur
                ml.Subject = .Range("F2") 'sujet
                ml.textbody = .Range("G2") 'message
                ml.addattachment rep & .Cells(i, 5).Value 'fichier joint
                ml.Send 'envoyer le mail
            End If
        Next i
        MsgBox "mails envoyés"
    End With

End Sub

J'utilise le fichier excel en pièce jointe.

22envoimailavec-pj-et-selection-2.xlsx (10.02 Ko)

J'obtiens un message d'erreur lors du lancement de la macro :

Donc le message ne s'envoie pas.

Au-delà de cette erreur, j'aimerais personnaliser le mail en ajoutant des champs issus du fichier excel (par exemple Bonjour Prenom Nom) mais je n'arrive pas à le faire

Quelqu'un peut-il m'aider ?

Merci d'avance

thev · Answer

Cela provient du renforcement de la sécurité des comptes Google. La seule solution est de créer un mot de passe d'application et d'utiliser ce dernier en lieu et place de celui de votre compte. (Voir Sécurité et Validation en 2 étapes)...

thev · Answer

With .Configuration.Fields ' Configuration du compte mail SMTP pour google .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True '----- Dans le cas ou le serveur demande une authentification .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mon.adresse@gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mot de passe application" '---------------- .Update End With...