excel - 如何确定约会对象是否已发送？

Question

我想获取 AppointmentItem 的“已发送”属性，以确定邀请是否已发送 - 用户在单击显示的窗口后取消或服务器问题。

虽然我读到该约会有 Saved Property ，这并没有告诉我它是否像 MailItem 中那样发送。 .

我认为代码不会有帮助，但是，这里是:

Dim olApp As Outlook.Application
Dim olAgenda As Outlook.AppointmentItem
Set olApp = New Outlook.Application
Set olAgenda = olApp.CreateItem(1)

With olAgenda
    .Subject = "Test"
    .Recipients.Add = "sample@domain.com"
    .Display
    On Error Resume Next

    'here is where I would need to catch the kind of "was it sent?" variable.
    Call .ItemProperties.Item("Saved")
    
    If Err.Number = 0 Then             '99. If Error
        MsgBox "Item Send"
    Else                               '99. If Error
        MsgBox "Item Not Send"
    End If                             '99. If Error
    
End With

请注意，我不喜欢后期绑定(bind)，必须添加 Outlook 库的引用。

如果 AppointmentItem 已发送，我如何捕获？

Answer 1

约会本身永远不会发送 - 它保留在日历文件夹中。仅发送 MeetingItem 对象。

话虽这么说，请使用 AppointmentItem.MeetingStatus属性(property)。