XL 2019 Pièces jointes avec thunderbird

[SALAH]

Bonjour le forum

j' ai un petit souci pour l' envoi de mail sur thunderbird
Sa marche pour une seule pièce jointe mais je n'arrive pas à envoyer une autre pièce jointe en pdf qui se trouve sur le bureau
Pouvez-vous m' aider en améliorant le code ? Merci

Private Sub CommandButton8_Click()

copie = Sheets("NOUVEAU_DEVIS").Range("O22").Value
sujet = "VOTRE FACTURE N° " & Sheets("NOUVEAU_DEVIS").Range("Q4").Value
Texte = Sheets("CORPS").Range("K1") & "<br><br>" & Sheets("CORPS").Range("K2").Value & "<br><br>" & Sheets("CORPS").Range("K3").Value &

ProgThunderbird = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"
monCourriel = " -compose " & "to=" & destinataire & "," & "cc=" & copie & "," & "subject=" & sujet & "," & "body=" & Texte & "," & "attachment=C:\Users\Desktop\fact" & Sheets("FACT1").Range("q9").Value & ".pdf"
Shell ProgThunderbird & monCourriel, vbNormalFocus

End Sub

 

[sylvanu]

Bonjour Salah,
Toujours un peu délicat les envois de mail.
Un essai testé avec Thunderbird pour la fin de votre macro:

ProgThunderbird = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
' Déclaration adresse et fichiers
Email = "xxxxxxxx@free.fr"                                         ' Adresse email
Fichier1 = "C:\Users\PC_PAPA\Desktop\File1.pdf"     ' Chemin fichier1
Fichier2 = "C:\Users\PC_PAPA\Desktop\File2.pdf"     ' Chemin fichier2
' Constitution message
monCourriel = " -compose " & "to=" & Email & "," & "cc=" & copie & "," & "subject=" & sujet & "," & "body=" & Texte & ","
monCourriel = monCourriel & "," & "attachment='file:///" & Fichier1
monCourriel = monCourriel & ",file:///" & Fichier2 & "'"
Shell ProgThunderbird & monCourriel, vbNormalFocus

Il suffit apparemment dans attachement de faire :

"attachment='file:///" & Fichier1 & ",file:///" & Fichier2 & "'"

 

[SALAH]

Bonjour Salah,
Toujours un peu délicat les envois de mail.
Un essai testé avec Thunderbird pour la fin de votre macro:

ProgThunderbird = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
' Déclaration adresse et fichiers
Email = "xxxxxxxx@free.fr"                                         ' Adresse email
Fichier1 = "C:\Users\PC_PAPA\Desktop\File1.pdf"     ' Chemin fichier1
Fichier2 = "C:\Users\PC_PAPA\Desktop\File2.pdf"     ' Chemin fichier2
' Constitution message
monCourriel = " -compose " & "to=" & Email & "," & "cc=" & copie & "," & "subject=" & sujet & "," & "body=" & Texte & ","
monCourriel = monCourriel & "," & "attachment='file:///" & Fichier1
monCourriel = monCourriel & ",file:///" & Fichier2 & "'"
Shell ProgThunderbird & monCourriel, vbNormalFocus

Il suffit apparemment dans attachement de faire :

"attachment='file:///" & Fichier1 & ",file:///" & Fichier2 & "'"

 

[SALAH]

Bonjour le forum, sylvanu
Excusez-moi de ne pas avoir répondu tout de suite j' ai dû me faire hospitalisé

Sylvanu merci pour ton aide qui m' a guidé
Sa n' a pas fonctionné comme vous le dites bien ce n 'est pas commode selon les différentes applications de messagerie

J' ai essayé avcelà et sa marché (thunderbird)
attachment='C:\Users\papa\Desktop\Fichier1,C:\Users\papa\Desktop\Fichier2'"

Merci à toi

 

[kiki29]

Salut, sinon il y a CDO voir ici ou Ron de Bruin

Spoiler

Pourquoi utiliser le code CDO au lieu de l'automatisation Outlook ou SendMail dans VBA.

1 : Peu importe le programme de messagerie que vous utilisez (il utilise uniquement le serveur SMTP).
2 : Peu importe la version d'Office que vous utilisez (97…2016)
3 : Vous pouvez envoyer une plage/feuille dans le corps du courrier (certains programmes de messagerie ne peuvent pas le faire)
4: Vous pouvez envoyer n'importe quel fichier que vous aimez (fichiers Word, PDF, PowerPoint, TXT,….)
5 : Aucun avertissement de sécurité, vraiment génial si vous envoyez beaucoup de courrier en boucle.

 

[sylvanu]

Bonsoir Salah, Kiki,

Un essai testé avec Thunderbird

Comme dit plus haut, j'avais testé avec succès le code avec Thunderbird 91.9.0 (32 bits)
Mais si ça marche avec votre solution, c'est parfait. Inutile de chercher plus loin.

 

[SALAH]

Bonjour le forum, sylvanu, kiki

J' aimerai à partir d' une selection d' une liste de choix , envoyer des pdf choisis dans un répertoire se trouvant dans le bureau et les envoyer par mail
La liste de choix est un groupe de personne et selon le choix de la personne un document pdf est lié et envoyé par mail bien sûr toujours en utilisant thunderbird

Merci pour votre aide

 

[sylvanu]

Bonjour,
Pour éviter de refaire plusieurs fois le travail, fournissez un fichier test.
Comment est fait le groupe de destinataire ? Par liste déroulante, tableau de cellules ....
Y aura t-il un ou plusieurs pdf à envoyer ?
Comment sera le corps du mail ? Par texte dans le VBA, par texte dans des cellules ?