Outlook 2013 - VBA - Inline-Antwort

Question

Ich habe ein kleines Skript geschrieben, um automatisch die erste Autokorrekturoption auszuwählen. Es funktioniert, wenn ich 2013 eine neue E-Mail schreibe oder eine E-Mail „herausspringe“. Es funktioniert jedoch nicht, wenn ich „direkt“ antworte – z. B. gemäß dem rechten Fenster im Bild unten.

Wie kann man in VBA Text in einer neuen E-Mail suchen/auswählen, wenn man sich im Modus „In der Zeile arbeiten“ befindet?

Unten ist mein aktueller Code

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

Ihr Code funktioniert mit Outlook Inspector (einem separaten Nachrichtenfenster). Um den Text im rechten Vorschaufenster bearbeiten zu können, müssen Sie denActiveExplorer'SActiveInlineResponseWordEditorEigenschaft wie folgt:

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