Как автоматически удалять отмененные собрания из календаря Outlook

Перспективные решения 29 сентября, 2025
Поделись сейчас:

Возможно, вы заметили, что отмененные встречи по-прежнему отображаются в вашем календаре. Вам приходится удалять их вручную, что очень неудобно. Поэтому вам наверняка хотелось бы, чтобы Outlook мог автоматически удалять отмененные встречи. Эта статья поможет вам это реализовать.

Собственно, моя предыдущая статья — «Как тактично удалить отмененные встречи из календаря Outlook” представил несколько советов по удалению отмененных встреч вручную. Кроме того, в последнем разделе этой статьи есть способ разрешить Outlook автоматически удалять отмененные собрания. Но этот метод также позволит Outlook автоматически принимать все приглашения на собрания. Это не то, что вы хотите время от времени. Поэтому здесь мы покажем вам другой способ, довольно простой и гораздо более удобный.

Автоматическое удаление отмененных совещаний из календаря Outlook

Автоматическое удаление отмененных совещаний из календаря

  1. Для начала запустите программу Outlook.
  2. Затем вам нужно нажать клавиши «Alt + F11» в окне Outlook.
  3. Затем в следующем окне редактора VBA вам нужно дважды щелкнуть проект «ThisOutlookSession» с левой стороны.
  4. Впоследствии вы должны скопировать следующий код VBA в этот проект.
Private WithEvents objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
    Set objItems = objInbox.Items
End Sub

'Occurs when the meeting cancellation arrives in your Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
    Dim objCalendar As Outlook.Folder
    Dim objAppointments As Outlook.Items
    Dim i As Long
    Dim objMeeting As Outlook.AppointmentItem
 
    If TypeOf Item Is MeetingItem Then
       If Left(LCase(Item.Subject), 9) = "canceled:" Then
          'Remove canceled meeting
          Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
          Set objAppointments = objCalendar.Items
 
          For i = objAppointments.count To 1 Step -1
              Set objAppointment = objAppointments.Item(i)
              If Left(objAppointment.Subject, 9) = "Canceled:" Then
                 objAppointment.Delete
              End If
         Next
       End If
   End If
End Sub

Код VBA - автоматическое удаление отмененных собраний из календаря

  1. После этого вы можете назначить цифровой сертификат этому проекту. Нажмите «Инструменты» и выберите «Цифровая подпись». Затем следуйте указаниям мастера, чтобы завершить его.
  2. Позже закройте окно «Microsoft Visual Basic для приложений» и перейдите к изменению настроек макроса Outlook, чтобы разрешить подписанные макросы.
  3. В конечном итоге, вы можете перезапустить Outlook, чтобы активировать новый проект VBA.
  4. С тех пор каждый раз, когда в ваш почтовый ящик приходит сообщение об отмене встречи, макрос запускается и автоматически удаляет отмененную встречу из календаря.

В полной мере используйте инструмент восстановления папки «Входящие»

Многие пользователи Outlook, возможно, сталкивались с различными проблемами в своем Outlook, включая небольшие сбои, сообщения об ошибках и внезапное отсутствие ответа, а также серьезные повреждения и т. д. Честно говоря, для небольших проблем в Outlook есть встроенный инструмент восстановления — Скэнпст, который может легко исправить их. Таким образом, при возникновении проблем в Outlook вы можете использовать его, чтобы сделать снимок. Если это не удастся, вы можете продолжать пользоваться помощью опытного и замечательного стороннего инструмента, такого как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая sql восстановление и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.