Exchange环境下Outlook VBA的Items.Restrict仅匹配部分邮件如何修改查询？

基础背景 #

• 归档操作流程：
  • 手动将发件箱中的待归档邮件移至收件箱，确保所有待处理邮件统一存入收件箱后，运行自定义代码完成归档
• 配置适配背景：
  此前在POP3/PST文件配置下，搭配Outlook规则+自定义代码可完整实现所有收件箱规则；切换为Exchange配置后，原生Outlook规则频繁出现重复生成、与服务器同步失败等问题，因此改用自定义轻量方案替代
• 自定义规则逻辑：规则格式为@somedomain.dk|XYZ，将所有收发件人包含@somedomain.dk域的邮件，移动到Exchange对应的XYZ文件夹
• 现有实现：
  通过Set mItems = inbox.Items.Restrict(strQry)筛选待移动邮件，当前使用的可正常运行的查询语句为：

  @SQL="urn:schemas:httpmail:displayto" like '%somedomain.dk%' OR 
  "urn:schemas:httpmail:fromemail" like '%somedomain.dk%'
  

异常现象 #

当前收件箱共7封待处理邮件：4封为来自目标域的收件邮件，3封为发往目标域的已发送邮件。运行代码后仅能匹配到5封邮件，漏匹配的是2封回复类已发送邮件。
经Outlook Spy排查确认：手动撰写的邮件MailItem.To字段会同时存储收件人姓名和邮箱地址，但回复类邮件的MailItem.To字段仅存储联系人姓名，直接匹配域名关键词无法识别这类邮件。

问题修正方案 #

1. 匹配漏判原因
   现有查询用到的urn:schemas:httpmail:displayto字段，仅存储Outlook解析后的收件人显示字符串。当回复邮件的收件人来自Outlook全局地址簿/本地联系人缓存时，该字段只会填充联系人的显示姓名，不会附带完整邮箱地址字符串，因此无法命中域名匹配规则。
2. 查询语句修正
   补充存储实际收件人SMTP地址的Exchange原生Schema字段到查询条件中，修正后的查询语句示例为：

   strQry = "@SQL=" & _
       "((""urn:schemas:httpmail:fromemail"" like '%somedomain.dk%') OR " & _
       "(""urn:schemas:httpmail:displayto"" like '%somedomain.dk%') OR " & _
       "(""urn:schemas:httpmail:sendetoaddress"" like '%somedomain.dk%'))"
   

   新增的urn:schemas:httpmail:sendetoaddress字段会完整存储所有收件人的实际SMTP地址，不受显示名字段的缓存逻辑影响，哪怕displayto只存了联系人姓名，该字段也会保留完整邮箱地址信息，可以覆盖之前漏匹配的回复类邮件场景。
3. 兜底校验逻辑
   如果调整查询后仍存在漏匹配，可在代码中对筛选出的邮件集合做二次校验：逐个遍历每个MailItem的Recipients集合，提取每个收件人AddressEntry对应的SmtpAddress属性判断是否匹配目标域名，这种方式匹配准确率最高，不受不同类型邮件的字段存储差异影响。
   注意VBA编写SQL查询时，字符串内的双引号需要用两个连续双引号转义，避免语法错误导致Restrict方法执行失败。

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