Si të hiqni automatikisht takimet e anuluara nga kalendari juaj i Outlook

Mund ta keni vënë re se takimet e anuluara do të vazhdojnë të ekzistojnë në kalendarin tuaj. Ai kërkon që t'i fshini manualisht, gjë që është shumë e vështirë. Prandaj, duhet të dëshironi që Outlook të mund t'i heqë automatikisht takimet e anuluara. Ky postim do t'ju ndihmojë ta kuptoni këtë.

Në fakt, artikulli im i mëparshëm - "Si të hiqni me takt takimet e anuluara nga Kalendari i Outlook” ka prezantuar disa këshilla për të fshirë manualisht takimet e anuluara. Gjithashtu, në pjesën e fundit të atij artikulli, ekziston një mënyrë për të lejuar që Outlook të heqë automatikisht takimet e anuluara. Por kjo metodë do të lejojë gjithashtu që Outlook të pranojë automatikisht të gjithë ftesën e takimit. Kjo nuk është ajo që dëshironi ndonjëherë. Prandaj, këtu do t'ju tregojmë një mënyrë tjetër, e cila është mjaft e thjeshtë dhe shumë më e përshtatshme.

Hiq automatikisht takimet e anuluara nga Kalendari

1. Që në fillim, nisni programin tuaj Outlook.
2. Pastaj, duhet të shtypni butonat "Alt + F11" në dritaren e Outlook.
3. Tjetra, në dritaren pasuese të redaktuesit VBA, duhet të klikoni dy herë në projektin "ThisOutlookSession" në anën e majtë.
4. Më pas, duhet të kopjoni kodin e mëposhtëm VBA në këtë 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

5. Pas kësaj, ju mund të caktoni një certifikatë dixhitale për këtë projekt. Klikoni "Mjetet" dhe zgjidhni "Nënshkrimi Dixhital". Pastaj ndiqni magjistarin për ta përfunduar atë.
6. Më vonë, mbyllni dritaren "Microsoft Visual Basic për aplikacione" dhe drejtohuni për të ndryshuar cilësimet e makrove të Outlook për të lejuar makro të nënshkruara.
7. Përfundimisht, mund ta rinisni Outlook-un tuaj për të aktivizuar projektin e ri VBA.
8. Që atëherë, çdo herë që një anulim takimi mbërrin në Kutinë tuaj Postare, makroja do të fillojë dhe do ta heqë automatikisht takimin e anuluar nga kalendari.

Përdorni plotësisht mjetin e riparimit të kutisë hyrëse

Shumë përdorues të Outlook mund të jenë goditur nga probleme të ndryshme në Outlook-in e tyre, duke përfshirë keqfunksionime të vogla, mesazhe gabimi dhe mospërgjigje të papritur, si dhe dëmtime serioze, etj. Për të qenë i sinqertë, për problemet e vogla, Outlook ka një mjet riparimi të integruar – scanpst, të cilat mund t'i rregullojnë ato me lehtësi. Kështu, kur hasni probleme në Outlook, mund ta përdorni për të bërë një fotografi. Nëse dështon, mund të vazhdoni të merrni ndihmën e një mjeti të palës së tretë me përvojë dhe të shquar, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë shërim sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com