Outlook 2013 - VBA - trả lời theo dòng

Tôi đã viết một tập lệnh nhỏ để tự động chọn tùy chọn tự động sửa lỗi đầu tiên. Nó hoạt động khi vào năm 2013, tôi viết một email mới hoặc "bật ra" một email. Tuy nhiên - nó không hoạt động khi tôi trả lời "trong dòng" - ví dụ: mỗi cửa sổ bên phải trong hình dưới đây.

Trong VBA - làm thế nào để tìm / chọn văn bản trong email mới khi một lần ở chế độ "làm việc theo dòng"?

enter image description here

Dưới đây là mã hiện tại của tôi

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

email microsoft-outlook vba

— Wouter
nguồn

Mã của bạn hoạt động với Outlook Inspector (một cửa sổ thông báo riêng). Để có thể thao tác văn bản khung xem trước bên phải, bạn cần sử dụng ActiveExplorer 'S ActiveInlineResponseWordEditor tài sản như thế này:

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

— thims
nguồn