AdvancedSearch Outlook 2003

[Ptit Dark]

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'", "urn:schemas:httpmail:toemail 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 et je n'arrive pas à m'en sortir

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

Merci pour tout aide.

[Dolphy35]

Salut,

tu trouveras peut être ton bonheur :

http://dolphy35.developpez.com/article/outlook/vba/#LV


Dolphy

[Ptit Dark]

Merci beaucoup, ça a l'air très bien. Je vais dévorer ce tuto.

Question annexe : est-il possible de savoir comment outlook fait quand on utilise la recherche avancée?
Parce que l'option d'enregistrement des macros n'est pas disponible dans outlook

[Dolphy35]

re,

Envoyé par Ptit Dark

Merci beaucoup, ça a l'air très bien. Je vais dévorer ce tuto.

Question annexe : est-il possible de savoir comment outlook fait quand on utilise la recherche avancée?
Parce que l'option d'enregistrement des macros n'est pas disponible dans outlook

Non, c'est le gros problème d'outlook, sa programmation est moins ludique qu'excel.



Dolphy