Vba 将Outlook.Items对象限制为带有附件的电子邮件

我正在尝试将Outlook.Items对象（OBJITEMSREECTD2）限制为包含附件的电子邮件

我尝试了以下操作，没有出现错误消息，但没有进行筛选

query = "@SQL=" & Chr(34) & "urn:schemas:httpmail:hasattachment" & Chr(34) & "=1"

'restrict the set to Emails that have attachments
objitemsrestricted2.Restrict (query)

---

在您的查询中，使用

True

而不是

1

在您的查询中，使用

True

而不是

1

您的过滤器看起来不错-我们可以看到其余的代码吗？您的过滤器看起来不错-我们可以看到其余的代码吗？我意识到问题出在哪里了。这个查询是正确的，但我犯了一个粗心的错误。语句“objectitemsrestriced2.restrict（query）”错误。它应该是“Set-objitemsrestricted2=objitemsrestricted.restrict（查询）”。在我这样做之后，它工作正常。我意识到了问题所在。这个查询是正确的，但我犯了一个粗心的错误。语句“objectitemsrestriced2.restrict（query）”错误。它应该是“Set-objitemsrestricted2=objitemsrestricted.restrict（查询）”。在我这样做之后，它工作正常。