Otlook Web Access: Remplir le corps de message

rem

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

rem

XLDnaute Nouveau
Ne pas ouvrir la messagerie par défaut avec Follow

Bonjour,

Je me suis probablement mal expliqué la fois précédente, car cela me semblant possible, mais je ne maîtrise pas suffisament VBA, et je cherche en vain ...
Sur mon poste de travail, j'ai ma messagerie perso (Outlook) qui est celle par défaut, et je souhaiterais ouvrir une autre messagerie Outlook sur un serveur Exchange, en remplissant le destinataire, le sujet éventuellement, et le corps de message automatiquement .

méthode précédente utilisée:
MailString = 'mailto:' & Destinataire & '&body=' & CorpsMessage
ActiveWorkbook.FollowHyperlink Address:=MailString, NewWindow:=True

merci de votre aide...
 

Statistiques des forums

Discussions
312 931
Messages
2 093 721
Membres
105 796
dernier inscrit
Max...26