Kako automatski ukloniti otkazane sastanke iz Outlook kalendara

Možda ste primijetili da će otkazani sastanci i dalje postojati u vašem kalendaru. Zahteva da ga uklonite ručno, što je previše problematično. Stoga morate poželjeti da Outlook može automatski ukloniti otkazane sastanke. Ova strost pomoći će vam da to shvatite.

Zapravo, moj prethodni članak – “Kako taktično ukloniti otkazane sastanke iz Outlook kalendara” je uveo nekoliko savjeta za ručno brisanje otkazanih sastanaka. Također, u posljednjem dijelu tog članka, postoji način da dozvolite Outlooku da automatski uklanja otkazane sastanke. Ali ta metoda će također omogućiti Outlooku da automatski prihvati sve pozive na sastanak. Ovo nije ono što ponekad želite. Stoga ćemo vam ovdje pokazati još jedan način, koji je prilično jednostavan i mnogo praktičniji.

Automatsko uklanjanje otkazanih sastanaka iz kalendara

1. Na samom početku, start vaš Outlook program.
2. Zatim biste trebali pritisnuti tipke “Alt + F11” u Outlook prozoru.
3. Zatim, u sljedećem prozoru VBA editora, trebate dvaput kliknuti na projekt “ThisOutlookSession” na lijevoj strani.
4. Nakon toga, trebali biste kopirati sljedeći VBA kod u ovaj projekat.

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. Nakon toga ovom projektu možete dodijeliti digitalni certifikat. Kliknite na "Alati" i odaberite "Digitalni potpis". Zatim slijedite čarobnjaka da ga dovršite.
6. Kasnije zatvorite prozor „Microsoft Visual Basic za aplikacije“ i idite na promjenu postavki makroa Outlooka kako biste dozvolili potpisane makroe.
7. Na kraju biste mogli restart svoj Outlook da biste omogućili novi VBA projekat.
8. Od tada, svaki put kada otkazivanje sastanka stigne u vaše prijemno sanduče, makro će start i automatski uklonite otkazani sastanak iz kalendara.

U potpunosti iskoristite Inbox Repair Tool

Mnogi korisnici Outlooka su možda bili mučeni raznim problemima u svom Outlooku, uključujući male kvarove, poruke o greškama i iznenadno nereagovanje, kao i ozbiljne štete, itd. Da budemo iskreni, za male probleme, Outlook ima ugrađeni alat za popravak – scanpst, što ih može popraviti s lakoćom. Stoga, kada naiđete na probleme u Outlooku, možete ga koristiti za snimanje. Ako ne uspije, možete nastaviti koristiti pomoć iskusnog i izvanrednog alata treće strane, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com