¿Cómo eliminar el borrador que estás editando actualmente sin borrar el correo electrónico original en Outlook?

AutorSiluvia Fecha de modificación2024-09-13

Microsoft Outlook 2013 y versiones posteriores abren las respuestas de correo electrónico en el panel de lectura de forma predeterminada. Imagina que estás respondiendo a un mensaje y, tras tres minutos, Outlook guarda automáticamente la respuesta como borrador. Sin embargo, decides no enviarla y eliminar dicho borrador. Algunos usuarios suelen hacer clic en el botón **Eliminar** de la pestaña **Inicio** para borrar el borrador desde el panel de lectura (véase la captura de pantalla siguiente). Pero esta acción también elimina el mensaje original.

eliminar el borrador actualmente editado sin eliminar el correo electrónico original en Outlook

En este tutorial, le ofrecemos dos códigos VBA para añadir dos comandos a la Barra de acceso rápido y eliminar así de forma rápida el borrador que está editando, sin afectar al correo electrónico original en Outlook.

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

Eliminar el borrador actualmente editado en el panel de lectura

Si suele responder correos electrónicos desde el panel de lectura, puede usar el siguiente código VBA para eliminar el borrador que está editando actualmente sin borrar el mensaje original en Outlook.

1. Inicie Outlook y pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en Project1 > Objetos de Microsoft Outlook > ThisOutlookSession para abrir la ventana de ThisOutlookSession (Código). A continuación, copie el siguiente código VBA en la ventana de código.

Código VBA: Eliminar el borrador actualmente editado 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 pulse las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

Ahora necesita un botón para ejecutar la macro.

4. Haga clic en Personalizar barra de acceso rápido > Más comandos.

5. En el cuadro de diálogo Opciones de Outlook, debe configurar lo siguiente.

5,1) En el campo Elegir comandos deLista desplegable, seleccione Macros;

5,2) Seleccione la macro que añadió en el paso anterior;

5,3) Haga clic en el botón Agregarpara añadir esta macro al cuadro de Personalizar barra de acceso rápido.

6. Mantenga seleccionado el script en el cuadro de la derecha y, a continuación, haga clic en el botón Modificar. En el cuadro de diálogo Modificar botón, asigne un nuevo botón al script y haga clic en Aceptar.

7. Haga clic en Aceptar en el cuadro de diálogo de Opciones de Outlook para guardar los cambios.

El botón que especificó en el paso 6 se añade entonces a la Barra de acceso rápido.

8. Reinicie Outlook para activar el código.

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

Nota: Tras ejecutar el script, debe seleccionar otro correo electrónico en la Lista de correos electrónicos para actualizar la vista del mensaje en la Carpeta actual.

Asistente de correo con IA en Outlook: respuestas más inteligentes y comunicación más clara (¡magia con un solo clic!)

Simplifique sus tareas diarias en Outlook con el Asistente de correo con IA de Kutools para Outlook. Esta potente herramienta aprende de sus correos anteriores para ofrecerle respuestas inteligentes y precisas, optimizar el contenido de sus mensajes y ayudarle a redactarlos y perfeccionarlos sin esfuerzo.

Esta función incluye:

Respuestas inteligentes: obtenga respuestas elaboradas a partir de sus conversaciones anteriores: personalizadas, precisas y listas para usar.
Contenido mejorado: refine automáticamente el texto de sus correos electrónicos para lograr mayor claridad e impacto.
Redacción sin esfuerzo: proporcione solo palabras clave y deje que la IA haga el resto, con múltiples estilos de escritura.
Extensiones inteligentes: potencie sus ideas con sugerencias adaptadas al contexto.
Resumen: obtenga al instante resúmenes concisos de correos electrónicos extensos.
Alcance global: traduzca sus correos electrónicos a cualquier idioma con facilidad.

Esta función incluye:

Respuestas inteligentes de correo electrónico
Contenido optimizado
Borradores basados en palabras clave
Extensión inteligente de contenido
Resumen de correos electrónicos
Traducción multilingüe

¡No espere más—descargue ahora el Asistente de correo con IA y disfrute!

a name="a2"> Eliminar el borrador actualmente editado en una nueva ventana

Si prefiere responder correos electrónicos en una nueva ventana, el siguiente código VBA le ayudará a eliminar fácilmente el correo de respuesta junto con el borrador en Outlook.

1. Inicie Outlook y pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo. Luego, copie el siguiente código VBA en la ventana del 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. Pulse las teclas Alt + F11 para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

Ahora necesita un botón para ejecutar la macro.

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

5. A continuación, repita los pasos anteriores del 5 al 7 para crear un botón para el script y añadirlo a la Barra de acceso rápido de la ventana del mensaje.

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

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga 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 correos.

📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...

📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…

📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...

🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…

👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...

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

Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

Lista de funciones de Kutools para Outlook Descargar ahora Ir a comprar

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)

Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!

✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Acerca del Conjunto ⬇ Descargar el Conjunto 💳 Comprar el Conjunto