Créer un mail à partir d'excel avec texte à base de variables
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:
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,