Как да премахнете автоматично отменени срещи от календара си в 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 for Applications“ и се насочете към промяна на настройките на макроса на Outlook, за да разрешите подписани макроси.
7. В крайна сметка можете да рестартирате Outlook, за да активирате новия VBA проект.
8. Оттогава, всеки път, когато във входящата ви поща пристигне съобщение за отмяна на среща, макросът ще се стартира и автоматично ще премахне отменената среща от календара.

Използвайте пълноценно инструмента за поправка на входящата поща

Много потребители на Outlook може да са били измъчвани от различни проблеми в техния Outlook, включително малки неизправности, съобщения за грешки и внезапно неотговаряне, както и сериозни щети и т.н. Честно казано, за малките проблеми Outlook има вграден инструмент за ремонт - scanpst, които могат да ги оправят с лекота. По този начин, когато срещате проблеми в Outlook, можете да го използвате, за да направите снимка. Ако не успее, можете да продължите да се възползвате от опитен и забележителен инструмент на трета страна, като например DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com