Outlook VBA中PR_HASATTACH取反恒为真的原因及解决方法

问题背景 #

此前参考Dmitry Streblechenko的建议，为高效从Outlook Table中获取邮件附件数，计划先判断PR_HASATTACH属性是否为真，仅当为真时再调用较慢的MailItem.Attachments.Count。但实现代码出现两个问题：

• VBA的IIf会同时计算两个分支，导致效率未提升；
• Not(oTableRow("http://schemas.microsoft.com/mapi/proptag/0x0E1B000B"))恒为真，结果始终返回0。

问题原因分析 #

1. IIf的特性导致无效优化
   VBA的IIf是函数而非流程控制语句，调用时会先计算所有参数表达式——不管条件是否成立，都会执行GetItemFromID和Attachments.Count，完全起不到跳过慢操作的作用，自然无法提升效率。

2. PR_HASATTACH属性值判断错误
   PR_HASATTACH（属性标签0x0E1B000B）是布尔类型，但在Outlook Table中，布尔值会以整数形式返回：True对应-1，False对应0。直接用Not判断时：

• 若属性值为0（无附件），Not 0返回-1（逻辑真）；
• 若属性值为-1（有附件），Not -1返回0（逻辑假）；
  如果Table未加载该列，oTableRow返回空值，Not处理空值也会得到逻辑真，最终导致判断恒为真，结果始终为0。

修复方案及代码 #

核心修复点 #

• 用If...Then...Else流程控制替代IIf，仅在条件满足时执行慢操作；
• 确保Table已加载PR_HASATTACH列，正确转换或判断属性值。

修复后的代码示例 #

Dim nAttachments As Integer
Dim hasAttach As Boolean
Dim oNamespace As Outlook.NameSpace

' 提前确保Table包含PR_HASATTACH列（若未添加）
oTable.Columns.Add "http://schemas.microsoft.com/mapi/proptag/0x0E1B000B"

' 获取属性值并转换为布尔类型
hasAttach = CBool(oTableRow("http://schemas.microsoft.com/mapi/proptag/0x0E1B000B"))

Set oNamespace = Application.GetNamespace("MAPI")
If hasAttach Then
    ' 仅当有附件时才加载MailItem获取附件数
    nAttachments = oNamespace.GetItemFromID(oTableRow("EntryID")).Attachments.Count
Else
    nAttachments = 0
End If

简化判断版本（直接用整数判断） #

Dim nAttachments As Integer
Dim attachProp As Variant

oTable.Columns.Add "http://schemas.microsoft.com/mapi/proptag/0x0E1B000B"
attachProp = oTableRow("http://schemas.microsoft.com/mapi/proptag/0x0E1B000B")

If attachProp = -1 Then ' PR_HASATTACH为True时返回-1
    nAttachments = Application.GetNamespace("MAPI").GetItemFromID(oTableRow("EntryID")).Attachments.Count
Else
    nAttachments = 0
End If

额外注意事项 #

• 必须提前通过oTable.Columns.Add添加PR_HASATTACH列，否则oTableRow无法获取到属性值，判断会出错；
• 复用Outlook.NameSpace对象可以避免重复创建，进一步提升效率。

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