打開電子郵件時運行宏的規則

Question

我已經創建了一個可以打開郵件的宏。我想創建一個規則，當我打開郵件時自動執行該規則。

我不希望這條規則全部運行，只是當我打開一封郵件時，我不希望在收到的每封郵件上強制執行此規則。

Answer 1

繼@ZZA意見，

試試這個代碼：

Public WithEvents myItem As Outlook.MailItem 

Private Sub Application_ItemLoad(ByVal Item As Object) 
    If Item.Class = olMail Then 
     Set myItem = Item 
    End If 
End Sub 


Private Sub myItem_Open(Cancel As Boolean) 

    'Your code 
End Sub 

代碼粘貼在ThisOutlookSession

編輯

爲了避免'Your code觸發，我們需要一個事件事件禁用者：

Public WithEvents myItem As Outlook.MailItem 
Public EventsDisable as Boolean 

Private Sub Application_ItemLoad(ByVal Item As Object) 
    If EventsDisable = True Then Exit Sub 
    If Item.Class = olMail Then 
     Set myItem = Item 
    End If 
End Sub 


Private Sub myItem_Open(Cancel As Boolean) 
    EventsDisable=True 
    'Your code 
    EventsDisable=False 
End Sub