Wie kann verhindert werden, dass Outlook zu früh oder zu spät erinnert wird?

Sie arbeiten beispielsweise jeden Tag von 9 bis 00 Uhr, aber jetzt vereinbaren Sie einen Termin um 6 Uhr und fügen in Outlook eine Erinnerung von 00 Stunden hinzu. Das bedeutet, dass die Erinnerung um 10:00 Uhr vor Arbeitsbeginn funktioniert. Andererseits kann die Erinnerung in besonderen Fällen um Mitternacht ertönen. Das ist ziemlich unpraktisch, und einige Outlook-Benutzer möchten möglicherweise verhindern, dass Outlook zu früh oder zu spät erinnert wird. Hier werde ich ein VBA-Makro vorstellen, damit Sie es in Outlook lösen können.

Office-Registerkarte – Ermöglichen Sie das Bearbeiten und Durchsuchen mit Registerkarten in Microsoft Office und machen Sie die Arbeit zum Kinderspiel

Lesen Sie mehr...Download ...

Kutools für Outlook – Steigern Sie Outlook mit über 100 erweiterten Funktionen für überragende Effizienz

Automatisieren Sie den E-Mail-Versand mit Auto CC / BCC, Automatische Weiterleitung nach Regeln; schicken Automatische Antwort (Abwesend) ohne dass ein Exchange-Server erforderlich ist ...
Erhalten Sie Erinnerungen wie BCC-Warnung wenn Sie auf alle antworten, während Sie sich in der BCC-Liste befinden, und Bei fehlenden Anhängen erinnern für vergessene Anhänge...
Verbessern Sie die E-Mail-Effizienz mit (Allen) mit Anhängen antworten, Begrüßung oder Datum und Uhrzeit automatisch zur Signatur oder zum Betreff hinzufügen, Beantworten Sie mehrere E-Mails...
Optimieren Sie den E-Mail-Versand mit E-Mails abrufen, Anbaugeräte (Alles komprimieren, Alles automatisch speichern...), Duplikate entfernen und Kurzbericht...

Verbessern Sie Ihr Outlook 2021 – 2010 oder Outlook 365 mit diesen erweiterten Funktionen. Genießen Sie eine umfassende 60-tägige kostenlose Testversion und verbessern Sie Ihr E-Mail-Erlebnis!

Lesen Sie mehr...Download ...

Um zu verhindern, dass Outlook zu früh oder zu spät erinnert wird, haben Sie folgende Möglichkeiten:

Schritt 1: Drücken Sie die Taste Andere + F11 Geben Sie in der Zwischenzeit das Microsoft Visual Basic für Applikationen-Fenster ein.

Schritt 2: Erweitern Sie die Microsoft Outlook-Objekte Fügen Sie im linken Bereich das folgende VBA-Makro in das Feld ein DieseOutlookSession.

VBA: Verhindern Sie, dass Sie in Outlook zu früh oder zu spät daran erinnern

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

Note: Sie können Ihre Arbeitszeit angeben, indem Sie die folgenden Parameter im obigen VBA-Code ändern:
ErinnerungMaxHour = 20
ErinnerungMinHour = 9

Schritt 3: Speichern Sie diesen VBA und starten Sie Microsoft Outlook neu.

Wenn Sie von nun an einen Termin mit einer Erinnerungszeit außerhalb der Arbeitsperiode erstellen, wird ein Dialogfeld angezeigt, das Sie daran erinnert, nachdem Sie auf die Schaltfläche geklickt haben Speichern und schließen .

Wenn die Erinnerungszeit vor der angegebenen Erinnerung liegtMinHour, klicken Sie auf Ja Im Dialogfeld wird die Erinnerungszeit geändert und die Erinnerung an die angegebene ErinnerungMinHour ausgegeben.

Wenn die Erinnerungszeit später als die angegebene Erinnerung ist, klicken Sie auf Ja Im Dialogfeld wird die Erinnerungszeit geändert und Sie an die angegebene Erinnerung erinnert.

Hinweis: Dieser VBA-Code funktioniert gut mit Outlook 2013, aber nicht mit Outlook 2010 und 2007.