Jak automaticky odebrat zrušené schůzky z kalendáře aplikace Outlook

Možná jste si všimli, že zrušené schůzky stále existují ve vašem kalendáři. Vyžaduje to ruční odstranění, což je příliš problematické. Proto byste měli chtít, aby Outlook mohl automaticky odstraňovat zrušené schůzky. Tento příspěvek vám s tím pomůže.

Vlastně můj předchozí článek - „Jak taktně odebrat zrušené schůzky z kalendáře aplikace Outlook”Představil několik tipů, jak zrušit zrušené schůzky ručně. Také v poslední části tohoto článku existuje způsob, jak nechat Outlook automaticky odebrat zrušené schůzky. Tato metoda ale také umožní aplikaci Outlook automaticky přijmout všechny pozvánky na schůzku. To není to, co občas chcete. Proto vám zde ukážeme další způsob, který je docela jednoduchý a mnohem pohodlnější.

Automaticky odebrat zrušené schůzky z kalendáře

1. Hned na začátku spusťte program Outlook.
2. Poté byste měli v okně Outlooku stisknout tlačítka „Alt + F11“.
3. Dále v následujícím okně editoru VBA musíte dvakrát kliknout na projekt „ThisOutlookSession“ na levé straně.
4. Následně byste měli zkopírovat následující kód VBA do tohoto projektu.

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. Poté můžete tomuto projektu přiřadit digitální certifikát. Klikněte na „Nástroje“ a vyberte „Digitální podpis“. Poté postupujte podle pokynů průvodce.
6. Později zavřete okno „Microsoft Visual Basic pro aplikace“ a přejděte ke změně nastavení maker aplikace Outlook tak, aby povolila podepsaná makra.
7. Nakonec můžete restartovat Outlook, abyste povolili nový projekt VBA.
8. Od té doby se pokaždé, když do vaší složky Doručená pošta dorazí zpráva o zrušení schůzky, spustí makro a automaticky odstraní zrušenou schůzku z kalendáře.

Plně využijte nástroj pro opravu doručené pošty

Mnoho uživatelů aplikace Outlook mohlo být trápeno nejrůznějšími problémy ve svém Outlooku, včetně malých poruch, chybových zpráv a náhlého nereagování, stejně jako vážných škod atd. Abych byl upřímný, Outlook má pro malé problémy zabudovaný nástroj pro opravu - scanpst, což je může snadno opravit. Když tedy narazíte na potíže v Outlooku, můžete jej použít k pořízení snímku. Pokud selže, můžete i nadále využívat zkušený a pozoruhodný nástroj třetí strany, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com