XL 2019 Envoi plusieurs pièces jointes

[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]

Doublon ?

XL 2019 - Pièces jointes avec thunderbird

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()...

www.excel-downloads.com