Skip to main content

Outlook: Cómo reenviar automáticamente un correo electrónico si no hay respuesta

Author: Sun Last Modified: 2025-08-06

Cuando envías un correo electrónico a un colega, socio de trabajo o a otra persona y necesitas una respuesta con urgencia, puedes configurar un ajuste para reenviar automáticamente el correo si no has recibido respuesta antes de un tiempo determinado.

Usar Recordatorios y VBA para configurar el reenvío automático si no hay respuesta


Usar Recordatorios y VBA para configurar el reenvío automático si no hay respuesta

 

Parte 1: Configurar un recordatorio para notificar en un tiempo especificado

1. Haz clic derecho en un correo electrónico (de la carpeta Elementos enviados) que desees reenviar si no hay respuesta; en el menú contextual emergente, haz clic en "Necesita seguimiento" > "Agregar Recordatorio".

doc resend if no response 1

2. En el cuadro de diálogo "Personalizado" que aparece, mantén marcada la casilla "Recordatorio", luego, en los cuadros desplegables de abajo, selecciona una fecha y hora en las que esperas que llegue la respuesta. También puedes escribir directamente la fecha y hora en los cuadros. Haz clic en "Aceptar".

doc resend if no response 1
doc resend if no response 1

Parte 2: Insertar un VBA para reenviar correos electrónicos si no hay respuesta en el tiempo especificado

3. Presiona las teclas "Alt" + "F11" para habilitar la ventana "Microsoft Visual Basic para Aplicaciones".

4. Haz doble clic en "ThisOutlookSession" en el panel "Proyecto – Proyecto1" para crear un script en blanco, y copia y pega el siguiente código VBA en el script en blanco.

VBA: Reenviar correo electrónico si no hay respuesta

Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
  Dim xInboxFld As Folder
  Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
  Set GInboxItems = xInboxFld.Items
End Sub

'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
  Dim xSentItems As Outlook.Items
  Dim xMail As MailItem
  Dim i As Long
  Dim xSubject As String
  Dim xItemSubject As String
  Dim xSendTime As String
  On Error Resume Next
  Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
  If Item.Class <> olMail Then Exit Sub
  For i = xSentItems.Count To 1 Step -1
    If xSentItems.Item(i).Class = olMail Then
      Set xMail = xSentItems.Item(i)
      xSubject = LCase(xMail.Subject)
      xSendTime = xMail.SentOn
      xItemSubject = LCase(Item.Subject)
      If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
        If Item.SentOn > xSendTime Then
           With xMail
             .ClearTaskFlag
             .ReminderSet = False
             .Save
           End With
        End If
      End If
    End If
  Next i
End Sub

'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
  Dim xPrompt As String
  Dim xResponse As Integer
  Dim xFollowUpMail As Outlook.MailItem
  Dim xRcp As Recipient
  On Error Resume Next
  'Resend
  If (Item.Class <> olMail) Then Exit Sub
  xPrompt = "You haven't yet received the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
  xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
  If xResponse = vbNo Then Exit Sub
  Set xFollowUpMail = Application.CreateItem(olMailItem)
  With xFollowUpMail
    For Each xRcp In Item.Recipients
      .Recipients.Add (xRcp.Address)
    Next
    .Recipients.ResolveAll
    .Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
    .Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & " as soon as possible"
    .Attachments.Add Item
    .Display
  End With
End Sub

5. Guarda el código, luego regresa a la interfaz principal, haz clic en "Archivo" > "Opciones" y en la ventana "Opciones de Outlook", haz clic en "Centro de confianza" en el panel izquierdo, y haz clic en "Configuración del Centro de confianza" para habilitar la ventana "Centro de confianza". Haz clic en "Configuración de macros" y asegúrate de que la opción "Habilitar todas las macros (no recomendado; el código potencialmente peligroso puede ejecutarse)" esté seleccionada en la sección derecha. Haz clic en "Aceptar" > "Aceptar".

doc resend if no response 1
doc resend if no response 1

6. Ahora, si el correo enviado que tiene un recordatorio configurado no recibe respuesta cuando llega el tiempo especificado, aparecerá un cuadro de diálogo emergente para recordarte si deseas reenviar el correo y hacer una notificación.

doc resend if no response 1

7. Haz clic en "Sí", se abrirá una ventana de mensaje y adjuntará el correo anterior, podrás editar nuevamente el cuerpo del mensaje y hacer clic en "Enviar" para reenviar el correo.

doc resend if no response 1

8. Haz clic en "No", el recordatorio será eliminado.

doc resend if no response 1

Nota: Si el correo ha sido respondido antes del tiempo especificado, el recordatorio será eliminado por VBA.


Las mejores herramientas de productividad para Office

Últimas noticias: ¡Kutools para Outlook lanza una versión gratuita!

¡Descubre el nuevo Kutools para Outlook con más de100 funciones increíbles! ¡Haz clic para descargarlo ahora!

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

📧 Automatización de Email: Respuesta automática (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con varios destinatarios en mensajes individuales ...

📨 Gestión de Email: Recuperar correos electrónicos / Bloquear correos sospechosos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas ...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir ...

🌟 Magia de la Interfaz: 😊Más emojis atractivos y geniales / Recibe avisos cuando lleguen emails importantes / Minimiza Outlook en vez de cerrarlo ...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos Anti-Phishing / 🕘Mostrar la zona horaria del remitente ...

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

Utiliza Kutools en tu idioma preferido; ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!

Desbloquea Kutools para Outlook al instante con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!

kutools for outlook features1 kutools for outlook features2