Πώς να αφαιρέσετε γρήγορα τις υπενθυμίσεις για τις εμφανίσεις του Σαββατοκύριακου ενός επαναλαμβανόμενου ραντεβού στο Outlook

Αφού προγραμματίσετε μια περιοδική συνάντηση στο ημερολόγιο του Outlook, εάν θέλετε να καταργήσετε τις υπενθυμίσεις των συμβάντων που πέφτουν τα σαββατοκύριακα, μπορείτε να χρησιμοποιήσετε τη μέθοδο που εισάγεται σε αυτό το άρθρο.

Έχετε επαναλαμβανόμενα ραντεβού στο ημερολόγιο του Outlook; Για παράδειγμα, έχετε προγραμματίσει μια επαναλαμβανόμενη συνάντηση που πραγματοποιείται κάθε 4 ημέρες. Σε αυτήν την περίπτωση, ορισμένες εμφανίσεις αυτού του ραντεβού θα πέφτουν τα σαββατοκύριακα. Σε αυτό το σημείο, οι υπενθυμίσεις αυτών των περιστατικών του Σαββατοκύριακου μπορεί να είναι άχρηστες για εσάς. Επομένως, θέλετε να καταργήσετε τις υπενθυμίσεις τους. Εστιάζοντας σε αυτήν την απαίτηση, εδώ θα παρουσιάσουμε έναν αποτελεσματικό και βολικό τρόπο.

Καταργήστε τις υπενθυμίσεις για τις εμφανίσεις του Σαββατοκύριακου ενός επαναλαμβανόμενου ραντεβού

1. Στην αρχή, ξεκινήστε την εφαρμογή Outlook.
2. Στη συνέχεια, μεταβείτε στο πρόγραμμα επεξεργασίας του Outlook VBA μέσω των πλήκτρων "Alt + F11".
3. Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα VBA σε ένα έργο ή ενότητα.

Sub RemoveRemindersOfWeekendOccurrencesOfRecurringAppointments()
    Dim objAppointment As Outlook.AppointmentItem
    Dim objCalendar As Outlook.Folder
    Dim objCalendarItems As Outlook.Items
    Dim objRecurrencePattern As RecurrencePattern
    Dim dStartDate, dEndDate As Date
    Dim dCurrentDate, dActualTime As Date
    Dim strFilter As String
    Dim objFoundAppointment As Outlook.AppointmentItem
    Dim objOccurrence As Outlook.AppointmentItem
   
    Set objAppointment = Application.ActiveExplorer.Selection.Item(1)
 
    Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
    Set objCalendarItems = objCalendar.Items
    objCalendarItems.Sort "[Start]", False
    objCalendarItems.IncludeRecurrences = True
 
    Set objRecurrencePattern = objAppointment.GetRecurrencePattern
    dStartDate = Format(objRecurrencePattern.PatternStartDate, "MM/DD/YYYY")
    dEndDate = Format(objRecurrencePattern.PatternEndDate, "MM/DD/YYYY")
   
    dCurrentDate = dStartDate
    Do Until dCurrentDate >= dEndDate
       If Weekday(dCurrentDate) = vbSaturday Or Weekday(dCurrentDate) = vbSunday Then
          dActualTime = dCurrentDate & " " & objRecurrencePattern.StartTime
          dActualTime = Format(dActualTime, "ddddd hh:mm:ss AMPM")
 
          strFilter = "[Start] <= " & Chr(34) & dCurrentDate & " 11:59 PM" & Chr(34) & " AND [End] > " & Chr(34) & dCurrentDate & " 00:00 AM" & Chr(34) & " AND [Subject] = " & Chr(34) & objAppointment.Subject & Chr(34)
          Set objFoundAppointment = objCalendarItems.Find(strFilter)
 
          If Not objFoundAppointment Is Nothing Then
             'Get the occurrence on weekends
             Set objOccurrence = objRecurrencePattern.GetOccurrence(dActualTime)
 
             'Remove the reminders
             With objOccurrence
                 .Subject = "(C)" & objAppointment.Subject
                 .ReminderSet = False
                 .Save
             End With
           End If
       End If
       dCurrentDate = DateAdd("d", 1, dCurrentDate)
    Loop
End Sub

4. Μετά από αυτό, μπορείτε να κλείσετε το παράθυρο.
5. Στη συνέχεια, ακολουθήστε τα βήματα που εμφανίζονται στο άρθρο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook"Για να προσθέσετε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης.
6. Τελικά, εκτελέστε αυτήν τη μακροεντολή τώρα.

• Πρώτα απ 'όλα, επιλέξτε μία εμφάνιση του επαναλαμβανόμενου ραντεβού.
• Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
• Μετά την ολοκλήρωση της μακροεντολής, οι υπενθυμίσεις των συμβάντων που έχουν προγραμματιστεί τα σαββατοκύριακα θα καταργηθούν. Επίσης, τα θέματα θα αλλάξουν βάσει του κώδικα, όπως το ακόλουθο στιγμιότυπο οθόνης:

Προστατέψτε το Outlook από τη διαφθορά

Όπως και άλλα κοινά αρχεία, όπως το έγγραφο του Word, το φύλλο εργασίας του Excel, το αρχείο δεδομένων του Outlook είναι ευάλωτο. Με αυτόν τον τρόπο, θα πρέπει να λάβετε μερικές ισχυρές προφυλάξεις για να μειώσετε τις πιθανότητες αλλοιώσεων του Outlook. Για παράδειγμα, πρέπει να παραμείνετε σε ένα κανονικό αντίγραφο ασφαλείας δεδομένων PST. Επιπλέον, για να αποτρέψουμε την απώλεια δεδομένων, πρέπει να διατηρήσουμε ένα εργαλείο επιδιόρθωσης του Outlook σε κοντινή απόσταση, όπως DataNumen Outlook Repair. Είναι σε θέση να επιδιορθώστε το Outlook προβλήματα με εύκολη ευκολία.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων sql διαφθορά και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com