Outlook VBA向邮件文件夹表格添加Class列时出错求助

以下VBA代码中，调用Columns.Add("Class")时触发运行时错误：

Sub test(oEmailFolder As Folder, sFilter as String)
    Dim oOutlookTable As Outlook.Table
    Set oOutlookTable = oEmailFolder.GetTable(sFilter)
    oOutlookTable.Columns.Add ("Class")
End Sub

错误信息：

• 运行时错误 '-2147024809 (80070057)': 属性“Class”不支持此操作。

根据微软文档《Unsupported Properties in a Table Object or Table Filter》说明，Table对象不支持添加二进制、正文、计算、多值或对象属性，但MailItem.Class是数值常量，不属于上述五类，为何仍触发错误？

虽然MailItem.Class本身是数值属性，但Outlook的Table对象在底层实现中，Class属性属于默认不会被Table暴露的内置属性集合，即便它不属于文档列出的五类不支持属性，也无法通过Columns.Add方法手动添加。

要获取邮件的Class属性，有两种替代方案：

1. 通过Table默认属性间接判断：
   Table默认包含MessageClass属性，可通过该属性推导Class值（比如IPM.Note对应olMail，IPM.Appointment对应olAppointment等），示例代码：

   Sub test(oEmailFolder As Folder, sFilter as String)
       Dim oOutlookTable As Outlook.Table
       Dim oRow As Outlook.Row
       
       Set oOutlookTable = oEmailFolder.GetTable(sFilter)
       ' MessageClass是Table默认属性，无需手动添加
       Do Until oOutlookTable.EndOfTable
           Set oRow = oOutlookTable.GetNextRow()
           Debug.Print "MessageClass: " & oRow("MessageClass")
           ' 根据MessageClass映射Class值
           Select Case oRow("MessageClass")
               Case "IPM.Note": Debug.Print "Class: " & olMail
               Case "IPM.Appointment": Debug.Print "Class: " & olAppointment
               ' 其他类型可按需扩展
           End Select
       Loop
   End Sub
   

2. 遍历Folder中的Item直接获取Class：
   如果不需要Table的高效批量处理特性，可直接遍历文件夹项目获取Class属性：

   Sub test(oEmailFolder As Folder, sFilter as String)
       Dim oItems As Outlook.Items
       Dim oItem As Object
       
       Set oItems = oEmailFolder.Items.Restrict(sFilter)
       For Each oItem In oItems
           Debug.Print "Class: " & oItem.Class
       Next oItem
   End Sub
   

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