Outlook: Cómo reenviar automáticamente un correo electrónico si no hay respuesta
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".

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".


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".


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.

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.

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

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!
📧 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...

