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

Je werkt bijvoorbeeld elke dag van 9 uur tot 00 uur, maar maakt nu om 6 uur een afspraak en voegt daar een herinnering van 00 uur voor toe in Outlook. Dat betekent dat de herinnering om 10 uur werkt voordat uw werk begint. Aan de andere kant kan de herinnering in speciale gevallen om middernacht klinken. Dat is nogal onhandig, en sommige Outlook-gebruikers willen misschien voorkomen dat Outlook te vroeg of te laat eraan herinnert. Hier zal ik een VBA-macro introduceren die u in Outlook kunt oplossen.

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

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

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

VBA: voorkom dat u te vroeg of te laat herinnert 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 werkperiode specificeren door de volgende parameters in de VBA-code hierboven te wijzigen:
herinneringMaxHour = 20
herinneringMinHour = 9

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

Vanaf nu, wanneer u een afspraak maakt met een herinneringstijd buiten uw werkperiode, zal er een dialoogvenster verschijnen om u eraan te herinneren nadat u op de knop Opslaan en sluiten knop.

Als de herinneringstijd eerder is dan de opgegeven reminderMinHour, klikt u op het Ja in het dialoogvenster zal het de herinneringstijd veranderen en de herinnering laten klinken op de gespecificeerde reminderMinHour.

Als de herinneringstijd later is dan de opgegeven reminderMaxHour, klikt u op het Ja in het dialoogvenster zal het de herinneringstijd veranderen en u eraan herinneren op de opgegeven reminderMaxHour.

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

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

• Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
• BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
• Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
• Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
• Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.

Lees verder... Download nu...