Rechercher et Déplacer Mail à partir d'une liste!

[kergad]

Bonjour à tous,

Voila je cherche à déplacer plusieurs e-mails de ma "Inbox" dans un dossier de ma boite mail.

Après traitement excel, j'ai une liste contenant l'intitulé des objets des mails dont je veux déplacer.

par étape je voudrais déjà trouve un mail par son objet et le déplacer

Pour l'instant j'arrive à lister mes mail mais je n'arrive pas rechercher et déplacer :/

[kergad]

Alors j'essai de faire fonctionner la fonction AvancedSearch avec le code ci dessous, mais impossible de le faire marcher. Le code tourne en boucle dans la boucle While blnSearchComp = False
DoEvents
Wend

Je ne comprend pas pourquoi car pourtant j'ai bien un mail avec Salut ne objet :/

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public blnSearchComp As Boolean
 
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
    MsgBox "The AdvancedSearchComplete Event fired"
    blnSearchComp = True
End Sub
 
 
Sub TestAdvancedSearchComplete()
    Dim sch As Outlook.Search
    Dim rsts As Outlook.Results
    Dim i As Integer
    blnSearchComp = False
    Const strF As String = "urn:schemas:mailheader:subject = 'Salut'"
    Const strS As String = "Inbox"
    Set sch = Application.AdvancedSearch(strS, strF)
    While blnSearchComp = False
        DoEvents
    Wend
    Set rsts = sch.Results
    For i = 1 To rsts.Count
        MsgBox rsts.Item(i).SenderName
    Next
End Sub

Si quelqu'un c'est déjà aventuré dans le VBA Outlook