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 Inspector（一個單獨的訊息視窗）。為了能夠操作右側預覽窗格文本，您需要使用活動瀏覽器的ActiveInlineResponseWordEditor像這樣的屬性：

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