Envoi de mail avec PJ en Macro

Bonjour,

J'ai une macro pour de la gestion et d'envoi de convocations bénévole. L'onglet de fin me permet de faire un envoi de mail automatique.

J'aimerais ajouter une pièce jointe automatiquement à ce mail qui se trouve dans un dossier sur le PC.

Est ce possible?

Voici le fichier en PJ

Merci de votre aide!

A bientôt

Bonjour GM22,

Vous utilisez qu'elle messagerie pour ça, car je vois du code pour Thunderbird dans votre fichier

Bonsoir,

oui j'utilise Thunderbird.

Effectivement il y a déjà du code pour l'envoi de mail.

Bonjour GM22, salut JExceL2fr,

il me semble que cela fonctionne normalement, le lancement de la macro SendThunder crée le fichier PDF à joindre (variable PJ_Name) puis appelle la macro SendEmail. A' vérifier le chemin d'installation de Thunderbird

Cordialement

Oui effectivement la macro fonctionne bien telle qu'elle. Mais j'aimerais ajouter une autre PJ en plus qui se trouve dans un dossier sur l'ordinateur.

Merci

Bonjour GM22,

change la ligne

vattachments = PJ_Name 'avec 1 pièce jointe

par la ligne suivante, à adapter le chemin et le nom du fichier

vattachments = Array(PJ_Name, "C:\Users\Sequoyah\Downloads\0050a6v17905802.pdf")   'avec plusieurs pièces jointes