Po zaplanowaniu spotkania cyklicznego w kalendarzu programu Outlook, jeśli chcesz usunąć przypomnienia o zdarzeniach przypadających w weekendy, możesz skorzystać z metody przedstawionej w tym artykule.
Czy masz jakieś cykliczne spotkania w kalendarzu programu Outlook? Na przykład zaplanowałeś spotkanie cykliczne odbywające się co 4 dni. W takim przypadku niektóre wystąpienia tego spotkania wypadałyby w weekendy. W tym momencie przypomnienia o tych wydarzeniach weekendowych mogą być dla Ciebie bezużyteczne. Dlatego chcesz usunąć ich przypomnienia. Koncentrując się na tym wymogu, tutaj przedstawimy skuteczny i wygodny sposób.
Usuń przypomnienia o weekendowych wydarzeniach cyklicznego spotkania
- Na samym początku uruchom aplikację Outlook.
- Następnie przejdź do edytora Outlook VBA za pomocą klawiszy „Alt + F11”.
- Następnie umieść następujący kod VBA w projekcie lub module.
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
- Następnie możesz zamknąć okno.
- Następnie wykonaj czynności opisane w artykule „Jak uruchomić kod VBA w swoim Outlooku”, Aby dodać to makro do paska narzędzi szybkiego dostępu.
- W końcu uruchom to makro teraz.
- Najpierw wybierz jedno wystąpienie spotkania cyklicznego.
- Następnie kliknij przycisk makra na pasku narzędzi szybkiego dostępu.
- Po zakończeniu działania makra przypomnienia o wydarzeniach zaplanowanych na weekendy zostaną usunięte. Ponadto tematy zostaną zmienione na podstawie kodu, jak na poniższym zrzucie ekranu:
Chroń program Outlook przed korupcją
Podobnie jak inne popularne pliki, takie jak dokument programu Word, arkusz programu Excel, plik danych programu Outlook jest podatny na ataki. W związku z tym powinieneś podjąć pewne potężne środki ostrożności, aby zmniejszyć ryzyko uszkodzenia programu Outlook. Na przykład musisz zachować regularną kopię zapasową danych PST. Co więcej, aby zapobiec utracie danych, powinniśmy mieć w pobliżu narzędzie do naprawy programu Outlook, np DataNumen Outlook Repair. Jest w stanie napraw Outlooka problemy z łatwością.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym sql korupcja i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com