Bonjour à tous,
J'utilisais jusqu'alors un bout de code , déjà trouvé sur ce forum d'ailleurs, et qui me plaçait en corps de message le contenu d'une cellule.
comme ceci :
Sub OuvrirOutlook()
Dim MailString As String
Dim Destinataire As String
Dim CorpsMessage As String
Destinataire = Sheets('ListeDiffusion').Range('MaListe').Value
CorpsMessage = Sheets('EnvoiSMS').Range('CorpsDeMessage').Value
MailString = 'mailto:' & Destinataire & '&body=' & CorpsMessage
ActiveWorkbook.FollowHyperlink Address:=MailString, NewWindow:=True
End Sub
Cela fonctionnait à merveille, jusquà ce qu'ils installent une nouvelle messagerie sur mon lieu de travail.
Il sagit d'une messagerie Outlook Web Access - Server 2003.
J'ai donc remplacer MailString comme ceci, pour ouvrir un nouveau message:
MailString = 'Ce lien n'existe plus
Ceci fonctionne, mais je souhaiterais comme précedemment remplir le corps de message automatiquement, ainsi que le champ À... .
Il me semble avoir déjà vu un post à ce sujet, mais j'ai beau consulter les archives, je ne retrouve pas !
merci d'avance pour vos propositions, ou pour m'indiquer le lien à consulter...