Po naplánování opakované schůzky v kalendáři aplikace Outlook, pokud chcete odstranit připomenutí událostí připadajících na víkendy, můžete použít metodu uvedenou v tomto článku.
Máte v kalendáři Outlooku nějaké opakované schůzky? Například jste naplánovali opakující se schůzku každé 4 dny. V tomto případě by některé výskyty této události připadaly na víkendy. V tuto chvíli vám mohou být připomínky těchto víkendových událostí k ničemu. Proto byste chtěli odstranit jejich připomenutí. Se zaměřením na tento požadavek zde představíme efektivní a pohodlný způsob.
Odstraňte upomínky na víkendové události opakující se schůzky
- Hned na začátku spusťte aplikaci Outlook.
- Poté přejděte do editoru Outlook VBA pomocí kláves „Alt + F11“.
- Dále vložte následující kód VBA do projektu nebo 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
- Poté můžete okno zavřít.
- Následně postupujte podle kroků uvedených v článku „Jak spustit kód VBA ve vašem Outlooku”Pro přidání tohoto makra na panel nástrojů Rychlý přístup.
- Nakonec toto makro spusťte nyní.
- Nejprve vyberte jeden výskyt opakované události.
- Dále klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
- Po dokončení makra budou odstraněna připomenutí událostí naplánovaných na víkendy. Předměty se také změní na základě kódu, jako je následující snímek obrazovky:
Chraňte výhled před korupcí
Stejně jako ostatní běžné soubory, jako je dokument aplikace Word, list aplikace Excel, je datový soubor aplikace Outlook zranitelný. Proto byste měli přijmout některá účinná opatření, abyste snížili pravděpodobnost poškození aplikace Outlook. Například musíte vytrvat v pravidelném zálohování dat PST. A co víc, abychom zabránili ztrátě dat, měli bychom mít v blízkosti nástroj pro opravu aplikace Outlook, jako je DataNumen Outlook Repair. Je schopen opravit Outlook problémy s lehkostí bez námahy.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně korupce sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com