удаление отклоненных встреч

449
Richard McFarlane

У меня запущен Outlook 2007. Когда я отправляю приглашение на собрание в формате «1 на 1», и человек отправляет ответ об отклонении, как я могу удалить это собрание из своего расписания, не отправляя человека, который отклонил уведомление об отмене?

Когда я пытаюсь удалить собрание, Outlook настаивает на отправке уведомления об отмене.

2

1 ответ на вопрос

0
Axel Kemper

Я использую следующую подпрограмму VBA для удаления встреч из моего календаря.

Public Sub deleteSelectedAppointment() Dim obj As Object Dim cl As Integer Dim apt As AppointmentItem Dim aptDel As AppointmentItem Dim pattern As RecurrencePattern Dim cnt As Integer  On Error GoTo ErrHandler  cnt = 0 For Each obj In ActiveExplorer.Selection cl = obj.Class  Select Case cl Case olMail Case olTask Case olAppointment Set apt = obj Debug.Print "Appointment " & apt.subject  If apt.IsRecurring Then ' find and delete the selected item in a series Set pattern = apt.GetRecurrencePattern() Set aptDel = pattern.GetOccurrence(apt.Start) Else ' non-recurring appointment Set aptDel = apt End If  If aptDel Is Nothing Then Debug.Print "Nothing to delete!" Else aptDel.Delete cnt = cnt + 1 End If  Case Else Debug.Print "unexpected class " & cl End Select Next obj  Debug.Print "Deleted appointments: " & cnt  Exit Sub  ErrHandler: MsgBox "Cannot delete appointment" & vbCrLf & Err.Description, vbInformation Err.Clear On Error GoTo 0  End Sub

Это также работает для задач и почты. Очевидно, что такая процедура может удалить много, если не использовать с осторожностью ...

Похожие вопросы