Nadat u een terugkerende afspraak in uw Outlook-agenda heeft gepland en u de herinneringen aan de gebeurtenissen die in het weekend vallen, wilt verwijderen, kunt u de methode gebruiken die in dit artikel is geïntroduceerd.
Heeft u terugkerende afspraken in uw Outlook-agenda? U hebt bijvoorbeeld een terugkerende afspraak gepland die elke 4 dagen plaatsvindt. In dit geval zou deze afspraak in sommige gevallen in het weekend vallen. Op dit punt kunnen de herinneringen aan deze gebeurtenissen in het weekend voor u nutteloos zijn. Daarom wilt u hun herinneringen verwijderen. Met de nadruk op deze vereiste, introduceren we hier een effectieve en gemakkelijke manier.
Verwijder de herinneringen voor de weekendvoorvallen van een terugkerende afspraak
- Start vanaf het begin de Outlook-applicatie.
- Ga vervolgens naar Outlook VBA-editor via "Alt + F11" -toetsen.
- Plaats vervolgens de volgende VBA-code in een project of 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
- Daarna kunt u het raam sluiten.
- Volg daarna de stappen die worden weergegeven in het artikel "Hoe u VBA-code in uw Outlook uitvoert”Om deze macro toe te voegen aan de werkbalk Snelle toegang.
- Voer deze macro nu uiteindelijk uit.
- Selecteer eerst een exemplaar van de terugkerende afspraak.
- Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
- Nadat de macro is voltooid, worden de herinneringen aan de gebeurtenissen die in het weekend zijn gepland, verwijderd. Ook zullen de onderwerpen worden gewijzigd op basis van de code, zoals de volgende screenshot:
Bescherm Outlook tegen corruptie
Net als andere veelgebruikte bestanden, zoals Word-document, Excel-werkblad, is Outlook-gegevensbestand kwetsbaar. Daarom moet u enkele krachtige voorzorgsmaatregelen nemen om de kans op Outlook-corruptie te verkleinen. U moet bijvoorbeeld volharden in een normale PST-gegevensback-up. Bovendien zouden we, om gegevensverlies te voorkomen, een Outlook-reparatietool in de buurt moeten houden, zoals DataNumen Outlook Repair. Het kan reparatie Outlook problemen met moeiteloos gemak.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com