Kako brzo ukloniti podsjetnike za ponavljajuće termine u Outlooku tijekom vikenda

Nakon što zakažete ponavljajući sastanak u svom Outlook kalendaru, ako želite ukloniti podsjetnike na događaje koji padaju vikendom, možete upotrijebiti metodu predstavljenu u ovom članku.

Imate li ponavljajuće obveze u svom Outlook kalendaru? Na primjer, zakazali ste termin koji se ponavlja svaka 4 dana. U ovom bi slučaju neka pojavljivanja ovog termina padala vikendom. U ovom trenutku, podsjetnici na te događaje vikendom mogu vam biti beskorisni. Stoga biste željeli ukloniti njihove podsjetnike. Usredotočujući se na ovaj zahtjev, ovdje ćemo predstaviti učinkovit i prikladan način.

Uklonite podsjetnike za termine koji se ponavljaju vikendom

1. Na samom početku pokrenite Outlook aplikaciju.
2. Zatim prijeđite na Outlook VBA uređivač putem tipki “Alt + F11”.
3. Zatim stavite sljedeći VBA kod u projekt ili modul.

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. Nakon toga možete zatvoriti prozor.
5. Nakon toga slijedite korake prikazane u članku "Kako pokrenuti VBA kod u vašem Outlooku” za dodavanje ove makronaredbe na alatnu traku za brzi pristup.
6. Na kraju, sada pokrenite ovu makronaredbu.

• Najprije odaberite jednu pojavu ponavljajućeg sastanka.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
• Nakon dovršetka makronaredbe, podsjetnici za događaje zakazane vikendom bit će uklonjeni. Također, subjekti će se mijenjati na temelju koda, poput sljedeće snimke zaslona:

Zaštitite Outlook od korupcije

Poput drugih uobičajenih datoteka, kao što su Word dokument, Excel radni list, Outlook podatkovna datoteka je ranjiva. Stoga biste trebali poduzeti neke moćne mjere opreza kako biste smanjili šanse za oštećenje Outlooka. Na primjer, morate ustrajati u redovitom PST sigurnosnom kopiranju podataka. Štoviše, kako bismo spriječili gubitak podataka, trebali bismo držati Outlook alat za popravak u blizini, npr DataNumen Outlook Repair, U stanju je popraviti Outlook problema s lakoćom bez napora.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql korupcija i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com