Nakon što zakažete periodični sastanak u svom Outlook kalendaru, ako želite da uklonite podsjetnike na događaje koji padaju vikendom, možete koristiti metodu predstavljenu u ovom članku.
Imate li periodične sastanke u svom Outlook kalendaru? Na primjer, zakazali ste termin koji se ponavlja svaka 4 dana. U ovom slučaju, neke pojave ovog termina padale bi vikendom. U ovom trenutku, podsjetnici na ove događaje tokom vikenda mogu biti beskorisni za vas. Stoga biste željeli ukloniti njihove podsjetnike. Fokusirajući se na ovaj zahtjev, ovdje ćemo predstaviti efikasan i praktičan način.
Uklonite podsjetnike za ponavljanje termina za vikend
- Na samom početku pokrenite Outlook aplikaciju.
- Zatim se okrenite na Outlook VBA editor pomoću tipki "Alt + F11".
- Zatim stavite sljedeći VBA kod u projekat 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
- Nakon toga možete zatvoriti prozor.
- Zatim slijedite korake prikazane u članku “Kako pokrenuti VBA kod u vašem Outlooku” da dodate ovaj makro na alatnu traku za brzi pristup.
- Na kraju, sada pokrenite ovaj makro.
- Prvo odaberite jedno pojavljivanje termina koji se ponavlja.
- Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
- Nakon što se makro završi, podsjetnici na događaje zakazane za vikende će biti uklonjeni. Takođe, subjekti će biti promenjeni na osnovu koda, kao što je sledeći snimak ekrana:
Štiti Outlook od korupcije
Kao i druge uobičajene datoteke, kao što su Word dokument, Excel radni list, Outlook datoteka podataka je ranjiva. Stoga biste trebali poduzeti neke snažne mjere opreza kako biste smanjili šanse za oštećenje Outlooka. Na primjer, morate ustrajati u redovnoj sigurnosnoj kopiji PST podataka. Štaviše, da bismo spriječili gubitak podataka, trebali bismo držati Outlook alat za popravku u blizini, npr DataNumen Outlook Repair. To je u stanju popraviti Outlook problema sa lakoćom.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql corruption i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com