PropertyAccessor在VBScript中无法使用？报错问题求助

这个错误我之前帮人排查过好几次，大概率是两个核心原因：Outlook版本不兼容，或者你调用PropertyAccessor的对象不对。咱们一步步来解决：

错误根源分析 #

1. 版本兼容性问题：PropertyAccessor是Outlook 2007及以后版本才引入的对象模型成员。如果你的Outlook是2003或更早版本，旧版根本没有这个属性，必然会抛出800A01B6错误。
2. 调用对象错误：PropertyAccessor不是全局可用的属性，只有MailItem、Attachment、ContactItem这类具体的Outlook项目对象才支持它。如果你误在Application、Namespace这类不支持的对象上调用，也会触发这个报错。

具体解决方案 #

1. 先确认你的Outlook版本 #

打开Outlook，点击「文件」→「Office账户」（旧版点「帮助」）查看版本号：

• 版本号≥12.0（对应Outlook 2007）：版本没问题，继续排查对象调用问题。
• 版本号<12.0：要么升级Outlook，要么用旧方法替代PropertyAccessor。

2. 确保在正确的对象上调用PropertyAccessor #

从你给出的常量（都是附件相关的MAPI属性）来看，你应该是要操作邮件附件。正确的做法是先获取Attachment对象，再调用它的PropertyAccessor。给你修正后的代码示例：

Const PR_ATTACH_MIME_TAG = "http://schemas.microsoft.com/mapi/proptag/0x370E001E"
Const PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001E"
Const PR_ATTACHMENT_HIDDEN = "http://schemas.microsoft.com/mapi/proptag/0x7FFE000B"

' 假设你已经创建/获取了MailItem对象，比如objMail
Dim objAttach
Set objAttach = objMail.Attachments.Add("C:\example.pdf") ' 添加目标附件

' 关键：在Attachment对象上获取PropertyAccessor
Dim objPA
Set objPA = objAttach.PropertyAccessor

' 设置MAPI属性
objPA.SetProperty PR_ATTACH_MIME_TAG, "application/pdf"
objPA.SetProperty PR_ATTACH_CONTENT_ID, "my_unique_content_id"
objPA.SetProperty PR_ATTACHMENT_HIDDEN, True

' 必须保存更改
objMail.Save

3. 旧版本Outlook的替代方案（无法升级时） #

如果是Outlook 2003及更早，你可以用Fields集合来访问MAPI属性，效果和PropertyAccessor类似：

' 同样针对Attachment对象操作
objAttach.Fields(PR_ATTACH_MIME_TAG) = "application/pdf"
objAttach.Fields(PR_ATTACH_CONTENT_ID) = "my_unique_content_id"
objAttach.Fields(PR_ATTACHMENT_HIDDEN) = True
objMail.Save

注意：使用Fields时要确保属性标签的格式正确，部分属性可能需要显式指定数据类型。

额外调试小技巧 #

可以加个判断提前验证对象是否支持PropertyAccessor，避免报错：

If Not objAttach Is Nothing Then
    If objAttach.Supports("PropertyAccessor") Then
        ' 执行PropertyAccessor相关操作
    Else
        ' 降级用Fields集合处理
    End If
End If

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