如何在Outlook VBA数组中使用通配符筛选并移动邮件？

要让你的脚本支持通配符匹配邮件主题，核心是把原脚本中的精确匹配（=）改成模糊匹配（LIKE），同时遵循Outlook支持的通配符规则：

• *：匹配任意长度的任意字符（包括空字符）
• ?：匹配单个任意字符
• 如果主题里包含[、]这类本身属于LIKE通配符的字符，需要用[[]和[]]转义，避免被当作字符范围解析。

修改后的完整代码 #

Sub MoveItems()
    Dim myNameSpace As Outlook.Namespace
    Dim myInbox As Outlook.Folder
    Dim myDestFolder As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim myItem As Object
    Dim varSearchTerm As Variant

    Set myNameSpace = Application.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myItems = myInbox.Items
    Set myDestFolder = myInbox.Folders("test")

    ' 替换为带通配符的主题模式，注意转义[和]
    For Each varSearchTerm In Array( _
        "Automatic Scheduled Task from FOO *", _
        "[[]PROD[]] v12.11.102.99 *" _
    )
        ' 使用LIKE操作符实现通配符匹配
        Set myItem = myItems.Find("[Subject] LIKE '" & varSearchTerm & "'")
        While TypeName(myItem) <> "Nothing"
            myItem.Move myDestFolder
            Set myItem = myItems.FindNext
        Wend
    Next
End Sub

关键修改点说明 #

1. 替换匹配操作符：将原代码中的[Subject] = '&...&'改为[Subject] LIKE '&...&'，启用模糊匹配逻辑。
2. 通配符主题数组：把数组内的完整主题替换为带*的模式，比如"Automatic Scheduled Task from FOO *"会匹配所有以该字符串开头的邮件主题。
3. 转义特殊字符：原主题中的[PROD]包含[和]，这两个字符在LIKE语法中用于定义字符范围（比如[A-Z]），所以需要转义成[[]PROD[]]，确保脚本匹配的是实际的[PROD]字符串，而非解析为通配符规则。

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