Discussion :

[DPhBxl]

Bonjour,

J'aimerai combiner un filtre DASL qui permet de compter le nombre de mail sans catégorie avec un filtre JET qui permet de filtrer sur base de [Receivedtime].
Le filtre DASL est >>> "@SQL=" & Chr(34) & "urn:schemas-microsoft-com:office:office#Keywords" & Chr(34) & " is null".
Le filtre JET est >>> "[Receivedtime] < '13-06-2019'".
Comment lier les deux avec AND ou me permettre de trouver les mails sans catégorie reçu avant une date ?

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
Sub NullCategoryAndDateRestriction() 
 
 Dim oFolder As Outlook.Folder 
 Dim oItems As Outlook.Items 
 Dim FilterDASL As String 
 Dim FilterJET as String
 
 Set oFolder = Application.ActiveExplorer.CurrentFolder 
 
 FilterDASL = "@SQL=" & Chr(34) & "urn:schemas-microsoft-com:office:office#Keywords" & Chr(34) & " is null" 
 Set oItems = oFolder.Items.Restrict(FilterDASL) 
 Debug.Print oItems.Count 
 
 FilterJET = "[Receivedtime] < '13-06-2019'" 
 Set oItems = oFolder.Items.Restrict(FilterJET) 
 Debug.Print oItems.Count
 
End Sub

Merci pour votre aide.
Philippe

[DPhBxl]

J'ai trouvé une solution … Je transforme la condition JET en requête DASL et j'utilise AND.

Donc pour compter le nombre de mails présent dans la Inbox sans catégorie ET ayant une date de réception maximum :

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
 
Sub NullCategoryAndDateRestriction() 
 
 Dim oFolder As Outlook.Folder 
 Dim oItems As Outlook.Items 
 Dim FilterDASL As String 
 
 Set oFolder = Application.ActiveExplorer.CurrentFolder 
 
 FilterDASL = "@SQL=" & Chr(34) & "urn:schemas:httpmail:datereceived" & Chr(34) & " <= '13-06-2019'" & _
              " AND" & Chr(34) & "urn:schemas-microsoft-com:office:office#Keywords" & Chr(34) & " is null"
 Set oItems = oFolder.Items.Restrict(FilterDASL) 
 Debug.Print oItems.Count
 
End Sub

J'espère que ma recherche aidera d'autre utilisateur.