Mettre en gras sur outlook depuis excel

Question

Hello,

Ma macro  d'excel envoie des mails avec Outlook. 
Je cherche à mettre en gras une partie du corps du message (que je peux identifier avec un nb de caractères)
Quand je le fais avec Selection, bold etc dans excel, le message envoyé n'en tient pas compte
A mon avis c'est dans les propriétés du message...?

michelxld · Answer

bonjour

tu peux utiliser HTMLBody pour créer le corps du message en le personnalisant:

Sub CreationMail()
Dim OlApp As Outlook.Application
Dim OlItem As Outlook.MailItem
' necessite d'activer la reference microsoft outlook 10.0 object library


Set OlApp =  New Outlook.Application
Set OlItem = OlApp.CreateItem(olMailItem)


With OlItem
    .To = "[mailto:destinataire@mail.fr destinataire@mail.fr]"
    .Subject = "Le titre du message"
    .HTMLBody = " Résultats :  "
    .Display
    .Save
    .send
End With


Set OlItem  = Nothing
Set OlApp = Nothing


End Sub

michel

jlgarnier · Answer

Bonjour,

Comment court-circuiter la dialog de sécurité (attention, un programme veut envoyer un email, bla-bla) ?

Merci d'avance !

Jean-Luc

Mettre en gras sur outlook depuis excel

2 réponses

Votre réponse

Discussions similaires