Skip to main content

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

Author: Siluvia Last Modified: 2025-06-04

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

delete the currently edited draft without deleting the original email in Outlook

En este tutorial, proporcionamos dos códigos VBA para ayudarte a agregar dos comandos en la Barra de Acceso Rápido para eliminar rápidamente el borrador actualmente editado sin eliminar el 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 estás acostumbrado a responder correos electrónicos en el panel de lectura, puedes aplicar el siguiente código VBA para eliminar el borrador actualmente editado sin eliminar el correo electrónico original en Outlook.

1. Abre tu Outlook, presiona las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic for Applications.

2. En la ventana Microsoft Visual Basic for Applications, haz doble clic en Proyecto1 > Objetos de Microsoft Outlook > EstaSesiónOutlook para abrir la ventana EstaSesiónOutlook (Código). Luego copia el siguiente código VBA en la ventana Código.

delete the currently edited draft without deleting the original email in Outlook

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. Guarda el código y presiona las teclas Alt + Q para cerrar la ventana Microsoft Visual Basic for Applications.

Ahora necesitas un botón para ejecutar la macro.

4. Haz clic en Personalizar Barra de Acceso Rápido > Más Comandos.

delete the currently edited draft without deleting the original email in Outlook

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

5.1) En la lista desplegable Elegir comandos de, selecciona Macros;
5.2) Selecciona la macro que agregaste en el paso anterior;
5.3) Haz clic en el botón Agregar para añadir esta macro al cuadro Personalizar Barra de Acceso Rápido.
delete the currently edited draft without deleting the original email in Outlook

6. Mantén el script seleccionado en el cuadro derecho, y luego haz clic en el botón Modificar. En el cuadro de diálogo Modificar Botón, asigna un nuevo botón al script y haz clic en Aceptar.

delete the currently edited draft without deleting the original email in Outlook

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

El botón que especificaste en el paso 6 se agrega entonces a la Barra de Acceso Rápido.

delete the currently edited draft without deleting the original email in Outlook

8. Reinicia Outlook para activar el código.

A partir de ahora, cuando respondas a un correo electrónico en el panel de lectura, puedes eliminar la respuesta junto con el borrador haciendo clic en el botón de la Barra de Acceso Rápido.

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


Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.
doc ai email handle

Esta función admite:

  • Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
  • Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
  • Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
  • Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
  • Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
  • Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

  • 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

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!


Eliminar el borrador actualmente editado en una nueva ventana

Si prefieres responder correos electrónicos en una nueva ventana, el siguiente código VBA puede ayudarte a eliminar fácilmente la respuesta junto con el borrador en Outlook.

1. Abre tu Outlook, presiona las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic for Applications.

2. Haz clic en Insertar > Módulo. Luego copia el siguiente código VBA en la ventana Módulo.

delete the currently edited draft without deleting the original email in Outlook
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. Presiona Alt + F11 para cerrar la ventana Microsoft Visual Basic for Applications.

Ahora necesitas un botón para ejecutar la macro.

4. Haz clic en Inicio > Nuevo Correo para crear un nuevo correo electrónico. En la ventana del mensaje, haz clic en Personalizar Barra de Acceso Rápido > Más Comandos.

5. Luego repite 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, cuando respondas a un correo electrónico en una nueva ventana de mensaje, puedes eliminar esta respuesta junto con el borrador haciendo clic en el botón de la Barra de Acceso Rápido.

delete the currently edited draft without deleting the original email in Outlook

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