Backgorund:
Мне нужно отправить на прием, все работает, хотя, я хотел бы получить свойство «Отправленные» для Outlook.AppointmentItem если приглашение было отправлено или не -either отменяется пользователем после нажатия на отображаемые окна или проблемы сервера.Назначение Объект был отправлен
Решение пыталось:
В то время как я прочитал, что назначение имеет Saved Property это -of курс- не сказать мне, если оно было отправлено или не -подобный один в 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 = "[email protected]" .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: Обратите внимание, что я не люблю позднего связывания, ссылки на библиотеки мировоззрение быть добавленным.
Вопрос:
Как я мог поймать, было ли отправлено сообщение AppointmentItem или нет?
Спасибо, сработало! Я должен добавить, что, когда вы используете его как условие, 0 означает, что он «недоступен» - для моей проблемы внешний вид не мог «отправить его» - и 1 он доступен. – Sgdva
См. Https://msdn.microsoft.com/en-us/library/office/ff869427.aspx для возможных значений перечисления olMeetingStatus. –