☰

Outlook 2013 VBA: 閲覧ウィンドウでエディターを参照する

tag-icon • tag-icon microsoft-outlook vba microsoft-outlook-2013
Outlook 2013 VBA: 閲覧ウィンドウでエディターを参照する

メッセージを送信するときに、カテゴリを割り当てようとしています (送信遅延を無効にする「今すぐ送信」カテゴリ)。以下のマクロは、別のウィンドウでメッセージを編集するときには正常に機能しますが、読み取りウィンドウ エディターでメッセージを編集しているときにマクロを実行しようとすると、「Set msg = insp.CurrentItem」の行で停止し、「オブジェクト変数または With ブロック変数が設定されていません」というエラー メッセージが表示されます。

ドッキングされているときにエディターを適切に参照するにはどうすればよいですか? また、使用されているエディターの種類をテストするために使用できる条件テストはありますか?

ありがとう！

Public Sub SendNow()
Dim msg As Outlook.MailItem
Dim insp As Outlook.Inspector

Set insp = Application.ActiveInspector
Set msg = insp.CurrentItem
    If insp.EditorType = olEditorWord Then ' outlook 2013
        msg.Categories = "Send Now"
    End If
msg.Save
msg.Send

Set insp = Nothing
Set msg = Nothing
End Sub

答え1

見てみましょう:

 Set exp = Application.ActiveExplorer
 Set msg = exp.ActiveInlineResponse
 If Not msg Is Nothing Then
 ...

関連情報