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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DenisHen

XLDnaute Nouveau
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é
 
Solution
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...
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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour