Outlook 2013 - VBA - 줄에 답장

Question

첫 번째 자동 수정 옵션을 자동으로 선택하는 작은 스크립트를 작성했습니다. 2013년에 새 이메일을 쓰거나 이메일을 "팝아웃"할 때 작동했습니다. 그러나 - "in line"으로 응답하면 작동하지 않습니다. 예를 들어 아래 이미지의 오른쪽 창에 따라.

VBA에서 - "작업 중" 모드에 있을 때 새 이메일에서 텍스트를 어떻게 찾거나 선택합니까?

아래는 내 현재 코드입니다

Sub Spellcheckoutlook()

Dim oSE As Word.Range
Dim oSC
With ActiveInspector
    If .IsWordMail And .EditorType = olEditorWord Then
        For Each oSE In .WordEditor.Range.SpellingErrors
            Set oSC = oSE.GetSpellingSuggestions
            If oSC.Count > 0 Then
            oSE.Text = oSC(1)
            End If
        Next oSE
    End If
End With

End Sub

Answer 1

코드는 Outlook Inspector(별도의 메시지 창)에서 작동합니다. 오른쪽 미리보기 창 텍스트를 조작하려면액티브 익스플로러'에스ActiveInlineResponse단어 편집기다음과 같은 속성:

Set Editor = ActiveExplorer.ActiveInlineResponseWordEditor
If Editor Is Nothing And Not ActiveInspector Is Nothing Then
    Set Editor = ActiveInspector.WordEditor
End If
If Not Editor Is Nothing Then
    ' Do your stuff for Editor.Range ...
End If