Kaip automatiškai pašalinti atšauktus susitikimus iš „Outlook“ kalendoriaus

Galbūt pastebėjote, kad atšaukti susitikimai vis tiek išliks jūsų kalendoriuje. Jį reikia pašalinti rankiniu būdu, o tai yra per daug varginantis procesas. Todėl tikriausiai norėtumėte, kad „Outlook“ galėtų automatiškai pašalinti atšauktus susitikimus. Šis įrašas padės jums tai suprasti.

Tiesą sakant, mano ankstesnis straipsnis – „Kaip taktiškai pašalinti atšauktus susitikimus iš „Outlook“ kalendoriaus“ pristatė keletą patarimų, kaip rankiniu būdu ištrinti atšauktus susitikimus. Be to, paskutinėje to straipsnio dalyje yra būdas leisti „Outlook“ automatiškai pašalinti atšauktus susitikimus. Tačiau šis metodas taip pat leis „Outlook“ automatiškai priimti visus kvietimus į susitikimą. Kartais tai nėra tai, ko norite. Todėl čia parodysime kitą būdą, kuris yra gana paprastas ir daug patogesnis.

Automatiškai pašalinti atšauktus susitikimus iš kalendoriaus

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada „Outlook“ lange turėtumėte paspausti „Alt + F11“ klavišus.
3. Tada kitame VBA redaktoriaus lange turite du kartus spustelėti projektą „ThisOutlookSession“ kairėje pusėje.
4. Vėliau į šį projektą turėtumėte nukopijuoti šį VBA kodą.

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 to šiam projektui galite priskirti skaitmeninį sertifikatą. Spustelėkite „Įrankiai“ ir pasirinkite „Skaitmeninis parašas“. Tada vadovaukitės vedliu, kad jį užbaigtumėte.
6. Vėliau uždarykite langą „Microsoft Visual Basic for Applications“ ir pakeiskite „Outlook“ makrokomandos nustatymus, kad leistų pasirašyti makrokomandas.
7. Galiausiai galite paleisti „Outlook“ iš naujo, kad įgalintumėte naują VBA projektą.
8. Nuo tada kiekvieną kartą, kai į jūsų pašto dėžutę patenka susitikimo atšaukimo pranešimas, makrokomanda paleidžiama ir automatiškai pašalinamas atšauktas susitikimas iš kalendoriaus.

Visapusiškai išnaudokite gautųjų taisymo įrankį

Daugelį „Outlook“ vartotojų galėjo kamuoti įvairios „Outlook“ problemos, įskaitant nedidelius gedimus, klaidų pranešimus ir staigų neatsakymą, taip pat rimtus pažeidimus ir pan. Tiesą sakant, mažoms problemoms spręsti „Outlook“ turi integruotą taisymo įrankį – scanpst, kuris gali juos lengvai ištaisyti. Taigi, kai susiduriate su „Outlook“ problemų, galite ją naudoti fotografuodami. Jei nepavyks, galite toliau naudotis patyrusiu ir puikiu trečiosios šalies įrankiu, pvz., DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com