Outlook 2013 - VBA - ответ в строке

Question

Я написал небольшой скрипт для автоматического выбора первой опции автозамены. Это работает, когда в 2013 году я пишу новое электронное письмо или "выскакиваю" электронное письмо. Однако - это не работает, когда я отвечаю "в строке" - например, в правом окне на изображении ниже.

В 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 (отдельное окно сообщения). Чтобы иметь возможность манипулировать текстом правой панели предварительного просмотра, вам нужно использовать свойство ActiveInlineResponseWordEditor ActiveExplorer, например:

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