Kā automātiski noņemt atceltās sapulces no sava Outlook kalendāra

Outlook risinājumi Septembris 29, 2025
Kopīgot tūlīt:

Jūs, iespējams, pamanījāt, ka atceltās sanāksmes joprojām būs jūsu kalendārā. Tas prasa to manuālu noņemšanu, kas ir pārāk apgrūtinoši. Tādēļ jums vajadzētu vēlēties, lai Outlook varētu automātiski noņemt atceltās sanāksmes. Šis ieraksts jums palīdzēs to saprast.

Patiesībā mans iepriekšējais raksts - "Kā taktiski noņemt atceltās sapulces no Outlook kalendāra” ir ieviesis dažus padomus, kā manuāli dzēst atceltās sapulces. Turklāt šī raksta pēdējā sadaļā ir veids, kā ļaut programmai Outlook automātiski noņemt atceltās sapulces. Taču šī metode ļaus programmai Outlook automātiski pieņemt visus sapulces ielūgumus. Dažreiz tas nav tas, ko vēlaties. Tāpēc šeit mēs jums parādīsim citu veidu, kas ir diezgan vienkāršs un daudz ērtāks.

Automātiski noņemiet atceltās sanāksmes no Outlook kalendāra

Automātiski noņemt atceltās sanāksmes no kalendāra

  1. Pašā sākumā palaidiet savu Outlook programmu.
  2. Pēc tam Outlook logā vajadzētu nospiest taustiņu "Alt + F11".
  3. Pēc tam nākamajā VBA redaktora logā jums ir jāveic dubultklikšķis uz projekta “ThisOutlookSession” kreisajā pusē.
  4. Pēc tam jums vajadzētu kopēt šo VBA kodu šajā projektā.
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

VBA kods — automātiska atcelto sapulču noņemšana no kalendāra

  1. Pēc tam šim projektam varat piešķirt digitālo sertifikātu. Noklikšķiniet uz "Rīki" un izvēlieties "Digitālais paraksts". Pēc tam izpildiet vedņa norādījumus, lai to pabeigtu.
  2. Vēlāk aizveriet logu “Microsoft Visual Basic for Applications” un mainiet Outlook makro iestatījumus, lai atļautu parakstītos makro.
  3. Galu galā jūs varētu restartēt programmu Outlook, lai iespējotu jauno VBA projektu.
  4. Kopš tā laika katru reizi, kad jūsu iesūtnē tiek saņemts paziņojums par sapulces atcelšanu, makro sāk darboties un automātiski noņem atcelto sapulci no kalendāra.

Pilnībā izmantojiet iesūtnes labošanas rīku

Daudzus Outlook lietotājus, iespējams, ir nomocījušas dažādas problēmas programmā Outlook, tostarp nelieli darbības traucējumi, kļūdu ziņojumi un pēkšņa nereaģēšana, kā arī nopietni bojājumi utt. Godīgi sakot, mazajām problēmām programmā Outlook ir iebūvēts labošanas rīks – Scanpst, kas tos var viegli salabot. Tādējādi, saskaroties ar problēmām programmā Outlook, varat to izmantot, lai fotografētu. Ja tas neizdodas, varat turpināt izmantot pieredzējušu un ievērojamu trešās puses rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar

Kopīgot tūlīt:

Komentāri ir slēgti.