Outlook 2013 - VBA - resposta na linha

Question

Escrevi um pequeno script para selecionar automaticamente a primeira opção de autocorreção. Funciona quando, em 2013, escrevo um novo e-mail ou “abro” um e-mail. No entanto - não funciona quando respondo "na linha" - por exemplo, na janela direita da imagem abaixo.

No VBA - como encontrar/selecionar texto em um novo e-mail quando estiver no modo "trabalhar em linha"?

Abaixo está meu código atual

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

Seu código funciona com o Outlook Inspector (uma janela de mensagem separada). Para poder manipular o texto do painel de visualização do lado direito, você precisa usar oActiveExplorerdeEditor ActiveInlineResponseWordpropriedade assim:

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