Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Pièces jointes avec thunderbird

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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Occasionnel
 

SALAH

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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.
 

SALAH

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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 ?
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…