Ako rýchlo odstrániť pripomienky na víkendové udalosti opakujúcej sa schôdzky v programe Outlook

Po naplánovaní opakovanej udalosti v kalendári programu Outlook, ak chcete odstrániť pripomenutie udalostí spadajúcich cez víkendy, môžete použiť metódu uvedenú v tomto článku.

Máte vo svojom kalendári Outlook nejaké opakované schôdzky? Napríklad ste naplánovali opakujúce sa stretnutie každé 4 dni. V takom prípade by niektoré výskyty tohto vymenovania pripadli na víkendy. V tomto okamihu môžu byť pripomenutia týchto víkendových udalostí pre vás zbytočné. Preto by ste chceli odstrániť ich pripomenutia. So zameraním na túto požiadavku tu predstavíme efektívny a pohodlný spôsob.

Odstráňte pripomienky týkajúce sa víkendových udalostí pri opakovanom stretnutí

1. Hneď na začiatku spustite aplikáciu Outlook.
2. Potom sa pomocou klávesov „Alt + F11“ obráťte na editor VBA programu Outlook.
3. Ďalej vložte nasledujúci kód VBA do projektu alebo modulu.

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. Potom môžete okno zavrieť.
5. Následne postupujte podľa krokov uvedených v článku „Ako spustiť kód VBA v programe Outlook”Pre pridanie tohto makra na Panel s nástrojmi Rýchly prístup.
6. Nakoniec spustite toto makro teraz.

• Najskôr vyberte jeden výskyt opakujúcej sa udalosti.
• Ďalej kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Po dokončení makra budú odstránené pripomenutia udalostí naplánovaných na víkendy. Subjekty sa tiež zmenia na základe kódu, napríklad na nasledujúcom obrázku:

Chráňte Outlook pred korupciou

Rovnako ako iné bežné súbory, ako napríklad dokument Word, pracovný hárok programu Excel, je dátový súbor programu Outlook zraniteľný. Preto by ste mali prijať niekoľko účinných preventívnych opatrení, aby ste znížili pravdepodobnosť poškodenia programu Outlook. Napríklad musíte pokračovať v pravidelnom zálohovaní dát PST. A čo viac, aby sa zabránilo strate údajov, mali by sme mať v blízkosti napríklad nástroj na opravu programu Outlook DataNumen Outlook Repair, Je schopný opraviť Outlook problémy bez námahy.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane korupcia sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S