Outlook: cómo reenviar automáticamente el correo electrónico si no hay respuesta

Cuando envía un correo electrónico a su colega o socio cooperativo o alguien y necesita una respuesta urgente, puede establecer una configuración de reenvío automático de correo electrónico si la respuesta no ha llegado antes de un tiempo específico.

Uso de Recordatorio y VBA para configurar el reenvío automático si no hay respuesta

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

Uso de Recordatorio y VBA para configurar el reenvío automático si no hay respuesta

Parte 1: establezca un recordatorio para recordar en un tiempo específico

1. Haga clic derecho en un correo electrónico (de la carpeta Elementos enviados) que desee reenviar si no hay respuesta, en el menú contextual emergente, haga clic en Seguimiento > Agregar recordatorio.

doc reenviar si no hay respuesta 1

2. En el estallido Personalizado diálogo, mantenga el recordatorio casilla de verificación marcada, luego, en los cuadros desplegables a continuación, elija una fecha y hora en la que desea que llegue la respuesta antes, también puede escribir directamente la fecha y la hora en los cuadros. Hacer clic OK.

doc reenviar si no hay respuesta 1

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

3. Prensa otro + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.

4. Haga doble clic Esta sesión de Outlook existentes Proyecto – Proyecto1 panel para crear una secuencia de comandos en blanco, y copie y pegue el siguiente código VBA en la secuencia de comandos 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 recieved 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. Guarde el código, luego regrese a la interfaz principal, haga clic en Archive > Opciones y en the Opciones de Outlook ventana, haga clic Centro de confianza en el panel izquierdo y haga clic en Trust Center Settings para habilitar el Centro de confianza ventana. Hacer clic Configuración de macros y asegúrese de que el Habilite todas las macros (no recomendado, se puede ejecutar código potencialmente peligroso) la opción está seleccionada en la sección derecha. Hacer clic OK > OK.

doc reenviar si no hay respuesta 1

6. Ahora, si el correo electrónico enviado que se ha configurado con un recordatorio no recibe respuesta cuando llega la hora especificada, aparece un cuadro de diálogo emergente para recordarle si debe volver a enviar un correo electrónico para realizar una notificación.

doc reenviar si no hay respuesta 1

7. Hacer clic en Sí, aparece una ventana de mensaje y adjunta el correo electrónico anterior, y puede volver a editar el cuerpo y hacer clic en Enviar para reenviar el correo..

doc reenviar si no hay respuesta 1