用戶創建新的空白郵件時觸發Outlook 2003宏

Question

我發現當用戶收到郵件或點擊發送按鈕時觸發的事件，但當用戶創建空白的新電子郵件時觸發事件。

Answer 1

您應該可以使用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