如何用正则表达式判断变量含指定字符串及匹配Recipient.AdressEntry

嘿，我来帮你搞定这两个正则相关的问题，顺便优化你当前的Outlook代码～

如果只是要判断某个变量里是否包含特定字符串，正则是个靠谱的方案（当然简单场景下用VBA的InStr函数也能行，但正则更适合复杂匹配需求）。以VBA环境为例，你可以这么写：

首先创建正则对象实例，设置匹配规则，再用Test方法判断是否匹配：

Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = "你要找的字符串" ' 替换成目标内容
regEx.IgnoreCase = True ' 可选，开启后忽略大小写，比如能匹配"abc"和"ABC"

' 假设你的变量叫targetStr
If regEx.Test(targetStr) Then
    Debug.Print "变量包含指定字符串！"
    ' 这里写匹配后的逻辑
End If

看你现在的代码是硬编码判断等于具体的邮箱名称，这样确实太麻烦。咱们用正则来匹配所有包含"I351"的AddressEntry，就能一次性覆盖所有符合条件的同事啦。

修改后的代码如下：

Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = "I351" ' 核心匹配规则：只要AddressEntry里有"I351"就命中
regEx.IgnoreCase = False ' 因为"I351"是特定标识，这里保持大小写敏感，按需调整

For Each recip In recips
    ' 用正则测试当前收件人的AddressEntry
    If regEx.Test(recip.AddressEntry) Then
        objMsg.To = "example@mail.domain"
        objMsg.CC = recip.Address
        objMsg.Subject = Msg.Subject
        objMsg.Body = Msg.Body
        objMsg.Send
    End If
Next

如果需要更精确的匹配（比如只匹配逗号后面跟着的"I351"，避免误匹配类似"I3510"的内容），可以把正则规则优化一下：

• 匹配逗号后带任意空格的"I351"：,\s*I351
• 匹配独立的"I351"（不被其他字母数字包围）：\bI351\b

你可以根据实际的AddressEntry格式选择对应的规则～

内容的提问来源于stack exchange，提问作者khashashin