[VBA] Outlook et AdvancedSearch

[Sunchaser]

Bonsoir,

Une question au sujet de Outlook.AdvancedSearch(...), pour lequel j'ai trouvé qq exemples qui permettent des recherches dans les dossiers et sous-dossiers de la boite de reception généralement.
Ils me donnent par ex :

Code :

1
2
 
Const strS1 As String = "Inbox"

pour spécifier le dossier 'Boite de reception' et

Code :

1
2
 
SearchSubFolders:=True

comme paramètre de la fonction pour permettre d'inclure les sous dossiers apparemment....
Bon d'accord mais si je veux observer les autres dossiers, et particulièrement ceux de la 'catégorie' Eléments envoyés ..."OutBox" semble être le nom du dossier 'Boite d'envoi', quel est la dénomination du dossier 'Eléments envoyés' ?
C'est bête comme question, mais je le trouve nulle part

Merci, @ +

[LedZeppII]

Salut,
tu peux essayer "Sent Items".
Au boulot j'ai Outlook en englais et c'est comme ça que s'appelle le dossier des élts envoyés.

[Sunchaser]

Bonjour,

J'ai essayé précédemment avec ce terme et ceux qui s'en approchent, mais il me lance une erreur a l'execution 'Echec de l'opération'....
Je suis en train de bricoler un petit truc pour parcourir tous les dossiers a partir de :

Code :

1
2
3
4
5
 
    Dim ns As Outlook.Namespace
    Set ns = Outlook.GetNamespace("MAPI")
    Dim pF As Outlook.MAPIFolder
    Set pF = ns.GetDefaultFolder(olFolderSentMail)

Même si c'etait juste pour moi et sans prétention aucune, je préfèrerais tout de même que ça soit 'propre'

@ +

[LedZeppII]

Salut,
J'arrive à passer dans le code d'exemple avec strS1 = "'Sent Items'"
Par contre je ne récupère rien du tout.
Bon courage

[LedZeppII]

Je viens de trouver ça sur msdn :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 
urn:content-classes:message 
--------------------------------------------------------------------------------
The urn:content-classes:message content class defines a set of properties for an item that is a message.
Extends
 
urn:content-classes:item 
ProgID
 
CDO.Message 
Properties
 
urn:schemas:mailheader:approved 
urn:schemas:httpmail:attachmentfilename 
urn:schemas:mailheader:bcc 
urn:schemas:httpmail:bcc 
urn:schemas:httpmail:cc 
urn:schemas:mailheader:cc 
urn:schemas:mailheader:comment 
urn:schemas:mailheader:content-base 
urn:schemas:mailheader:content-class 
urn:schemas:mailheader:content-description 
urn:schemas:mailheader:content-disposition 
urn:schemas:httpmail:content-disposition-type 
urn:schemas:mailheader:content-id 
urn:schemas:mailheader:content-language 
urn:schemas:mailheader:content-location 
urn:schemas:httpmail:content-media-type 
urn:schemas:mailheader:content-transfer-encoding 
urn:schemas:mailheader:content-type 
urn:schemas:mailheader:control 
urn:schemas:httpmail:date 
urn:schemas:mailheader:date 
urn:schemas:httpmail:datereceived 
urn:schemas:httpmail:displaycc 
urn:schemas:httpmail:displayto 
urn:schemas:mailheader:disposition 
urn:schemas:mailheader:disposition-notification-to 
urn:schemas:mailheader:distribution 
urn:schemas:mailheader:expires 
urn:schemas:mailheader:expiry-date 
urn:schemas:httpmail:flagcompleted 
urn:schemas:mailheader:followup-to 
urn:schemas:httpmail:from 
urn:schemas:mailheader:from 
urn:schemas:httpmail:fromemail 
urn:schemas:httpmail:fromname 
urn:schemas:httpmail:hasattachment 
urn:schemas:httpmail:htmldescription 
urn:schemas:httpmail:importance 
urn:schemas:mailheader:importance 
urn:schemas:mailheader:in-reply-to 
urn:schemas:mailheader:keywords 
urn:schemas:mailheader:lines 
urn:schemas:mailheader:message-id 
urn:schemas:httpmail:messageflag 
urn:schemas:mailheader:mime-version 
urn:schemas:mailheader:newsgroups 
urn:schemas:httpmail:normalizedsubject 
urn:schemas:mailheader:organization 
urn:schemas:mailheader:original-recipient 
urn:schemas:mailheader:path 
urn:schemas:mailheader:posting-version 
urn:schemas:httpmail:priority 
urn:schemas:mailheader:priority 
urn:schemas:mailheader:received 
urn:schemas:mailheader:references 
urn:schemas:mailheader:relay-version 
urn:schemas:httpmail:reply-by 
urn:schemas:mailheader:reply-by 
urn:schemas:httpmail:reply-to 
urn:schemas:mailheader:reply-to 
urn:schemas:mailheader:return-path 
urn:schemas:mailheader:return-receipt-to 
urn:schemas:httpmail:savedestination 
urn:schemas:httpmail:saveinsent 
urn:schemas:mailheader:sender 
urn:schemas:httpmail:sender 
urn:schemas:httpmail:senderemail 
urn:schemas:httpmail:sendername 
http://schemas.microsoft.com/exchange/sensitivity 
urn:schemas:mailheader:sensitivity 
urn:schemas:httpmail:subject 
urn:schemas:mailheader:subject 
urn:schemas:httpmail:submitted 
urn:schemas:mailheader:summary 
urn:schemas:httpmail:textdescription 
urn:schemas:mailheader:thread-index 
urn:schemas:mailheader:thread-topic 
urn:schemas:httpmail:thread-topic 
urn:schemas:httpmail:to 
urn:schemas:mailheader:to 
urn:schemas:mailheader:x-mailer 
urn:schemas:mailheader:x-message-completed 
urn:schemas:mailheader:x-message-flag 
urn:schemas:mailheader:x-unsent 
urn:schemas:mailheader:xref

ça doit pourvoir servir pour des recherches plus poussées.

[Sunchaser]

Bonjour,

J'ai éssayé, comme je te l'avais dis, avec tout ce qui ressemble a

Sent Items

dans des orthographes différentes (et donc, au bout d'un certain nombre d'essai totalement farfelues), mais il continue a me bloquer sur ce type de dossier.
(nb : pour les autres du type boite d'envoi, mails reçus, etc...pas de problème)
En tout cas merci pour la liste de 'critères', on ne peut pas faire plus exhaustif !

@ +

[LedZeppII]

Salut Cantrelle,
Juste pour être sûr :
Je ne sais pas si tu as remarqué qu'à l'intérieur des doubles guillemets, il y a des guillemets simples.
De ce que j'ai compris pour explorer plusieurs dossiers la syntaxe serait par exemple

Code :

strS1 = "'Inbox", 'Sent Items', 'Draft'"

[sl.info]

Bonjour,
Plusieurs réponse pouvant étoffer ce topic me vienne à sa lecture

Merci LedZeppII pour la liste des champs, je me permet d'ajouter le lien suivant
http://www.outlookcode.com/files/schema.zip
qui donne le schema de chaque elements d'outlook (Message, Contact, Tache, Calendrier, Journal)

Envoyé par LedZeppII

Je ne sais pas si tu as remarqué qu'à l'intérieur des doubles guillemets, il y a des guillemets simples.
De ce que j'ai compris pour explorer plusieurs dossiers la syntaxe serait par exemple

Code :

strS1 = "'Inbox", 'Sent Items', 'Draft'"

Pour rechercher dans le dossiers "Eléments Envoyés" il faut penser à mettre les quotes simples comme dans une requete SQL car le nom du répertoire contient un espace.
Voici un exemple de suppression des messages dont le sujet est Test dans le dossier "Eléments Envoyés"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim olApp As Outlook.Application       ' Objet Outlook
    Dim olMail As Outlook.MailItem         ' Message Outlook
    Dim olSearch As Outlook.Search         ' Recherche Message précédent
    Dim olResult As Outlook.Results        ' Resultat de la recherche
    Dim i As Integer                       ' Compteur
 
    Set olApp = CreateObject("Outlook.Application")
    Set olSearch = olApp.AdvancedSearch("'Sent Items'", "urn:schemas:httpmail:subject = 'Test'")
    Set olResult = olSearch.Results
    Do Until olResult.Count = 0
        i = olResult.Count
        olResult.Item(i).Delete
    Loop
    Set olResult = Nothing: Set olSearch = Nothing
    olApp.Quit: Set olApp = Nothing

Pour info l'exemple vient d'une automation d'OUTLOOK sur ACCESS

[LedZeppII]

Merci sl.info pour le complément d'information.

Est-ce que tu aurais un petit example d'utilisation avec le schema d'un email sous la main ?
J'ai Outlook 2000 et seulement depuis peu Outlook 2003 en test. C'est comme ça que j'ai essayé AdvancedSearch.

Merci et à bientot.

[Sunchaser]

Bonsoir,

AdvancedSearch("'Sent Items'" //.....etc

Que nenni...j'ai déja essayé ceci et tout ce qui s'en approche et je vous assure que sur le PC sur lequel j'essaie, cela ne passe pas.
C'est bien ce qui m'embête justement puisque cela semblait acquis comme étant une vrai solution.

@+