vba - 打开电子邮件时运行宏的规则

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