Cómo permitir que Outlook pregunte si desea guardar una copia al enviar correos electrónicos

Al reenviar o reenviar un correo electrónico, es posible que no desee guardar una copia en la carpeta Elementos enviados. Este artículo le enseñará cómo configurar Outlook para que le solicite guardar una copia o no con Outlook VBA.

En realidad, para la mayoría de los correos electrónicos comunes, lo ideal es guardar copias en la carpeta Elementos enviados. Sin embargo, en algunas situaciones, como al reenviar o reenviar un correo electrónico, o cuando este contiene un archivo adjunto muy grande, puede que considere innecesario conservar una copia. En estos casos, Outlook le ofrecerá sugerencias y le permitirá elegir.

Solución alternativa: utilice la opción "No guardar"

De hecho, Outlook no tiene esta función. Pero puede utilizar una solución alternativa. Esa es la opción "No guardar" en la ventana del mensaje. Puede acceder a él cambiando a la pestaña "Opciones" y luego haciendo clic en el botón "Guardar elemento enviado en", como en la siguiente captura de pantalla:

Para acceder más fácilmente a esta opción, puede agregarla a la barra de herramientas de acceso rápido. Haga clic derecho y elija "Agregar a la barra de herramientas de acceso rápido" en el menú emergente.

A partir de ahora, si no desea guardar una copia, simplemente marque la casilla junto a la opción "No guardar" en la barra de herramientas de acceso rápido. Si bien este método es práctico, muchos usuarios se quejan de olvidar marcar la casilla. Por lo tanto, desean que Outlook les muestre una ventana emergente preguntando si desean guardar una copia. Para lograrlo, deberá usar VBA de Outlook. Siga leyendo para obtener los códigos y pasos detallados.

VBA: pregunte si desea guardar una copia o no al enviar correos electrónicos

1. En primer lugar, inicie Outlook y cambie a la pestaña "Desarrollador".
2. Luego haga clic en el botón “Visual Basic”, que abrirá una nueva ventana.
3. En la ventana "Visual Basic", haga doble clic en "ThisOutlookSession" para abrir la ventana del proyecto "ThisOutlookSession".
4. A continuación, copie y pegue los siguientes códigos en él.

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim nRes As Integer
 
    strMsg = "Do you want to save a copy of this message?"
    nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Confirm Saving Copy")
 
    If nRes = vbNo Then
       Item.DeleteAfterSubmit = True
    End If
End Sub

5. Después de eso, debe firmar este código como de costumbre y cambiar la configuración de macro para habilitar solo macros firmadas digitalmente.
6. Eventualmente, puedes intentarlo. Al hacer clic en el botón "Enviar", recibirá una alerta de Outlook, como la siguiente imagen. Si selecciona el botón "No", el mensaje actual no se guardará en la carpeta Elementos enviados. Mientras que si presiona el botón "Sí", este mensaje se guardará.

Hacer frente a los problemas frecuentes de Outlook

Al igual que otras aplicaciones, Outlook puede sufrir varios problemas, como bloqueos repentinos, no responder, mensajes de error ocasionales, etc. Por lo tanto, si es un usuario habitual de Outlook, será mejor que obtenga un Herramienta de reparación de archivos de Outlookdel ADN, tales como los DataNumen Outlook Repair ya que será útil cuando descubra que su archivo de Outlook está dañado por razones desconocidas.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparación SQL Server corrupción de la base de datos mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com