Feu d'Outlook 2003 macro lorsque l'utilisateur crée un nouveau message vide

Question

J'ai trouvé les événements que le feu lorsque l'utilisateur reçoit un message, ou clique sur le bouton d'envoi, mais rien que le feu lorsque l'utilisateur crée un vide, nouveau courriel.

Answer 1

Vous devriez être en mesure d'utiliser l'événement NewInspector. Exemple:

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