¿Cómo evitar que Outlook recuerde demasiado pronto o demasiado tarde?

Por ejemplo, trabaja de 9:00 am a 6:00 pm todos los días, pero ahora está programando una cita a las 10:00 am y agrega un recordatorio de 2 horas para ello en Outlook. Eso significa que el recordatorio funcionará a las 8:00 am antes de que comience su trabajo. Por otro lado, el recordatorio puede sonar a medianoche en casos especiales. Eso es bastante inconveniente, y algunos usuarios de Outlook pueden querer evitar que Outlook recuerde demasiado pronto o demasiado tarde. Aquí presentaré una macro de VBA para que la resuelva en Outlook.

Pestaña Office: habilite la edición y navegación con pestañas en Microsoft Office, haciendo que el trabajo sea muy sencillo

Leer más ...Descargar ...

Kutools para Outlook: mejore Outlook con más de 100 funciones avanzadas para una eficiencia superior

Automatiza el envío de correos electrónicos con Auto CC / BCC, Reenvío automático por reglas; enviar Respuesta automática (Fuera de la oficina) sin necesidad de un servidor Exchange...
Recibe recordatorios como Advertencia de BCC al responder a todos mientras estás en la lista CCO, y Recordar si faltan archivos adjuntos para apegos olvidados...
Mejore la eficiencia del correo electrónico con Responder (todos) con archivos adjuntos, Agregar automáticamente saludo o fecha y hora a la firma o al asunto, Responder varios correos electrónicos...
Optimice el envío de correos electrónicos con Recuperar correos electrónicos, Herramientas de adjunto (Comprimir todo, Guardar todo automáticamente...), Eliminar duplicadosy Informe rápido...

Mejore su Outlook 2021 - 2010 o Outlook 365 con estas funciones avanzadas. ¡Disfruta de una prueba completa gratuita de 60 días y mejora tu experiencia de correo electrónico!

Leer más ...Descargar ...

Para evitar que Outlook recuerde demasiado pronto o demasiado tarde, puede hacer lo siguiente:

Paso 1: Presione el otro + F11 mientras tanto, abre la ventana de Microsoft Visual Basic para Aplicaciones.

Paso 2: expanda el Objetos de Microsoft Outlook en el panel izquierdo y pegue la siguiente macro de VBA en el Esta sesión de Outlook.

VBA: evitar recordar demasiado pronto o demasiado tarde en 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

Note: Puede especificar su período de trabajo cambiando los siguientes parámetros en el código VBA anterior:
recordatorioMaxHour = 20
recordatorioMinHour = 9

Paso 3: guarde este VBA y reinicie su Microsoft Outlook.

A partir de ahora, cuando cree una cita con tiempo de recordatorio fuera de usted especificando el período de trabajo, aparecerá un cuadro de diálogo para recordarle después de hacer clic en el Guardar cerrar del botón.

Si la hora del recordatorio es anterior al recordatorioMinHour especificado, haga clic en el Sí en el cuadro de diálogo, cambiará la hora del recordatorio y hará que el recordatorio suene en el recordatorioMinHour especificado.

Si la hora del recordatorio es posterior al recordatorioMaxHour especificado, haga clic en el Sí en el cuadro de diálogo, cambiará la hora del recordatorio y le recordará en el recordatorioMaxHour especificado.

Nota: Este código VBA funciona bien con Outlook 2013, pero no con Outlook 2010 y 2007.