Discussion :

[Emily2711]

Bonjour,

J'ai créé une macro dans Excel qui génère des emails (avec texte et pièce jointe) et qui les envoie automatiquement de ma boîte Outlook.

Dans le corps de l'email il y a certaines phrases que j'aimerai mettre en gras, en rouge ou insérer des puces.

Pouvez-vous me dire quels sont les codes à utiliser ?

Merci

[SilkyRoad]

Bonsoir

Tu peux utiliser la propriété HTMLBody :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CreationMail()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem
 
    'Nécessite d'activer la référence
        'Microsoft Outlook xx.x Object Library
    Set OlApp = New Outlook.Application
    Set OlItem = OlApp.CreateItem(olMailItem)
 
    With OlItem
        .To = "forum@dvp.fr"
        .Subject = "Le titre du message"
        .HTMLBody = "Ceci est un <FONT COLOR='red'><B>essai</B></FONT>"
        .Display
        '.Save
        '.send
    End With
 
    Set OlItem = Nothing
    Set OlApp = Nothing
 
End Sub

bonne soirée
michel

[Emily2711]

Merci de ta réponse,

ça fonctionne mais ça me supprime tous mes sauts de ligne que j'avais codé sous forme "vblf"

quel est le code à utiliser pour les sauts de ligne en HTMLBody ?

[Jean-Pierre49]

Bonjour

Le "saut de ligne" en HTML est <br>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.HTMLBody = Replace(Texte, Chr$(10), "<br>")

Ou Texte est le texte que tu envoi