Outlook 2013 - VBA - respuesta en línea

Question

He escrito un pequeño script para seleccionar automáticamente la primera opción de autocorrección. Funciona cuando, en 2013, escribo un nuevo correo electrónico o "muestro" un correo electrónico. Sin embargo, no funciona cuando respondo "en línea", por ejemplo, en la ventana derecha de la imagen a continuación.

En VBA, ¿cómo se puede buscar/seleccionar texto en un nuevo correo electrónico cuando se está en el modo "trabajar en línea"?

A continuación se muestra mi código actual

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

Su código funciona con Outlook Inspector (una ventana de mensaje separada). Para poder manipular el texto del panel de vista previa del lado derecho, debe utilizar elExplorador Activo'sActiveInlineResponseWordEditorpropiedad como esta:

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