我发现当用户收到消息或点击发送按钮时会触发事件,但当用户创建空白的新电子邮件时不会触发任何事件。
最佳答案
您应该能够使用 NewInspector 事件。示例:
Public WithEvents myOlInspectors As Outlook.Inspectors
Private Sub Application_Startup()
Initialize_handler
End Sub
Public Sub Initialize_handler()
Set myOlInspectors = Application.Inspectors
End Sub
Private Sub myOlInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
Dim msg As Outlook.MailItem
If Inspector.CurrentItem.Class = olMail Then
Set msg = Inspector.CurrentItem
If msg.Size = 0 Then
MsgBox "New message"
End If
End If
End Sub
关于vba - 当用户创建新的空白邮件时触发 Outlook 2003 宏,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3674832/