XL 2019 Pièces jointes avec thunderbird

  • Initiateur de la discussion Initiateur de la discussion SALAH
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

SALAH

XLDnaute Occasionnel
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
 
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 & "'"
 
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 & "'"
 
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
 
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.
 
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
 
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 ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
547
Réponses
10
Affichages
2 K
Retour