VBA outlook new mail

Question

J'essaye d'exécuter une fonction chaque fois qu'un nouveau courrier arrive dans Outlook. J'ai fait quelques recherches mais je suis incapable de trouver le moyen de déclencher le code chaque fois qu'un email arrive. Y a-t-il un nouvel événement mail que je pourrais utiliser?

J'ai ajouté un simple MsgBox pour voir si l'événement se déclenche mais ne semble pas fonctionner. J'ai placé ce code dans le module ThisOutlookSession. Un adivice? Voici mon code.

Public WithEvents myOlApp As Outlook.Application 

    Sub Initialize_handler() 
     Set myOlApp = CreateObject("Outlook.Application") 
    End Sub 

    Private Sub myOlApp_NewMail() 
     Dim myExplorers As Outlook.Explorers 
     Dim myFolder As Outlook.MAPIFolder 
     Dim x As Integer 
     Set myExplorers = myOlApp.Explorers 
     Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
     If myExplorers.Count <> 0 Then 
      For x = 1 To myExplorers.Count 
       On Error GoTo skipif 
       If myExplorers.Item(x).CurrentFolder.Name = "Inbox" Then 
        MsgBox ("Test") 
        myExplorers.Item(x).Display 
        myExplorers.Item(x).Activate 
        Exit Sub 
       End If 
    skipif: 
      Next x 
     End If 
     On Error GoTo 0 
     myFolder.Display 
    End Sub 

Answer 1

Essayez de mettre:

 
Private Sub Application_NewMail() 
    MsgBox "New mail" 
End Sub 

Dans « ThisOutlookSession »

Answer 2

Il y a un bon exemple montrant comment MSDN pour afficher la boîte de réception lorsqu'un nouveau message arrive (en utilisant Outlook.Explorers). Vous pouvez probablement l'adapter assez facilement pour votre propre programme.