電子メールが開いている場合にのみマクロを実行

Question

電子メールを処理するスクリプトがあります。ユーザーはフォームを使用してこのスクリプトを実行することができます。

電子メールを開いてフォーカスがある場合にのみ、フォームを使用できるようにします。

objApp.ActiveInspector.CurrentItem 

メールであり、他の開いているウィンドウではありません。だから、どのように私は、中CurrentItemがいることを確認することができますか？

Answer 1

アイテムがMailitem

Option Explicit 
Sub Item_Info() 
    Dim Active_Item As Object 

    Set Active_Item = Application.ActiveInspector.CurrentItem 

    If TypeOf Active_Item Is Outlook.MailItem Then 
     Debug.Print Active_Item.Subject 
    End If 

End Sub 

であれば、実施例は、対象印刷する吹い方法

をActiveInspector使用、開いており、フォーカスたメールアイテムと連携します