Incruster du texte obtenu par VBA dans un formulaire Outlook [Résolu]

[Piksou]

Bonjour à tous,

Voilà mon soucis:
J'ai un formulaire Outlook.
J'ai une "jolie" (ahem) macro VBA qui marche très bien sous word: elle va chercher des tas de trucs qu'elle copie dans le presse-papiers et qu'elle colle dans Word à l'aide d'un signet. OK.
Maintenant je cherche à appeler la macro depuis Outlook pour qu'elle file les infos dans un des composants du formulaire. Et c'est là que ça merdouille. Parce que les boutons du formulaire c'est du de VBScript
Du coup je cherche une solution. J'ai donc mis la macro dans un bouton dans la barre d'outils qui fait le taf.
J'ai récup un MailItem avec "Set myMail = ActiveInspector.CurrentItem".
Pour mettre le texte sur le mail je fais un:
MyData.GetFromClipboard
strClip = MyData.GetText
myMail.Body = myMail.Body + strClip
Questions:
- Comment me positionner au bon endroit dans le formulaire si ce n'est pas le champ Body (ou To ou Cc, etc) ?
- Comment relire le contenu d'un tel champ ? (j'en aurais besoin comme paramètre d'entrée de la macro)

Merci à tous ceux qui pourraient m'aider :-)

[Piksou]

J'avais pas vu le sous-forum VBA, on peut déplacer ?

[Piksou]

Ouin
Le truc s'appelle Version et se trouve dans Frame1 et ni
numver = myMail.Frame1.Version
ni
numver = myMail.Version
ne marchent...

[Oliv-]

Salut,
J'ai jamais encore fais cela dans un formulaire, cependant si tu as un formulaire tu n'es donc pas en texte brut ! Donc ce n'est pas dans body que tu dois insérer ton texte mais dans htmlbody, tu dois donc retrouver dans celui-ci comment est codé le formulaire et y remplacer le texte par celui de ton presse-papier. Enregistre-sous ton mail en html et ouvre le avec le bloc note.

Oliv'

[Piksou]

Le Body ça correspondait en fait à un des contrôles, celui qui était de body au départ (il appelent ça un controle "bound").

Et éditer en direct le HTMLBody aurait été la mort.

Et en fait la réponse était:

numver = myMail.GetInspector.ModifiedFormPages("Consignes").Controls("Version").Text

myMail = mailItem sur mon mail, Consignes le nom de la page et Version le contrôle visé.

Merci en tous cas :-)