Office: (Office 2019) VBA Outlook E-Mailvorschau aktualisieren wg. Flag-Text

Hallo Leute,

ich benötige bei einem Problem euer Wissen.

Ich setze in Outlook einen Flag "Erledig" mit einem individuellen Text (= MdName). Allerdingst wird mir dieser Text erst nach einem erneuten Aufruf der Email angezeigt. Wie kann ich mit VBA die Vorschau aktualisieren?

Hier mein funktionierender Code:

Code:

Private Sub Application_ItemLoad(ByVal Item As Object)

  On Error Resume Next
          Dim msg As Outlook.MailItem
          Dim sMdNr As String
          Dim sMdName As String
          Dim iStart As Long
          Dim iEnde As Long


10        If TypeName(Outlook.ActiveExplorer.Selection(1)) = "MailItem" Then
20            If Application.ActiveExplorer.CurrentFolder = "VDL (Elsterbescheide)" Then
30                Set msg = Outlook.ActiveExplorer.Selection(1)

                  If msg.IsMarkedAsTask Then Exit Sub
50                iStart = InStr(1, msg.Body, "(Mandantennummer", vbTextCompare) + Len("Mandantennummer ")
60                iEnde = InStr(iStart, msg.Body, ")", vbTextCompare)
70                sMdNr = Trim(Mid(msg.Body, iStart, iEnde - iStart))

                  If Not IsNumeric(sMdNr) Then Exit Sub

80                sMdName = MdBez(sMdNr, False)
90                With msg
100                   .MarkAsTask olMarkComplete
110                   .FlagRequest = olFlagMarked
120                   .FlagRequest = sMdName
130                   .Save
140               End With
150           End If
160       End If
End Sub

On Error resume ist bewusst gewählt, damit auch Email ohne MdName den Erledigt-Flag erhalten.

Vielen Dank im Voraus.
Gruß Nimrod