Bonjour,
Je cherche à faire une macro pour ajouter un "TimeStamp" en début du corps de texte d'un email ou d'une tâche.
Ca me servira pour faire un suivi...
Bref, en cherchant j'ai trouvé ce code ci-dessous sur cette page : https://www.outlook-tips.net/tips/in...contact-notes/
Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub TimeStamp()
    Dim objApp As Outlook.Application
    Dim Item As Object
    Set objApp = Application
    Set Item = objApp.ActiveInspector.CurrentItem
    Item.Body = "[Mon_nom]" & vbCrLf & Format(Now(), "dd/MM/YYYY h:mm:ss") & vbCrLf & vbCrLf & Item.Body
End Sub

Ca fonctionne bien... Sauf que ça n'est pas du HTML et que cela supprime la mise en forme du texte qui est déjà contenu dans le corps du message ou de la tâche.
J'ai déjà essayé de remplacer Item.Body par Item.HTMLBody mais ça ne fonctionne pas.
Avez-vous une idée ?
Merci d'avance de votre aide,
Cordialement,