Bonjour ROLAND, le forum
J'avais déjà posé cette question et j'avais eu plusieurs réponses de qualités. Le formatage du message marche avant l'envoi, sauf que une fois reçu chez le destinataire le formatage a disparu.
J'ai utilisé la macro suivante proposée par Roland
"
EmailAdresDestinataire
EmailSujet
EmailMessage
' copy données dans le corp du message
Application.CutCopyMode = False
Range("A2").Copy
Opt$ = "/mailurl:mailto:" & EmailAdresDestinataire & "?subject=" & EmailSujet & "&Body=" & EmailMessage
Shell "C:\Program Files\Outlook Express\msimn.exe " & Opt$
'{TAB 4} redescend le curseur de Adresse sur le Message
'+{INSERT} MAJ+INSERT insertion données dans le Message
DoEvents '
SendKeys "{TAB 4}+{INSERT}", False
DoEvents.
J'en ai utilisé d'autres différentes mais rien n'y fait.
Je joins le fichier que Roland m'avait passé.
Question: Y a-t-il une solution excel .
Merci à tous.
J'avais déjà posé cette question et j'avais eu plusieurs réponses de qualités. Le formatage du message marche avant l'envoi, sauf que une fois reçu chez le destinataire le formatage a disparu.
J'ai utilisé la macro suivante proposée par Roland
"
EmailAdresDestinataire
EmailSujet
EmailMessage
' copy données dans le corp du message
Application.CutCopyMode = False
Range("A2").Copy
Opt$ = "/mailurl:mailto:" & EmailAdresDestinataire & "?subject=" & EmailSujet & "&Body=" & EmailMessage
Shell "C:\Program Files\Outlook Express\msimn.exe " & Opt$
'{TAB 4} redescend le curseur de Adresse sur le Message
'+{INSERT} MAJ+INSERT insertion données dans le Message
DoEvents '
SendKeys "{TAB 4}+{INSERT}", False
DoEvents.
J'en ai utilisé d'autres différentes mais rien n'y fait.
Je joins le fichier que Roland m'avait passé.
Question: Y a-t-il une solution excel .
Merci à tous.