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 检查器（单独的消息窗口）配合使用。为了能够操作右侧预览窗格文本，您需要使用活动探索者的活动内联响应词编辑器像这样的属性：

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