PR_LAST_VERB_EXECUTED在Outlook收件邮件中返回空值的问题排查

你在将Outlook收件邮件解析到Excel时，试图通过PR_LAST_VERB_EXECUTED属性标记邮件状态，但该属性返回空值导致状态判断失效。以下是问题原因和解决办法：

问题根源 #

1. 变量类型不匹配：PR_LAST_VERB_EXECUTED是32位整数属性，你代码中用String类型的Responded接收值，会触发类型不匹配，最终返回空值。
2. 未处理属性缺失场景：新收到的未操作邮件，该属性可能不存在，直接读取会报错。
3. 状态逻辑覆盖不全：仅判断了102（Reply）和103（Reply All），未包含Forwarded对应的104值。

修复方案 #

1. 修正变量类型与属性读取逻辑 #

将Responded改为Long类型，并增加错误捕获处理属性缺失的情况，同时完善状态判断分支：

' 替换原属性读取和状态判断部分代码
Dim oPA As Outlook.PropertyAccessor
Dim PropName As String
Dim Responded As Long ' 修正为Long类型，匹配属性的整数类型

PropName = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
Set oPA = Item.PropertyAccessor

' 捕获属性不存在的错误，避免崩溃
On Error Resume Next
Responded = oPA.GetProperty(PropName)
On Error GoTo 0

' 按官方定义的Verb值匹配状态
Select Case Responded
    Case 102
        .Range("I" & EmailRow).Value = "REPLIED"
    Case 103
        .Range("I" & EmailRow).Value = "REPLIED ALL"
    Case 104
        .Range("I" & EmailRow).Value = "FORWARDED"
    Case Else
        .Range("I" & EmailRow).Value = "INCOMING"
End Case

2. 可选：补充已发送邮件校验（提升准确性） #

如果PR_LAST_VERB_EXECUTED为空，可通过已发送邮件匹配，避免遗漏手动回复/转发的状态：

' 放在状态判断的Case Else分支内，或单独作为补充校验
If Responded = 0 Then
    Dim sentMail As Outlook.MailItem
    For Each sentMail In sentItems
        ' 匹配主题（去除RE:/FW:前缀）和发件人邮箱
        If (InStr(sentMail.Subject, "RE: " & Item.Subject) > 0 Or InStr(sentMail.Subject, "FW: " & Item.Subject) > 0) _
            And sentMail.To = Item.SenderEmailAddress Then
            If InStr(sentMail.Subject, "RE:") > 0 Then
                .Range("I" & EmailRow).Value = "REPLIED"
            ElseIf InStr(sentMail.Subject, "FW:") > 0 Then
                .Range("I" & EmailRow).Value = "FORWARDED"
            End If
            Exit For
        End If
    Next sentMail
End If

注意事项 #

• 确保VBA编辑器已添加Outlook对象库引用：工具→引用→勾选Microsoft Outlook xx.x Object Library。
• 测试新邮件、已回复/转发邮件，验证状态标记是否准确。

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