Kako samodejno odstraniti preklicane sestanke iz Outlookovega koledarja

Morda ste opazili, da preklicani sestanki še vedno obstajajo v vašem koledarju. Zahteva, da jih ročno odstranite, kar je preveč težavno. Zato si morate želeti, da Outlook samodejno odstrani preklicane sestanke. Ta objava vam bo pomagala pri tem.

Pravzaprav moj prejšnji članek – “Kako taktno odstraniti preklicane sestanke iz Outlookovega koledarja” je predstavil nekaj nasvetov za ročno brisanje preklicanih sestankov. Poleg tega je v zadnjem razdelku tega članka na voljo način, kako Outlooku omogočiti samodejno odstranitev preklicanih sestankov. Toda ta metoda bo tudi omogočila, da Outlook samodejno sprejme vsa povabila na sestanek. To včasih ni tisto, kar si želite. Zato vam bomo tukaj pokazali drug način, ki je precej preprost in veliko bolj priročen.

Samodejno odstranite preklicane sestanke iz koledarja

1. Na samem začetku zaženite program Outlook.
2. Nato morate v Outlookovem oknu pritisniti tipke »Alt + F11«.
3. Nato morate v naslednjem oknu urejevalnika VBA dvoklikniti projekt »ThisOutlookSession« na levi strani.
4. Nato morate v ta projekt kopirati naslednjo kodo 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. Po tem lahko temu projektu dodelite digitalno potrdilo. Kliknite »Orodja« in izberite »Digitalni podpis«. Nato sledite čarovniku, da ga dokončate.
6. Pozneje zaprite okno »Microsoft Visual Basic for Applications« in pojdite, da spremenite nastavitve Outlookovega makra, da dovolite podpisane makre.
7. Sčasoma lahko znova zaženete Outlook, da omogočite nov projekt VBA.
8. Od takrat se makro vsakič, ko v mapo »Prejeto« prejme obvestilo o preklicu sestanka, samodejno zažene in preklicani sestanek samodejno odstrani iz koledarja.

V celoti izkoristite orodje za popravilo prejete pošte

Številne uporabnike Outlooka so morda pestile različne težave v Outlooku, vključno z majhnimi okvarami, sporočili o napakah in nenadnim neodzivanjem ter resnimi poškodbami itd. Če sem iskren, ima Outlook za majhne težave vgrajeno orodje za popravilo – scanpst, ki jih lahko z lahkoto popravi. Tako lahko, ko naletite na težave v Outlooku, z njim posnamete posnetek. Če ne uspe, si lahko še naprej pomagate z izkušenim in izjemnim orodjem tretje osebe, kot je npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnovitev sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com