XL 2019 Envoi d'Email dans Outlook OU ThunderBird, le tout en VBA.

[DenisHen]

Bonjour à la communauté.
J'avais écris ce code il y a très longtemps :

Sub AcContactEnv()
Dim Body, Sujet, StrCommand As String
Const retourChariot = "%0A"
Sujet = "Livraison : "
Body = "Bonjour." & retourChariot
Body = Body & "Veuillez trouver ci-joint la livraison concernant le dossier : " & retourChariot
Body = Body & "Vous souhaitant bonne réception," & retourChariot
Body = Body & retourChariot & "Cordialement,"
Courrier = "mailto:" & "Exemple@gmail.com" & "?&Subject=" & Sujet & "?&Body=" & Body

ActiveWorkbook.FollowHyperlink Courrier
End Sub

Le gros avantage de ce code, c'est qu'il ouvrait Thunderbird OU Outlook (ou autres) sans problème.

Mais le Sujet n'est plus pris en compte avec Outlook maintenant (je ne sais pas encore avec Thunderbird). Le destinataire, le message, tout fonctionne, sauf le sujet.

Quelqu'un aurait une astuce, un conseil, ou même une solution ?

Bien à toi la communauté

 

[DenisHen]

Je viens de trouvé à l'instant ma réponse :

Sub AcContactEnv(control As IRibbonControl)
Dim Body, Sujet, String
Const retourChariot = "%0A"
Sujet = "Problème résolu ! ! "
Mail1 = "Exemple@gmail.com"
Mail2 = "ExcelDownLoad@gmail.com"
Body = "Bonjour." & retourChariot
Body = Body & "Veuillez trouver ci-joint la livraison concernant le dossier : " & retourChariot
Body = Body & "Vous souhaitant bonne réception," & retourChariot
Body = Body & retourChariot & "Cordialement,"
Courrier = "mailto:" & Mail1 & "?" & "cc=" & Mail2 & "&" & "subject=" & Sujet & "&" & "body=" & Body
ActiveWorkbook.FollowHyperlink Courrier
End Sub

Et je l'ai trouvé sur ExcelDownLoad ! !
Denis...