Recherche dans outlook par VBA

[Ptitdark]

Bonjour,

 

Je commence à tripoter du VBA dans outlook 2003 pour retrouver des emails et les traiter automatiquement

J'utilise donc AdvancedSearch.

 

J'arrive à trouver les emails que j'ai reçu et effacé par ce bout de code :

Dim oSearch As Outlook.Search
Set oSearch = Application.AdvancedSearch("'Éléments supprimés'", "urn:schemas:httpmail:fromemail like '%toto%'")
blnSearchComp = False
While blnSearchComp = False
	DoEvents
Wend
Set oResult = oSearch.Results
MsgBox oResult.Count

Ma msgbox me renvoit bien le nombre d'emails qu'il y a dans la corbeille.

 

En revanche lorsque j'essaie de chercher les emails que j'ai envoyé, la recherche ne renvoie rien.

Dim oSearch As Outlook.Search
Set oSearch = Application.AdvancedSearch("'Éléments envoyés'", "[b]urn:schemas:httpmail:toemail[/b] like '%toto%'")
blnSearchComp = False
While blnSearchComp = False
	DoEvents
Wend
Set oResult = oSearch.Results
MsgBox oResult.Count

J'ai essayé :

- urn:schemas:httpmail:to

- urn:schemas:mailheader:to

- urn:schemas:mailheader:to

- urn:schemas:mailheader:recipient

- et d'autres divagations

la msgbox renvoie 0 tout le temps

 

Pour info, je fais attendre la recherche par cet évènement

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
blnSearchComp = True
End Sub

avec : Public blnSearchComp As Boolean

 

Au secours, mes neurones sont en train de se carapater tellement je fais fumer mon cerveau