☰

Outlook 2013 VBA: Verweis auf Editor im Lesebereich

tag-icon • tag-icon microsoft-outlook vba microsoft-outlook-2013
Outlook 2013 VBA: Verweis auf Editor im Lesebereich

Ich versuche, einer Nachricht beim Senden eine Kategorie zuzuweisen (eine Kategorie „Jetzt senden“, um eine Sendeverzögerung zu überschreiben). Das folgende Makro funktioniert einwandfrei, wenn die Nachricht in einem separaten Fenster bearbeitet wird, aber es bleibt bei der Zeile „Set msg = insp.CurrentItem“ mit der Fehlermeldung „Objektvariable oder With-Blockvariable nicht festgelegt“ hängen, wenn ich versuche, das Makro auszuführen, während ich die Nachricht im Lesebereichseditor bearbeite.

Wie verweise ich richtig auf den Editor, wenn er angedockt ist? Und gibt es einen Bedingungstest, mit dem ich testen kann, welche Art von Editor verwendet wird?

Danke!

Public Sub SendNow()
Dim msg As Outlook.MailItem
Dim insp As Outlook.Inspector

Set insp = Application.ActiveInspector
Set msg = insp.CurrentItem
    If insp.EditorType = olEditorWord Then ' outlook 2013
        msg.Categories = "Send Now"
    End If
msg.Save
msg.Send

Set insp = Nothing
Set msg = Nothing
End Sub

Antwort1

Schau mal:

 Set exp = Application.ActiveExplorer
 Set msg = exp.ActiveInlineResponse
 If Not msg Is Nothing Then
 ...

verwandte Informationen