¿Cómo se cambia la hora predeterminada para el envío diferido en Outlook?

Al redactar y enviar correos electrónicos en Outlook, es habitual utilizar la función «Enviar más tarde» para decidir exactamente cuándo se envían sus mensajes. De forma predeterminada, Outlook establece la hora «No entregar antes de» (como se muestra en la siguiente captura de pantalla) a las 17:00. Este comportamiento predeterminado puede causar inconvenientes en situaciones reales: si no ajusta manualmente esta hora cada vez que use la función, su correo podría no enviarse hasta las 17:00 del día siguiente, lo que normalmente no se alinea con su horario laboral ni con sus necesidades de comunicación.

Afortunadamente, Outlook ofrece formas de automatizar o personalizar esta hora predeterminada de envío diferido. Ajustarla permite adaptarla mejor a su horario laboral preferido y gestionar con mayor eficacia las expectativas de los destinatarios. En este tutorial aprenderá cómo utilizar código VBA para establecer automáticamente una hora personalizada de entrega predeterminada en todos sus correos programados, eliminando así la necesidad de realizar ajustes manuales repetitivos cada vez que use la función de envío diferido.

Cambiar la hora predeterminada para el envío diferido en Outlook con código VBA

No es posible modificar directamente la hora predeterminada interna de envío diferido de Outlook mediante las opciones o configuraciones disponibles en la aplicación. No obstante, puede implementar una solución con VBA para establecer automáticamente su hora preferida de envío diferido y las condiciones asociadas cada vez que envíe un correo electrónico. Este enfoque flexible le permite definir con precisión cuándo se activa la función de envío diferido y qué hora programada debe aplicarse, optimizando así su flujo de trabajo y asegurando coherencia.

Con el siguiente código VBA:

• Retrasar la hora de envío: Le permite indicar la hora preferida para el envío con retraso (por ejemplo, 07:30 AM).
• Hora de activación del retraso de envío: Define el período tras el cual cualquier correo electrónico enviado se retrasa automáticamente (por ejemplo, a partir de las 17:30).

Por ejemplo, si establece su hora de envío diferido a las 07:30 AM y configura el sistema para activar esta opción automáticamente después de las 17:30, cualquier correo que envíe entre las 07:30 AM y las 17:30 se enviará sin retraso. Por el contrario, si envía un correo después de las 17:30 y antes de las 07:30 AM del día siguiente, Outlook lo retendrá automáticamente y lo enviará a las 07:30 AM del siguiente día laborable.

Esta configuración es ideal para quienes quieren que sus mensajes salientes parezcan enviados durante el horario laboral habitual, independientemente del momento en que se redacten. Contribuye a proyectar una imagen profesional y reduce las interrupciones fuera del horario laboral para los destinatarios.

Antes de usar este código, tenga en cuenta los siguientes puntos:

• Outlook debe estar en ejecución a la hora programada de envío para completar el envío. El correo programado permanecerá en la Bandeja de salida hasta que Outlook esté abierto y conectado.
• Si su sistema u Outlook está configurado en una zona horaria distinta a la de sus destinatarios, ajuste las horas en consecuencia para evitar confusiones.

Siga estos pasos para implementar la solución:

1. Abra su aplicación de escritorio de Outlook y pulse simultáneamente Alt + F11 para abrir el editor de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de VBA, expanda Proyecto1 y, a continuación, haga doble clic en Objetos de Microsoft Outlook > ThisOutlookSession. Esto abrirá la ventana de código para el manejo de eventos a nivel de aplicación.

Código VBA: cambiar la hora predeterminada para el envío diferido en Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice & EWP 20230602
  Const xDelayTime As String = "07:30:00"  'The delay delivery time of emails
  Const xCompareTime As String = "17:30:00" 'The time to enable the delay delivery option
  Dim xMail As Outlook.MailItem
  Dim xWeekday As Integer
  Dim xNowTime As String
  Dim xIsDelay As Boolean
  Dim xRet1 As Integer
  Dim xRet2 As Integer
  On Error GoTo xError
  If (Item.Class <> olMail) Then Exit Sub
  Set xMail = Item
  xWeekday = Weekday(Date, vbMonday)
  xNowTime = Format(Now, "hh:nn:ss")
  xIsDelay = False
  xRet1 = StrComp(xNowTime, xDelayTime)
  xRet2 = StrComp(xNowTime, xCompareTime)
  If xRet1 = xRet2 Then
    xIsDelay = True
  End If
  If (xRet1 = -1) And (xRet2 = -1) Then
    xMail.DeferredDeliveryTime = Date & " " & xDelayTime
  Else
    If ((xWeekday = 5) And xIsDelay) Or (xWeekday = 6) Or (xWeekday = 7) Then
      xMail.DeferredDeliveryTime = (Date + (5 - xWeekday + 3)) & " " & xDelayTime
    ElseIf xIsDelay Then
      xMail.DeferredDeliveryTime = (Date + 1) & " " & xDelayTime
    End If
  End If
Exit Sub
xError:
  MsgBox "ItemSend: " & Err.Description, , "Kutools for Outlook"
End Sub

Notas:

3. Una vez introducido el código, guarde los cambios y cierre la ventana de VBA pulsando Alt+Q.

Con este script VBA activo, cualquier correo enviado dentro de su horario laboral especificado (por ejemplo, entre las 07:30 AM y las 17:30) se enviará inmediatamente. Fuera de estas horas, los correos se retendrán automáticamente y se enviarán a las 07:30 AM del siguiente día laborable, proporcionando un horario de envío coherente sin intervención manual.

Consejos adicionales y solución de problemas:

• Si encuentra problemas en los que Enviar con retraso permanecen en su Bandeja de salida y no se envían en la hora programada, verifique que Outlook esté en ejecución y disponga de una conexión de red estable en ese momento. El envío desde la Bandeja de salida requiere que Outlook esté abierto y conectado.
• Tras actualizar o reemplazar su perfil de Outlook, o si cambia a un nuevo equipo, deberá volver a aplicar este script, ya que la configuración del proyecto VBA no se transfiere automáticamente.
• Si desea desactivar temporalmente esta automatización, basta con comentar o eliminar el código en ThisOutlookSession.

Soluciones alternativas

Si prefiere una solución más rápida y sin código para programar correos electrónicos, Kutools para Outlook ofrece una función Enviar programadofácil de usar que le permite configurar horas de envío automáticas, programar envíos diferidos o agendar mensajes recurrentes con solo unos pocos clics. Más información aquí:https://www.extendoffice.com/product/kutools-for-outlook/outlook-schedule-email.html

Artículos relacionados

---

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!

🤖KUTOOLS AI:Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...

📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…

📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...

🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…

👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...

👩🏼‍🤝‍👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

Lista de funciones de Kutools para Outlook      Descargar ahora      Ir a comprar

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)

Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!

• ✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
• 🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
• 🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Acerca del Conjunto⬇ Descargar el Conjunto💳 Comprar el Conjunto