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

DenisHen · 11 Février 2025

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 · 11 Février 2025

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

DenisHen · 11 Février 2025

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

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

DenisHen

XLDnaute Junior

DenisHen

DenisHen

XLDnaute Junior

Discussions similaires

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

DenisHen

XLDnaute Junior

DenisHen

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency