如何在Outlook共享日历约会中保留自定义属性？

直接通过PropertyAccessor设置未注册的MAPI命名属性，容易在Exchange同步或约会编辑后被清除，可通过以下两种方式解决：

方法1：使用UserProperties添加自定义属性 #

UserProperties是Outlook原生支持的自定义属性机制，会被Exchange正确同步和保留，替代直接调用PropertyAccessor的方式：

Dim objOutlook As Object
Dim objNamespace As Object
Dim objCalendar As Object
Dim objAppointment As Object
Dim objCustomProp As Object

Set objOutlook = GetOutlookApp()
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objCalendar = GetOutlookCalendar()

Set objAppointment = objCalendar.Items.Add(1)

objAppointment.Subject = vTitle
objAppointment.Body = vBody

' 添加并设置自定义属性，olText对应常量值1
Set objCustomProp = objAppointment.UserProperties.Add("MyCustomTag", 1)
objCustomProp.Value = "1"

objAppointment.Save
objAppointment.Close 0 

' 释放对象
Set objCustomProp = Nothing
Set objAppointment = Nothing
Set objCalendar = Nothing
Set objNamespace = Nothing
Set objOutlook = Nothing

方法2：注册MAPI命名属性（进阶） #

如果必须使用PropertyAccessor的命名属性，需要将该属性注册为Exchange可同步的公共属性：

• 使用MFCMAPI工具连接到Exchange服务器，找到共享日历的文件夹，注册对应的命名属性（指定属性集ID、属性ID和属性类型）
• 确保注册的属性标记为可同步，这样Exchange会在同步和编辑操作中保留该属性

注意事项 #

• 确认对共享日历拥有编辑权限，否则自定义属性的修改操作会被服务器拒绝
• 编辑约会时，通过Outlook标准界面或VBA的UserProperties操作属性，避免通过非标准工具修改导致属性丢失

内容的提问来源于stack exchange，提问作者neo-ray