¿Cómo eliminar automáticamente los adjuntos después de enviar correos electrónicos desde los elementos enviados?
Al enviar un correo electrónico con algunos adjuntos, estos se almacenarán junto con los correos en la carpeta de elementos enviados de forma predeterminada. Para reducir el tamaño de tu archivo PST, es posible que desees eliminar automáticamente los adjuntos de los elementos enviados después de enviar los correos electrónicos. En este artículo, hablaré sobre esta tarea en Outlook.
Eliminar automáticamente los adjuntos después de enviar correos electrónicos desde los elementos enviados
El siguiente código VBA puede ayudarte a eliminar automáticamente los adjuntos después de enviar correos electrónicos desde tu Outlook. Por favor, sigue estos pasos:
1. Mantén presionadas 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 "ThisOutlookSession" en el panel "Project1(VbaProject.OTM)" para abrir el módulo, y luego copia y pega el siguiente código en el módulo en blanco.
Código VBA: Eliminar automáticamente adjuntos después de enviar correos electrónicos desde los 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. Después de insertar el código anterior, reinicia tu Outlook para que el código surta efecto.
4. A partir de ahora, cuando envíes correos electrónicos con adjuntos, estos se eliminarán automáticamente de los elementos enviados 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
Ú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!
📧 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...
