Excel VBA @SQL字符串过滤器

时间:2017-03-09 13:39:58

标签: vba excel-vba outlook outlook-vba outlook-filter

我一直在努力使这个陈述成为一个NOT语句:

strfilter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " like '%undeliverable%'"

这个strfilter正在items.restrict(strfilter)中使用,所以显然它正在检查包含无法传递这个词的所有电子邮件。

我需要做的是转换此声明,以便它将排除所有包含“无法送达”字样的主题的电子邮件。

我试过了,但它返回了一个解析错误:

"strFilter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " NOT '%undeliverable%'"
提前谢谢。

1 个答案:

答案 0 :(得分:1)

正确的语法是

Filter = "@SQL=" & " Not " & _
         "urn:schemas:httpmail:subject" & "" & _
         " Like '%undeliverable%'"

或者我更喜欢这个,比如

strFilter = "@SQL=" & " Not " & _
            "urn:schemas:httpmail:subject" & "" & _
            " ci_phrasematch 'undeliverable'"