KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe voorkomt u dat Outlook te vroeg of te laat herinnert?

AuteurKelly Wijzigingsdatum

Stel dat u dagelijks werkt van 9:00 tot 18:00 uur. U maakt een afspraak om 10:00 uur en stelt in Outlook een herinnering in van 2 uur. Die herinnering gaat dan om 8:00 uur af — vóór het begin van uw werkdag. In extreme gevallen kan zo’n herinnering zelfs ’s nachts afgaan, wat behoorlijk onhandig is. Veel Outlook-gebruikers willen daarom voorkomen dat herinneringen te vroeg of te laat worden weergegeven. Hieronder vindt u een VBA-macro waarmee u dit probleem in Outlook oplost.

Office Tab – Schakel tabbladbewerking en -browsing in Microsoft Office in en maak werken een fluitje van een cent
Ontgrendel Kutools voor Outlook nu en geniet van meer dan 100 functies met onbeperkte toegang voor altijd
Geef uw Outlook 2024 - 2010 of Outlook 365 een boost met deze geavanceerde functies. Geniet van 100+ krachtige functies en verbeter uw e-mailervaring!

Om te voorkomen dat Outlook te vroeg of te laat herinnert, kunt u het volgende doen:

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

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

VBA: Voorkom te vroege of te late herinneringen 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

 

Opmerking: U kunt uw werktijden instellen door de volgende parameters in bovenstaande VBA-code aan te passen:
reminderMaxHour = 20
reminderMinHour = 9

Stap 3: Sla deze VBA-code op en start Microsoft Outlook opnieuw.

Vanaf nu verschijnt er een dialoogvenster zodra u op de knop Opslaan en sluiten klikt, wanneer u een afspraak maakt met een herinneringstijd buiten uw opgegeven werktijden.

de schermafbeelding van de stap over het voorkomen dat Outlook te vroeg of te laat herinnert

Als de herinneringstijd vroeger is dan het ingestelde reminderMinHour, klikt u op Ja in het dialoogvenster; de herinneringstijd wordt dan aangepast zodat de herinnering afgaat op het ingestelde reminderMinHour.

Als de herinneringstijd later is dan de ingestelde reminderMaxHour, klikt u op Ja in het dialoogvenster; de herinneringstijd wordt dan aangepast en ontvangt u de herinnering op de ingestelde reminderMaxHour.

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

Beste Office-productiviteitstools

Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!

🤖KUTOOLS AI:Gebruikt 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 plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…

📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…

📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…

🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...

👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...

👩🏼‍🤝‍👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

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

kutools for outlook features1kutools for outlook features2

🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!

  • ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
  • 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
  • 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint