Outlook规则运行VBA脚本过滤邮件HTML源码相关问题咨询

你提供的代码缺少结束语句，同时可以增加容错与自定义判断逻辑，优化后代码如下：

Sub filter(Item As Outlook.MailItem)
    Dim source As String
    Dim ns As Outlook.NameSpace
    Dim MailDest As Outlook.Folder
    Set ns = Application.GetNamespace("MAPI")
    source = Item.HTMLBody
    ' 如需限定仅发件人为hello@me.com时触发，保留下一行，否则删除即可
    If Item.SenderEmailAddress = "hello@me.com" Then
        ' vbTextCompare参数可设置为忽略大小写匹配，无需区分大小写可删除该参数
        If InStr(1, source, "email<o:p>", vbTextCompare) > 0 Then
            ' 增加容错逻辑，文件夹不存在时自动新建
            On Error Resume Next
            Set MailDest = ns.Folders("Personal Folders").Folders("test")
            If Err.Number <> 0 Then
                Set MailDest = ns.Folders("Personal Folders").Folders.Add("test")
                Err.Clear
            End If
            On Error GoTo 0
            Item.Move MailDest
        End If
    End If
End Sub

• 如果移除代码中的参数“Item”，是否需要使用ThisOutlookSession模块？
  是的。当前带Item As Outlook.MailItem参数的宏是规则触发专用的格式，移除参数后你无法通过规则直接传递当前收到的邮件对象给宏，要实现自动触发就必须将代码放在ThisOutlookSession模块中，绑定Application_NewMailEx事件来获取新收件的邮件实例，否则无参数的宏仅能手动点击运行，无法自动关联处理新邮件。

• 触发该脚本执行的具体步骤是什么？
  两种常用触发方式：

  1. 规则触发（推荐，配置灵活）：
  • 先将上述VBA代码存放在Outlook VBA编辑器的标准模块中（按Alt+F11打开编辑器，右键项目选择插入-模块，粘贴代码后保存）
  • 调整Outlook宏安全设置后重启Outlook
  • 打开规则管理器，新建规则选择「对我接收的邮件应用规则」，按需求设置触发条件后，操作选择「运行脚本」，选中该filter宏，保存启用规则即可
  2. 事件自动触发：
  • 将绑定NewMailEx事件的代码放在ThisOutlookSession模块，重启Outlook后会自动生效，无需额外配置规则

• 我新建规则时，操作列表中没有“运行宏”选项该如何处理？
  该问题由宏安全设置限制导致，按以下步骤排查：

  1. 打开Outlook，依次点击「文件」-「选项」-「信任中心」-「信任中心设置」-「宏设置」
  2. 选择「为所有宏提供通知」，测试阶段可临时选择「启用所有宏」，点击确认后重启Outlook
  3. 如仍无该选项，确认你的VBA代码无语法错误，且存放在当前Outlook的VBA项目中，不是其他办公文档的宏。企业域环境下可能是管理员禁用了规则运行宏的权限，需联系IT调整组策略配置。

• 我需要配置“发件人为hello@me.com时触发该VBA脚本”的规则，但在Outlook规则管理器中找不到对应选项，麻烦解答相关问题。
  该配置项存在，操作路径如下：

  1. 新建规则选择「对我接收的邮件应用规则」，进入条件设置页
  2. 找到条件列表中的「发件人为个人或公用组」，勾选后点击下方说明栏中带下划线的「个人或公用组」
  3. 在弹出的地址选择窗口中，手动输入hello@me.com或者从通讯录中选中该地址，确认后下一步设置运行脚本的操作即可
  4. 你也可以直接使用上述优化后的代码，内置了发件人判断逻辑，规则中无需额外配置发件人条件，适配性更强。

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