约会对象已发送

Question

Backgorund： 我需要预约，一切正常，但是，我希望得到一个＆＃34;发送＆＃34; Outlook.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
    Call .ItemProperties.Item("Saved") 'here is where I would need to catch the kind of "was it sent?" variable.

    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

PS：请注意，我不喜欢后期绑定，必须添加outlook库的参考。
的问题：
如果AppointmentItem被发送，我怎么能抓住？

Answer 1

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

话虽如此，请使用AppointmentItem.MeetingStatus属性。