Hoe voorkom je dat Outlook te vroeg of te laat herinnert?

Bijvoorbeeld, je werkt elke dag van 9:00 uur 's ochtends tot 18:00 uur 's avonds, maar nu maak je een afspraak om 10:00 uur en voeg je een herinnering van 2 uur toe in Outlook. Dat betekent dat de herinnering om 8:00 uur 's ochtends zal afgaan, voordat je werk begint. Aan de andere kant kan de herinnering in speciale gevallen ook midden in de nacht afgaan. Dat is best onhandig, en sommige Outlook-gebruikers willen misschien voorkomen dat Outlook te vroeg of te laat herinnert. Hier introduceer ik een VBA-macro om dit probleem in Outlook op te lossen.

Om te voorkomen dat Outlook te vroeg of te laat herinnert, kun je als volgt te werk gaan:

Stap 1: Druk tegelijkertijd op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

Stap 2: Vouw Microsoft Outlook Objects uit in het linkerpaneel en plak de volgende VBA-macro in ThisOutlookSession.

VBA: Voorkom te vroeg of te laat herinneren in Outlook

Public WithEvents g_CalendarItems As Outlook.Items
Public Sub Application_Startup()
Set g_CalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub g_CalendarItems_ItemAdd(ByVal Item As Object)
CheckReminder Item
End Sub
Private Sub g_CalendarItems_ItemChange(ByVal Item As Object)
CheckReminder Item
End Sub
Sub CheckReminder(ByVal Item As Object)
On Error GoTo ProcError
Dim strProcName As String
strProcName = "CheckReminder"
reminderMaxHour = 20
reminderMinHour = 9
Dim aAptItem As Outlook.AppointmentItem
Set aAptItem = Item
If aAptItem.ReminderSet Then
Dim reminderDate As Date
reminderDate = aAptItem.Start - aAptItem.ReminderMinutesBeforeStart / (24 * 60)
reminderHour = (reminderDate - Int(reminderDate)) * 24
tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)
If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
' best guess, first try to advance to next minHour
reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
' verify if first guess is valid
If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= aAptItem.Start Then
' OK, first guess is valid, keep it
ElseIf reminderHour > reminderMaxHour Then
' go back to max hour (same day)
reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
Else
' go back to max hour (previous day)
reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
End If
rep = MsgBox("The Reminder time is out of specified working period. Would you like to change the Reminder time?" , vbQuestion + vbYesNoCancel)
If rep = vbCancel Then
aAptItem.Display
ElseIf rep = vbYes Then
aAptItem.ReminderMinutesBeforeStart = (aAptItem.Start - reminderDateSuggestion) * 24 * 60
aAptItem.Save
End If
End If
End If
ProcExit:
Exit Sub
ProcError:
MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
End Sub

Notitie: Je kunt je werkperiode specificeren door de volgende parameters in de bovenstaande VBA-code aan te passen:
reminderMaxHour = 20
reminderMinHour = 9

Stap 3: Sla deze VBA op en herstart je Microsoft Outlook.

Vanaf nu, wanneer je een afspraak maakt met een herinneringstijd buiten je gespecificeerde werkperiode, zal er een dialoogvenster verschijnen om je te herinneren nadat je op de knop Opslaan & Sluiten hebt geklikt.

Als de herinneringstijd eerder is dan de gespecificeerde reminderMinHour, klik dan op Ja in het dialoogvenster. Het zal de herinneringstijd aanpassen en de herinnering laten klinken op de gespecificeerde reminderMinHour.

Als de herinneringstijd later is dan de gespecificeerde reminderMaxHour, klik dan op Ja in het dialoogvenster. Het zal de herinneringstijd aanpassen en je herinneren op de gespecificeerde reminderMaxHour.

Notitie: Deze VBA-code werkt goed met Outlook 2013, maar werkt niet met Outlook 2010 en 2007.

---

Beste productiviteitstools voor Office

Breaking News: Kutools voor Outlook lanceert gratis versie!

Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...

🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...

👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...

Ontgrendel direct Kutools voor Outlook met één klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functielijst van Kutools voor Outlook Gratis versie downloaden Upgrade naar Professional