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,