Як автоматично видалити скасовані зустрічі з календаря 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

5. Після цього ви можете призначити цьому проекту цифровий сертифікат. Натисніть «Інструменти» та виберіть «Цифровий підпис». Потім дотримуйтеся вказівок майстра, щоб завершити його.
6. Пізніше закрийте вікно «Microsoft Visual Basic для програм» і перейдіть до змінення параметрів макросу Outlook, щоб дозволити підписані макроси.
7. Зрештою, ви можете перезапустити Outlook, щоб увімкнути новий проект VBA.
8. Відтоді щоразу, коли у вашій папці "Вхідні" надходить повідомлення про скасування зустрічі, макрос запускається та автоматично видаляє скасовану зустріч із календаря.

Повністю використовуйте інструмент відновлення папки "Вхідні".

Багато користувачів Outlook могли стикатися з різноманітними проблемами у своєму Outlook, зокрема невеликими збоями, повідомленнями про помилки та раптовою відсутністю відповіді, а також серйозними пошкодженнями тощо. Чесно кажучи, для невеликих проблем Outlook має вбудований інструмент відновлення – scanpst, яка може їх легко виправити. Таким чином, якщо виникнуть проблеми в Outlook, ви можете використовувати його, щоб зробити знімок. Якщо це не вдасться, ви можете продовжувати користуватися досвідченим і чудовим інструментом третьої сторони, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення SQL та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com