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

XL 2019 Envoi plusieurs pièces jointes

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
 

Discussions similaires

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