Excel VBA @SQL字符串过滤器多个LIKE条件

时间:2017-03-14 03:42:53

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

此代码按预期工作,但我还需要在主题行中排除Autoreplies和其他一些字符串。我需要知道是否可以添加2或3个Likes。

我尝试了And和Or条件,但我得到了一个解析错误。

以下代码有效。我只需要在无法传递之后添加另一个字符串条件。 " Like '%Automatic reply%'".

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

感谢。

1 个答案:

答案 0 :(得分:2)

OR 应该有效,以下示例包含%undeliverable%%Automatic reply%

Filter = "@SQL=" & " Not (urn:schemas:httpmail:subject" & _
                   " Like '%undeliverable%'  Or " & _
                         "urn:schemas:httpmail:subject" & _
                   " Like '%Automatic reply%')"

再添加一个过滤器

Filter = "@SQL=" & " Not (urn:schemas:httpmail:subject" & _
                   " Like '%undeliverable%'  Or " & _
                         "urn:schemas:httpmail:subject" & _
                   " Like '%Automatic reply%' Or " & _
                         "urn:schemas:httpmail:subject" & _
                   " Like '%Bla Bla%')"