Outlook Restrict方法无法检索收件箱及已发送邮件箱部分项目问题问询

• 首先修复语法错误：代码中Program_type赋值行存在语法问题，原写法Sup_ENg_Number..Offset(, 3)Value多了一个点、缺了属性调用点，改为Sup_ENg_Number.Offset(, 3).Value即可，该错误会导致筛选条件取值异常，是返回结果不符合预期的高频原因。
• 统一文件夹引用逻辑：当前收件箱用GetDefaultFolder(olFolderInbox)取的是Outlook默认账户的收件箱，而已发送文件夹指定了myEmailaddress账户，如果你的默认账户和该账户不一致，会出现查询的收件箱根本不是目标账户的问题，建议收件箱也改为指定账户的写法：

  Set objFolder = objNamespace.Folders("myEmailaddress").Folders("收件箱")
  

• 修复DASL筛选拼接漏洞：
  1. 增加单引号转义逻辑：如果三个筛选值本身包含单引号，会直接破坏筛选字符串的语法结构，导致筛选失效，赋值时要对单引号做转义：

     supNumber = "'" & Replace(Sup_ENg_Number.Value, "'", "''") & "'"
     compName = "'" & Replace(Sup_ENg_Number.Offset(, 1).Value, "'", "''") & "'"
     Program_type = "'" & Replace(Sup_ENg_Number.Offset(, 3).Value, "'", "''") & "'"
     

  2. 调整匹配逻辑：ci_phrasematch为严格短语匹配，要求内容和筛选值完全一致且连续，如果匹配失败可以换成like做模糊匹配，或者确认要匹配的内容确实在邮件正文中（如果内容在主题中需要替换字段为urn:schemas:httpmail:subject）。
• 优化Outlook items查询逻辑：Restrict方法对未排序、存在非邮件项目的文件夹查询时容易漏项，执行筛选前先做如下处理：

  ' 先按接收时间排序，避免Restrict漏项
  objFolder.Items.Sort "[ReceivedTime]", True
  ' 过滤仅保留邮件类型项目，排除会议邀请、通知等干扰项
  strFilter = "(""urn:schemas:httpmail:messagetype"" = 'IPM.Note') AND " & strFilter
  

• 补充变量定义：在模块顶部增加Option Explicit，同时补充fol、SentFilteredItems、Found三个未定义变量的声明，避免未定义变量导致的运行异常。

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