Excel vba Items.restrict 2条件

时间:2017-03-07 12:54:23

标签: excel vba excel-vba outlook

我需要有关如何将其置于限制语法中的帮助。原始限制工作:

Set myTasks = Fldr.Items.Restrict("[ReceivedTime]>'" & Format(Date - daysAgo, "DDDDD HH:NN") & "'")

现在我被告知可以将2个过滤器放入限制中,所以我试过了:

Set myTasks = Fldr.Items.Restrict("[ReceivedTime]>'" & Format(Date - daysAgo, "DDDDD HH:NN") & "' And Not [Subject] like '%Undeliverable%'")

我尝试了上面的代码,但我收到错误"条件无效"。基本上,条件1根据收到的日期过滤电子邮件,这些电子邮件单独工作。我需要的第二个条件是确保循环将忽略具有" Undeliverable"的电子邮件。在主题行。请帮忙说明如何使用正确的语法。

1 个答案:

答案 0 :(得分:0)

回答你提出的问题,而不是你想回答的问题。

两个限制可以一个接一个地应用,但两个都必须工作。在这种情况下,可能无法使用“无主题”过滤器。

您可以先使用此过滤器的非版本" @SQL ="过滤文件夹中的项目(如果可能)。 &安培; Chr(34)& "瓮:模式:HTTP邮件:受试者#34; &安培; Chr(34)& "喜欢'%无法交付%'"如评论中所述。 https://stackoverflow.com/a/27350173/1571407

Set myTasks = Fldr.Items.Restrict(Not .... '%Undeliverable%'")

其次,过滤Mytasks,而不是Fldr:

Set myTasks = myTasks.Restrict("[ReceivedTime]>'" & Format(Date - daysAgo, "DDDDD HH:NN") & "'")