Comment obtenir une référence à l'élément de courrier dans la fenêtre ouverte actuelle dans Outlook à l'aide de VBA ?

Question

J'ai une macro qui fonctionne très bien pour placer dans des dossiers / appliquer des drapeaux / définir des catégories, mais elle ne fonctionne que sur l'élément sélectionné dans l'explorateur.

Lorsque je reçois une alerte e-mail sur mon bureau et que je clique dessus pour ouvrir le message, j'aimerais pouvoir exécuter la même macro sur cet élément ouvert, mais je ne trouve aucune documentation sur la manière d'accéder à cet objet de la même façon que j'accède à l'élément sélectionné dans la liste de l'explorateur.

Ma logique de sélection actuelle est la suivante :

Dim Item As Object
Dim SelectedItems As Selection

Set SelectedItems = Outlook.ActiveExplorer.Selection
For Each Item In SelectedItems
    With Item
        'do stuff
    End With
Next Item

Answer 1

Apparemment, il s'agit du code permettant d'obtenir l'élément ouvert actuel :

If TypeName(Application.ActiveWindow) = "Inspector" Then
    Set Item = Application.ActiveWindow.CurrentItem

Answer 2

J'ai procédé de la manière suivante. Déclarez l'élément en tant que MailItem au lieu d'un objet et vous obtiendrez l'aide d'IntelliSense.

Dim CurrentMessage As MailItem
Set CurrentMessage = ActiveInspector.CurrentItem
CurrentMessage.HTMLBody = "[Insert HTML here]"