Εάν χρειάζεται συχνά να αλλάζετε την ώρα υπενθύμισης πολλών ραντεβού, αυτό το άρθρο θα σας φανεί πολύ χρήσιμο. Η μέθοδος εδώ θα σας εξοικονομήσει αποτελεσματικά από τη μη αυτόματη αλλαγή της ώρας υπενθύμισης μία προς μία.
Το προηγούμενο άρθρο - «3 βήματα για να δημιουργήσετε και να αλλάξετε υπενθυμίσεις για στοιχεία ημερολογίου σε παρτίδες” μοιράστηκε μια μέθοδο για μαζική αλλαγή της ώρας υπενθύμισης πολλών ραντεβού. Ωστόσο, εξακολουθεί να απαιτεί από εσάς να αλλάξετε πρώτα τις ρυθμίσεις προβολής και, στη συνέχεια, να αλλάξετε χειροκίνητα την υπενθύμιση ενός ραντεβού. Επομένως, εδώ θα σας παρουσιάσουμε έναν πολύ πιο αποτελεσματικό τρόπο. Εδώ θα δείξουμε τα λεπτομερή βήματα και τον συγκεκριμένο κώδικα VBA. Ως εκ τούτου, δεν χρειάζεται να ανησυχείτε μήπως δεν έχετε γνώσεις για το VBA. Απλά διαβάστε.
Μαζική αλλαγή της ώρας υπενθύμισης πολλών ραντεβού
- Στην αρχή, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, αποκτήστε πρόσβαση στον επεξεργαστή VBA με αναφορά στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
- Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA σε μια μονάδα που δεν χρησιμοποιείται.
Sub BatchChangeRemindersMultipleAppointments()
Dim lReminderMinBeforeStart As Long
Dim objSelection As Outlook.Selection
Dim i As Long
Dim objAppointment As Outlook.AppointmentItem
'Enter the number of minutes the reminder should occur prior to the start of the appointment
lReminderMinBeforeStart = InputBox("Enter the reminder minutes before start:", , "45")
Set objSelection = Outlook.ActiveExplorer.Selection
For i = objSelection.Count To 1 Step -1
If TypeOf objSelection.Item(i) Is AppointmentItem Then
Set objAppointment = objSelection.Item(i)
'Enable the reminder
If objAppointment.ReminderSet = False Then
With objAppointment
.ReminderSet = True
.Save
End With
End If
With objAppointment
.ReminderMinutesBeforeStart = lReminderMinBeforeStart
.Save
End With
End If
Next
'Prompt you of "Complete"
MsgBox "Complete!", vbInformation + vbOKOnly
End Sub
- Μετά από αυτό, προσθέστε αυτήν τη μακροεντολή στην κορδέλα ή στη Γραμμή εργαλείων γρήγορης πρόσβασης.
- Τέλος, μπορείτε να το δοκιμάσετε.
- Αρχικά, επιλέξτε τα ραντεβού που θέλετε.
- Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής.
- Στη συνέχεια, στο αναδυόμενο παράθυρο διαλόγου, εισαγάγετε τον αριθμό των λεπτών υπενθύμισης πριν από την έναρξη του ραντεβού.
- Τώρα, μπορείτε να ελέγξετε την ώρα υπενθύμισης των επιλεγμένων ραντεβού, τα οποία έχουν τροποποιηθεί σύμφωνα με την επιθυμία σας.
Εξάλειψη σφαλμάτων του Outlook
Εάν αντιμετωπίζετε συχνά διάφορα σφάλματα στο Outlook, θα πρέπει να λάβετε ορισμένα αυστηρά μέτρα. Για παράδειγμα, πρέπει να δημιουργήσετε αντίγραφα ασφαλείας του αρχείου σας PST του Outlook αμέσως, να σαρώσετε το αρχείο για ιούς και να τους σκοτώσετε, να μάθετε πώς να χρησιμοποιείτε αποτελεσματικά το Scanpst σε επιδιορθώστε το PST προβλήματα και αποκτήστε ένα εξωτερικό εργαλείο επιδιόρθωσης, όπως π.χ DataNumen Outlook Repair. Θα σας φανεί χρήσιμο όταν αντιμετωπίζετε ενοχλητικά προβλήματα που δεν μπορούν να αντιμετωπιστούν από το εργαλείο επισκευής εισερχομένων.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com