VBA 点赞运算符

Question

我想监控我们的 public 电子邮件文件夹以了解特定的新邮件是否到达，然后使用 MsgBox 创建弹出窗口 Window。除了使用 Like 运算符的匹配部分之外，一切都已设置并且运行良好。

我想匹配电子邮件主题中的以下字符串：

*XXX*YYY*

我设法使用：

Like "*XXX*YYY*"

让我苦恼的是当有人回复那封电子邮件并且主题更改为：

Re:*XXX*YYY* or Aw:*XXX*YYY*

如果是这样，我不想创建弹出消息，因为它是对原始电子邮件的答复。

我试过类似的东西：

If subject Like "*[!aw:]*" & "*[!re:]*" Then
   If subject Like "*XXX*YYY*" Then

在各种组合中，但我似乎无法正常工作。

有人可以帮忙吗？

Answer 1

嗯..你可以用

Dim s As String
s = "*XXX*YYYY*"
If (InStr(1, s, "Re:") = 0) And (InStr(1, s, "Aw:") = 0) Then
   If (s Like "*XXX*YYYY*") Then
        Debug.Print "Match"
   End If
End If

尽管： like 运算符使用通配符...所以实际上您匹配的不仅仅是字符串 *XXX*YYY*...

Answer 2

查找异常，然后与通配符进行比较：

Select Case UCase$(Left$(subject, 3))

    Case "RE:", "AW:":
        '// is reply
    Case Else
        If subject Like "*XXX*YYY*" Then
            MsgBox "Hello"
        End If

End Select

VBA 点赞运算符

VBA Like Operator

outlook

vba

pattern-matching

sql-like