☰

Outlook 2013 VBA：請參閱閱讀窗格中的編輯器

tag-icon • tag-icon microsoft-outlook vba microsoft-outlook-2013
Outlook 2013 VBA：請參閱閱讀窗格中的編輯器

我試圖在發送訊息時為其分配一個類別（“立即發送”類別以覆蓋發送延遲）。在單獨的視窗中編輯訊息時，下面的巨集工作正常，但當我嘗試在編輯時執行巨集時，它會掛在「Set msg = insp.CurrentItem」行，並顯示錯誤訊息「物件變數或區塊變數未設定」可閱讀窗格編輯器中的消息。

當編輯器停靠時，如何正確引用它？是否有一個條件測試可以用來測試正在使用哪種編輯器？

謝謝！

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

答案1

看一看：

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

相關內容