如何使用vba筛选Outlook中未分类的项目

创建宏以从outlook中的所有未分类邮件中提取某些数据时。我可以通过使用循环和检查收件箱中每封邮件的状态来获取数据，但是收件箱中的邮件数量很大。那么，有没有一种方法可以只过滤未分类的邮件，然后从过滤后的邮件中获取数据呢

我尝试了以下代码。然而，这对我不起作用

Mailbox = Cells(k, 1).Value

Set Fldr = olNs.Folders(Mailbox).Folders("inbox")
Fldr.Items.Restrict ("[Category]=[]")

是否有一种方法可以加速宏。

这介绍了如何“”

---

这可能有助于“描述问题”。它不起作用“不是问题陈述。”它不起作用意味着代码什么也不做。它只返回整个项目当有人回答我的问题时，我该怎么办？接受答案不是强制性的。您可以随时更改接受的答案，或者干脆取消接受答案。

Sub NullCategoryRestriction() 
    Dim oFolder As Outlook.Folder 
    Dim oItems As Outlook.Items 
    Dim Filter As String 

    'DASL Filter can test for null property. 
    'This will return all items that have no category. 
    Filter = "@SQL=" & Chr(34) & _ 
     "urn:schemas-microsoft-com:office:office#Keywords" & _ 
     Chr(34) & " is null" 
    Set oFolder = Application.ActiveExplorer.CurrentFolder 
    Set oItems = oFolder.Items.Restrict(Filter) 
    Debug.Print oItems.Count 
End Sub