Exécution d'une macro Outlook 2003 lorsque l'utilisateur crée un nouveau message vide

Question

J'ai trouvé des événements qui se déclenchent lorsque l'utilisateur reçoit un message ou touche le bouton d'envoi, mais rien qui se déclenche lorsque l'utilisateur crée un nouvel e-mail vide.

Answer 1

Vous devriez pouvoir 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