Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
'Déclartions
Dim MonApp As Outlook.Application
Dim MonMail As Outlook.MailItem
Dim MonNameSpace As Outlook.NameSpace
Dim MonDossier As Outlook.Folder
'Instance des variables
Set MonApp = Outlook.Application
Set MonNameSpace = MonApp.GetNamespace("MAPI")
Set MonDossier = MonNameSpace.Folders("Boîte aux lettres - SERVICE").Folders("Boîte de réception")
Set MonMail = MonDossier.Items
'Test si l'expéditeur correpond dans ce cas on déplace le mail
'vers le dossier Temp de votre boîte de réception
Debug.Print MonMail.SenderName
If MonMail.SenderName = "personne@domaine.fr" Then
MonMail.Move myNamespace.Folders("Boîte aux lettres - SERVICE").Folders("DEMANDES").Folders("EN COURS")
End If
End Sub