☰

Outlook 2013 VBA: 읽기 창에서 편집기 참조

tag-icon • tag-icon microsoft-outlook vba microsoft-outlook-2013
Outlook 2013 VBA: 읽기 창에서 편집기 참조

메시지를 보낼 때 메시지에 카테고리를 할당하려고 합니다(전송 지연을 무시하기 위한 '지금 보내기' 카테고리). 아래 매크로는 별도의 창에서 메시지를 편집할 때 잘 작동하지만 편집하는 동안 매크로를 실행하려고 하면 '개체 변수 또는 With 블록 변수가 설정되지 않음'이라는 오류 메시지와 함께 '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
 ...

관련 정보