Skip to main content

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

Author: Sun Last Modified: 2025-06-04

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 su versión gratuita!

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz 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 emails.

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

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos 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 en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos 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 contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

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

kutools for outlook features1 kutools for outlook features2