Outlook 2013 VBA: обратитесь к редактору в области чтения

Question

Я пытаюсь назначить категорию сообщению при его отправке (категория «Отправить сейчас» для отмены задержки отправки). Приведенный ниже макрос работает нормально при редактировании сообщения в отдельном окне, но он висит в строке «Set msg = insp.CurrentItem 'с сообщением об ошибке' Object variable или With block variable not set ', когда я пытаюсь запустить макрос во время редактирования сообщения в редакторе области чтения.

Как правильно обращаться к редактору, когда он пристыкован? И есть ли тест условия, который я могу использовать, чтобы проверить, какой тип редактора используется?

Спасибо!

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

Answer 1

Взглянуть:

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