Créer un mail à partir d'excel avec texte à base de variables

**byloute** · 15/10/2019, 16h19

Bonjour,

Je crée un mail à partir d'Excel avec le code ci-dessous.
Pouvez-vous me dire comment je peux remplacer le mot "Créer" dans le corps du mail, par une variable, qui prendrait 2 états (Créer / modifier) ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim appOutlook As Outlook.Application
    Set appOutlook = Outlook.Application
    Dim MESSAGE As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
 
    Set MESSAGE = appOutlook.CreateItem(olMailItem)
    With MESSAGE
        .Subject = "[Projet] " & ActiveCell.Value
 
        ' Corps en HTML
        .BodyFormat = olFormatHTML
        .HTMLBody = "<html><body> <font face=""calibri""><p>Bonjour,</p><p>Pouvez-vous créer cet objet ? </p><p>Vous remerciant par avance," & .HTMLBody

Merci à tous,

**Menhir** · 15/10/2019, 17h16

C'est juste une chaine de caractère donc une paire d'opérateur de concaténation suffit.

Code :

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

1
2
3
4
5
6
Dim MaVariable
 MaVariable = "ne pas créer"
 
[...]
 
        .HTMLBody = "<html><body> <font face=""calibri""><p>Bonjour,</p><p>Pouvez-vous " & MaVariable & " cet objet ? </p><p>Vous remerciant par avance," & .HTMLBody

Créer un mail à partir d'excel avec texte à base de variables [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager