OVH Cloud OVH Cloud

VBA

2 réponses
Avatar
Christian
Bonjour,

je cr=E9e un message depuis une fonction VBA par l'objet=20
MailItem.

Je souhaiterais modifier la police, et la mettre en gras=20
du premier mot du corps du message que je cr=E9e par code.

Comment puis-je faire =E7a ?
merci
christian

2 réponses

Avatar
Noemie
Salut!


Voilà l'idée que j'ai eu :

Est-ce que MailItem te permet de créer des objets message
au format HTML?

si oui voilà l'idée...

tu set ton objet

Set Message = Outlook.CreateItem(olMailItem)

Tu met préalablement le corp de ton message dans une
string et lorsque vient le temps d'allimenter le "body"
de ton message tu lui concatène des tag HTML pour
modifier la police dans le genre :

Dim TextBody as string
Message.body = "<b>" & TextBody & "</b>"

Et encore mieux tu pourrais mettre ca dans une autre
police, format ou couleur.

Message.body = "<font face=Verdana size=7 _
color=#ff0000><b>" & TextBody & "</b></font>"

Mais je ne l'ai pas testé... c'est une idée qui ma passé
par la tête mais ce n'est pas long a essayer!

Redonne moi des nouvelles!

Noemie



-----Message d'origine-----
Bonjour,

je crée un message depuis une fonction VBA par l'objet
MailItem.

Je souhaiterais modifier la police, et la mettre en gras
du premier mot du corps du message que je crée par code.

Comment puis-je faire ça ?
merci
christian
.



Avatar
Christian
Génial Noémie tu m'as sauvé la vie là !!

J'étais vraiment à court d'idée, fallait y penser aux
tags.
Joli coup.

merci encore
A charge de revanche...
Christian.

-----Original Message-----
Salut!


Voilà l'idée que j'ai eu :

Est-ce que MailItem te permet de créer des objets
message

au format HTML?

si oui voilà l'idée...

tu set ton objet

Set Message = Outlook.CreateItem(olMailItem)

Tu met préalablement le corp de ton message dans une
string et lorsque vient le temps d'allimenter le "body"
de ton message tu lui concatène des tag HTML pour
modifier la police dans le genre :

Dim TextBody as string
Message.body = "<b>" & TextBody & "</b>"

Et encore mieux tu pourrais mettre ca dans une autre
police, format ou couleur.

Message.body = "<font face=Verdana size=7 _
color=#ff0000><b>" & TextBody & "</b></font>"

Mais je ne l'ai pas testé... c'est une idée qui ma passé
par la tête mais ce n'est pas long a essayer!

Redonne moi des nouvelles!

Noemie



-----Message d'origine-----
Bonjour,

je crée un message depuis une fonction VBA par l'objet
MailItem.

Je souhaiterais modifier la police, et la mettre en
gras


du premier mot du corps du message que je crée par code.

Comment puis-je faire ça ?
merci
christian
.

.