Feuer ein Outlook 2003-Makro, wenn der Benutzer eine neue leere Nachricht erzeugt

Question

Ich fand Ereignisse, dass Feuer, wenn der Benutzer eine Nachricht empfängt, oder trifft auf die Sendetaste, aber nichts, das Feuer, wenn der Benutzer erstellt eine leere, neue E-Mail.

Answer 1

Es sollte möglich sein, das NewInspector Ereignis zu verwenden. Beispiel:

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