Discussion :

[kuchiky]

Bonjour,

J'ai donc testé le code de la FAQ permettant de transférer les mails reçu d'un certain expéditeur et cela fonctionne correctement

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
22
23
Function DeplacerMessage(Nom As String, Dossier As String)
    Dim myOlApp As Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim myItems As Outlook.Items
    Dim myRestrictItems As Outlook.Items
    Dim myItem As Outlook.MailItem
 
    Set myOlApp = Outlook.Application
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myItems = myFolder.Items
    Set myRestrictItems = myItems.Restrict("[De] = '" & Nom & "'")
    For i = myRestrictItems.Count To 1 Step -1
        myRestrictItems(i).Move myFolder.folders(Dossier)
    Next
End Function
 
Sub test()
 
   DeplacerMessage "blabla@xxx.xxx", "test"
 
End Sub

Cependant, je bloque sur deux choses:
1) Je n'arrive pas à adapter le code de façon à ce qu'il prenne en compte l'objet du mail (en plus de cela il faudrait que ce ne soit pas l'objet en intégralité mais seulement une partie) au lieu de prendre en compte l'expéditeur.
Par exemple: J'ai plein de mail constituer de cette façon: "MonProjet 1 Send", "MonProjet 2 Send", "MonProjet 3 Send"...
Je voudrais donc que tous les mails ayant comme Objet "MonProjet X Send" soient transféré dans mon dossier "MonProjet"

2) J'ai fait quelques tests et ce code ne marche que pour les dossier qui sonr "fils" de "Boîte de Reception". Je voudrais que cela marche sur des dossiers de même niveau que Boîte de Reception.
Ayant chercher de mon côté, j'ai vu quelque chose du genre, mais qui n'a pas l'air de fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).parent

En vous remerciant d'avance pour votre aide.

[kuchiky]

Problème résolu