如何在MsgBox中显示Appointment的组织者、创建及最后修改时间？

错误原因解析 #

• 错误424（对象要求）：你错误将Organizer、CreationTime等非对象属性声明为Object类型，还使用Set语句赋值（Set仅适用于对象类型变量）。
• 错误461（方法或数据成员找不到）：Outlook的AppointmentItem对象不存在GetCreationTime和GetLastModificationTime方法，这两个是直接可访问的属性，无需调用方法。

修正后的完整代码 #

Sub AppointmentDetails()
    Dim currentItem As Object
    Dim apptItem As Outlook.AppointmentItem
    
    ' 检查是否有打开的检查器窗口
    If Application.ActiveInspector Is Nothing Then
        MsgBox "请先打开一个约会项目！", vbExclamation
        Exit Sub
    End If
    
    Set currentItem = Application.ActiveInspector.CurrentItem
    
    ' 验证当前打开的项目是否为约会类型
    If TypeName(currentItem) <> "AppointmentItem" Then
        MsgBox "当前打开的不是约会项目！", vbExclamation
        Exit Sub
    End If
    
    Set apptItem = currentItem
    
    ' 提取属性（匹配正确类型，无需Set语句）
    Dim organizer As String
    organizer = apptItem.Organizer
    
    Dim creationTime As Date
    creationTime = apptItem.CreationTime
    
    Dim lastModificationTime As Date
    lastModificationTime = apptItem.LastModificationTime
    
    ' 格式化显示并弹出消息框
    MsgBox "组织者：" & organizer & vbNewLine & _
           "创建时间：" & Format(creationTime, "yyyy-mm-dd hh:mm:ss") & vbNewLine & _
           "最后修改时间：" & Format(lastModificationTime, "yyyy-mm-dd hh:mm:ss"), _
           vbInformation, "约会详情"
End Sub

核心修正点 #

• 变量类型匹配：
  • Organizer是字符串类型，声明为String，直接赋值即可，不用Set
  • CreationTime和LastModificationTime是日期类型，声明为Date，直接访问属性而非调用不存在的方法
• 增加校验逻辑：先检查是否有打开的检查器，再验证当前项目类型，避免因选中邮件、任务等非约会对象触发错误
• 优化时间显示：用Format函数将日期时间转为更易读的格式

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