Outlook 2013 - VBA - resposta na linha

Question

Eu escrevi um pequeno script para selecionar automaticamente a primeira opção de correção automática. Funciona quando, em 2013, escrevo um novo e-mail ou "ponho fora" um e-mail. No entanto, não funciona quando respondo "em linha" - por ex. pela janela direita na imagem abaixo.

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

Abaixo está o 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

O 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 a propriedade ActiveExplorer ActiveInlineResponseWordEditor da seguinte forma:

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