Poate ați observat că întâlnirile anulate vor exista în continuare în calendarul dvs. Vă cere să le eliminați manual, ceea ce este prea dificil. Prin urmare, probabil vă doriți ca Outlook să poată elimina automat întâlnirile anulate. Această postare vă va ajuta să realizați acest lucru.
De fapt, articolul meu anterior – „Cum să eliminați cu tact întâlnirile anulate din calendarul Outlook” a introdus câteva sfaturi pentru a șterge manual întâlnirile anulate. De asemenea, în ultima secțiune a articolului, există o modalitate de a permite Outlook să elimine automat întâlnirile anulate. Dar această metodă va permite și Outlook să accepte automat toate invitațiile la întâlnire. Nu este ceea ce vrei uneori. Prin urmare, aici vă vom arăta o altă modalitate, care este destul de simplă și mult mai convenabilă.
Eliminați automat întâlnirile anulate din calendar
- Chiar de la început, porniți programul Outlook.
- Apoi, ar trebui să apăsați butoanele tastei „Alt + F11” în fereastra Outlook.
- Apoi, în fereastra ulterioară a editorului VBA, trebuie să faceți dublu clic pe proiectul „ThisOutlookSession” din partea stângă.
- Ulterior, ar trebui să copiați următorul cod VBA în acest proiect.
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
- După aceea, puteți aloca un certificat digital acestui proiect. Faceți clic pe „Instrumente” și alegeți „Semnătură digitală”. Apoi urmați vrăjitorul pentru a o finaliza.
- Mai târziu, închideți fereastra „Microsoft Visual Basic pentru aplicații” și îndreptați-vă pentru a modifica setările macrocomenzilor Outlook pentru a permite macrocomenzile semnate.
- În cele din urmă, ați putea reporni Outlook pentru a activa noul proiect VBA.
- De atunci, de fiecare dată când o anulare a unei întâlniri ajunge în Inbox, macrocomanda va porni și va elimina automat întâlnirea anulată din calendar.
Folosiți pe deplin Instrumentul de reparare Inbox
Este posibil ca mulți utilizatori Outlook să fi fost afectați de diverse probleme în Outlook, inclusiv mici defecțiuni, mesaje de eroare și nerăspuns brusc, precum și daune grave etc. Pentru a fi sincer, pentru problemele mici, Outlook are un instrument de reparare încorporat - Scanpst, care le poate repara cu ușurință. Astfel, atunci când întâmpinați probleme în Outlook, îl puteți folosi pentru a face o fotografie. Dacă nu reușește, puteți continua să beneficiați de un instrument terț cu experiență și remarcabil, cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com