¿Cómo eliminar automáticamente los archivos adjuntos después de enviar correos electrónicos desde la carpeta Elementos enviados?
Al enviar un correo electrónico con archivos adjuntos, estos se guardan junto con el mensaje en la carpeta Elementos enviados de forma predeterminada. Para reducir el tamaño de su archivo PST, puede configurar Outlook para eliminar automáticamente los archivos adjuntos de los mensajes enviados justo después del envío. En este artículo, explico cómo llevar a cabo esta tarea en Outlook.
Eliminar automáticamente los archivos adjuntos tras enviar correos electrónicos desde Elementos enviados
El siguiente código VBA le permite eliminar automáticamente los archivos adjuntos tras enviar correos electrónicos desde Outlook. Siga estos pasos:
1. Mantenga pulsadas 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 «ThisOutlookSession» del panel "Project1 (VbaProject.OTM)" para abrir el módulo y, a continuación, copie y pegue el siguiente código en el módulo en blanco.
Código VBA: Eliminar automáticamente los archivos adjuntos tras enviar correos electrónicos desde Elementos enviados:
Public WithEvents SentMailItems As Outlook.Items
Private Sub Application_Startup()
Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Sub SentMailItems_ItemAdd(ByVal Item As Object)
Dim xSentMail As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xAttachmentInfo As String
On Error Resume Next
If Item.Class = olMail Then
Set xSentMail = Item
End If
Set xAttachments = xSentMail.Attachments
For i = xAttachments.Count To 1 Step -1
Set xAttachment = xAttachments.Item(i)
xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
"</BODY></HTML>" & vbCrLf & xAttachmentInfo
xAttachment.Delete
Next
xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
xSentMail.Save
End Sub
3. Tras insertar el código anterior, reinicie Outlook para que surta efecto.
4. A partir de ahora, cada vez que envíe correos electrónicos con archivos adjuntos, estos se eliminarán automáticamente de la carpeta Elementos enviados, tal como se muestra en la siguiente captura de pantalla:
Nota: Este código solo está disponible para la cuenta de datos predeterminada.
Las mejores herramientas de productividad para Office
¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!
📧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.
🚀 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