Je me lance dans des macros sous outlook pour pouvoir déplacer un message.
J'ai trouvé un bout de programme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 
'
    'Déclarations
    Dim MonApp As Outlook.Application
    Dim MonMail As Object
    Dim MonNameSpace As Outlook.NameSpace
    Dim MonDossier As Outlook.Folder
 
    'Instance des objets
    Set MonApp = Outlook.Application
    Set MonNameSpace = MonApp.GetNamespace("MAPI")
    Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
    Set MonMail = Application.Session.GetItemFromID(EntryIDCollection)
 
        'Test si l'expéditeur correspond dans ce cas on déplace le mail
        'vers le dossier Temp de votre boîte de réception
        If MonMail.SenderEmailAddress = "personne@domaine.fr" Then
            MonMail.Move MonDossier.Folders("Temp")
        End If
End Sub
quand je créé un mail il me fais l'erreur suivante sur le Private sub

Microsoft Visual Basic
Erreur de compilation:
Type défini par l'utilisateur non défini

<OK> <Aide>

Je fais ok mais rien se passe.

Est-je merdé quelque part ....

Merci