¿Cómo eliminar el borrador editado actualmente sin eliminar el correo electrónico original en Outlook?

Microsoft Outlook 2013 y versiones posteriores abren las respuestas de correo electrónico en el panel de lectura de forma predeterminada. Suponga que está respondiendo a un correo electrónico y, después de 3 minutos, Outlook guarda automáticamente la respuesta como borrador. Pero luego decide no enviar esta respuesta y eliminar el borrador junto con ella. Algunos usuarios de Outlook tienden a hacer clic en el botón Eliminar en la pestaña Inicio para eliminar el borrador del Panel de lectura (vea la captura de pantalla a continuación). Pero esta acción también elimina el correo electrónico original.

En este tutorial, proporcionamos dos códigos VBA para ayudarlo a agregar dos comandos en la Barra de herramientas de acceso rápido para eliminar rápidamente el borrador editado actualmente sin eliminar el correo electrónico original en Outlook.

Eliminar el borrador editado actualmente en el panel de lectura
Eliminar el borrador editado actualmente en una nueva ventana

Eliminar el borrador editado actualmente en el panel de lectura

Si está acostumbrado a responder correos electrónicos en el panel de lectura, puede aplicar el siguiente código VBA para eliminar el borrador editado actualmente sin eliminar el correo electrónico original en Outlook.

1. Inicie su Outlook, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic Proyecto1 > Objetos de Microsoft Outlook > Esta sesión de Outlook para abrir el ThisOutlookSession (Código) ventana. Luego copie el siguiente código VBA en la ventana Código.

Código de VBA: elimine el borrador editado actualmente en el panel de lectura

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub
Sub InlineDiscard()
  On Error Resume Next
  If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
    GInlineMail.UnRead = False
    GInlineMail.Delete
  End If
  Set GInlineMail = Nothing
End Sub

3. Guarde el código y presione la otro + Q llaves para cerrar el Microsoft Visual Basic para aplicaciones ventana.

Ahora necesita un botón para ejecutar la macro.

4. Hacer clic en Personalizar la barra de herramientas de acceso rápido > Más comandos.

5. En el Opciones de outlook cuadro de diálogo, debe configurarlo de la siguiente manera.

5.1) en el Elija comandos de lista desplegable, seleccione macros;

5.2) Seleccione la macro que agregó en el paso anterior;

5.3) Haga clic en Añada para agregar esta macro al Personalizar la barra de herramientas de acceso rápido encajonar.

6. Mantenga la secuencia de comandos seleccionada en el cuadro de la derecha y luego haga clic en el modificar botón. En el Botón Modificar cuadro de diálogo, asigne un nuevo botón a la secuencia de comandos y haga clic en DE ACUERDO.

7. Hacer clic en OK existentes Opciones de outlook cuadro de diálogo para guardar los cambios.

El botón que especificó en el paso 6 se agrega al Acceso rapido a la barra de herramientas.

8. Reinicie Outlook para activar el código.

A partir de ahora, al responder a un correo electrónico en el panel de lectura, puede eliminar la respuesta junto con el borrador haciendo clic en el botón de la barra de herramientas de acceso rápido.

Nota: Después de ejecutar el script, debe seleccionar otro correo electrónico en la lista de correo para actualizar la vista de correo en la carpeta actual.

Eliminar el borrador editado actualmente en una nueva ventana

Si desea responder a los correos electrónicos en una nueva ventana. El siguiente código de VBA puede ayudar a eliminar fácilmente el correo electrónico de respuesta junto con el borrador en Outlook.

1. Inicie su Outlook, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic en recuadro > Módulo. Luego copie el siguiente código VBA en la ventana Módulo.

Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
  Dim xInspector As Inspector
  Dim xMail As MailItem
  On Error Resume Next
  Set xInspector = Application.ActiveInspector
  If xInspector Is Nothing Then Exit Sub
  Set xMail = xInspector.CurrentItem
  If Not xMail.Sent Then
    xMail.UnRead = False
    xMail.Delete
  End If
End Sub

3. presione el otro + F11 para cerrar el Microsoft Visual Basic para aplicaciones ventana.

Ahora necesita un botón para ejecutar la macro.

4. Hacer clic en Inicio > Nuevo Email para crear un nuevo correo electrónico. En la ventana del mensaje, haga clic en Personalizar la barra de herramientas de acceso rápido > Más comandos.

5. Luego repita los pasos anteriores de 5 a 7 para crear un botón para el guión y agréguelo al Acceso rapido a la barra de herramientas de la ventana de mensajes.

A partir de ahora, al responder a un correo electrónico en una nueva ventana de mensaje, puede eliminar esta respuesta junto con el borrador haciendo clic en el botón de la barra de herramientas de acceso rápido.