XL 2019 Pièces jointes avec thunderbird

SALAH · 17 Avril 2022

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 · 17 Avril 2022

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

VB:

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 :

Code:

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

SALAH · 8 Mai 2022

sylvanu à dit:

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

VB:

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 :

Code:

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

SALAH · 8 Mai 2022

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 · 8 Mai 2022

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

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 · 8 Mai 2022

Bonsoir Salah, Kiki,

sylvanu à dit:
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 · 8 Mai 2022

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 · 9 Mai 2022

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 ?

XL 2019 Pièces jointes avec thunderbird

SALAH

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

SALAH

XLDnaute Occasionnel

SALAH

XLDnaute Occasionnel

kiki29

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

SALAH

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Discussions similaires