☰

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

tag-icon • tag-icon microsoft-outlook vba microsoft-outlook-2013
Outlook 2013 VBA: ссылка на редактор в области чтения

Я пытаюсь назначить категорию сообщению при его отправке (категорию «Отправить сейчас», чтобы переопределить задержку отправки). Макрос ниже отлично работает при редактировании сообщения в отдельном окне, но зависает на строке «Set msg = insp.CurrentItem» с сообщением об ошибке «Object variable or 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

решение1

Взглянем:

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

Связанный контент