☰

Outlook 2013 - VBA - インライン返信

tag-icon • tag-icon email microsoft-outlook vba
Outlook 2013 - VBA - インライン返信

最初のオートコレクト オプションを自動的に選択する小さなスクリプトを作成しました。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

答え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

関連情報