Μπορεί να έχετε παρατηρήσει ότι οι ακυρωμένες συσκέψεις θα εξακολουθούν να υπάρχουν στο ημερολόγιό σας. Απαιτείται να τις διαγράψετε χειροκίνητα, κάτι που είναι πολύ δύσκολο. Επομένως, θα θέλατε το Outlook να μπορεί να διαγράφει αυτόματα τις ακυρωμένες συσκέψεις. Αυτή η ανάρτηση θα σας βοηθήσει να το καταλάβετε.
Στην πραγματικότητα, το προηγούμενο άρθρο μου - "Τρόπος κατάργησης ακυρωμένων συσκέψεων από το ημερολόγιο του Outlook με προσοχή» έχει εισαγάγει μερικές συμβουλές για τη μη αυτόματη διαγραφή ακυρωμένων συσκέψεων. Επίσης, στην τελευταία ενότητα αυτού του άρθρου, υπάρχει ένας τρόπος να αφήσετε το Outlook να αφαιρέσει αυτόματα τις ακυρωμένες συσκέψεις. Αλλά αυτή η μέθοδος θα επιτρέψει στο Outlook να αποδεχτεί αυτόματα όλη την πρόσκληση σε σύσκεψη. Δεν είναι αυτό που θέλετε μερικές φορές. Επομένως, εδώ θα σας δείξουμε έναν άλλο τρόπο, ο οποίος είναι αρκετά απλός και πολύ πιο βολικός.
Αυτόματη κατάργηση ακυρωμένων συσκέψεων από το Ημερολόγιο
- Από την αρχή, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, θα πρέπει να πατήσετε τα πλήκτρα "Alt + F11" στο παράθυρο του Outlook.
- Στη συνέχεια, στο επόμενο παράθυρο του επεξεργαστή VBA, πρέπει να κάνετε διπλό κλικ στο έργο "ThisOutlookSession" στην αριστερή πλευρά.
- Στη συνέχεια, θα πρέπει να αντιγράψετε τον ακόλουθο κώδικα VBA σε αυτό το έργο.
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
- Μετά από αυτό, μπορείτε να εκχωρήσετε ένα ψηφιακό πιστοποιητικό σε αυτό το έργο. Κάντε κλικ στο «Εργαλεία» και επιλέξτε «Ψηφιακή υπογραφή». Στη συνέχεια, ακολουθήστε τον οδηγό για να το ολοκληρώσετε.
- Αργότερα, κλείστε το παράθυρο "Microsoft Visual Basic για Εφαρμογές" και κατευθυνθείτε για να αλλάξετε τις ρυθμίσεις μακροεντολών του Outlook για να επιτρέψετε τις υπογεγραμμένες μακροεντολές.
- Τελικά, θα μπορούσατε να επανεκκινήσετε το Outlook για να ενεργοποιήσετε το νέο έργο VBA.
- Έκτοτε, κάθε φορά που φτάνει στα Εισερχόμενά σας μια ακύρωση σύσκεψης, η μακροεντολή θα ξεκινά και θα αφαιρεί αυτόματα την ακυρωμένη σύσκεψη από το ημερολόγιο.
Χρησιμοποιήστε πλήρως το Εργαλείο επιδιόρθωσης εισερχομένων
Πολλοί χρήστες του Outlook μπορεί να έχουν ταλαιπωρηθεί από διάφορα ζητήματα στο Outlook τους, όπως μικρές δυσλειτουργίες, μηνύματα σφάλματος και ξαφνική μη απόκριση καθώς και σοβαρές ζημιές κ.λπ. Για να είμαι ειλικρινής, για τα μικρά ζητήματα, το Outlook διαθέτει ένα ενσωματωμένο εργαλείο επιδιόρθωσης – Σάρωση, που μπορεί να τα διορθώσει με ευκολία. Ως εκ τούτου, όταν αντιμετωπίζετε προβλήματα στο Outlook, μπορείτε να το χρησιμοποιήσετε για να τραβήξετε μια φωτογραφία. Εάν αποτύχει, θα μπορούσατε να συνεχίσετε να λαμβάνετε βοήθεια από ένα έμπειρο και αξιόλογο εργαλείο τρίτων, όπως π.χ DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com