Para mantener el buzón de correo de Outlook en un tamaño pequeño y evitar la corrupción de los datos de Outlook, se sugiere eliminar los archivos adjuntos de los correos electrónicos que se recibieron o enviaron hace un período específico. Este artículo lo ayudará a lograrlo rápidamente con Outlook VBA.
Como todos sabemos, con el buzón de correo de Outlook más grande, los datos de Outlook se volverán mucho más vulnerables. Por lo tanto, me acostumbro a eliminar los archivos adjuntos en los correos electrónicos antiguos que son anteriores a una fecha específica, ya que generalmente los he guardado antes en mi disco local. Pero es un poco problemático tener que averiguar qué correos electrónicos están envejecidos y luego eliminar manualmente los archivos adjuntos. Para mejorar mi eficiencia, se me ocurrió una solución por medio de Outlook VBA.
Eliminar archivos adjuntos de correos electrónicos recibidos anteriores a una fecha específica
- Para empezar, abra Outlook y vaya a la pestaña "Desarrollador".
- Luego presione el botón "Visual Basic" en el grupo "Código".
- Aparecerá una nueva ventana. En él, debe abrir un nuevo módulo y copiar los siguientes códigos en él.
Sub RemoveAttachmentsfromAgedEmail()
Dim olInbox As Outlook.Folder
Dim varItem As Variant
Dim i As Integer
Dim intDatDiff As Integer
Dim Att As Attachment
Set olInbox = Session.GetDefaultFolder(olFolderInbox)
For i = olInbox.Items.Count To 1 Step -1
Set varItem = olInbox.Items.Item(i)
If varItem.Class = olMail Then
'calculate the period between now and the received time
intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)
'You can replace "50" as per your needs
If intDatDiff > 50 Then
For Each Att In varItem.Attachments
Att.Delete
Next Att
varItem.Save
End If
End If
Next
End Sub
- Ahora puede salir de la ventana actual de "Visual Basic" y proceder a agregar la macro a la barra de herramientas de acceso rápido. Siga los pasos a continuación:
- En primer lugar, presione la flecha hacia abajo en la barra de herramientas de acceso rápido y elija "Más comandos" de la lista desplegable.
- Luego, debe seleccionar "Macros" en el campo "Elegir comandos de".
- A continuación, seleccione la macro correcta y haga clic en el botón "Agregar" en el centro.
- Por último, haga clic en el botón "Aceptar" para habilitarlo y volver a la ventana principal de Outlook.
- Finalmente, puede encontrar y hacer clic en el botón en la barra de herramientas de acceso rápido. Los archivos adjuntos en los correos, que son más antiguos que la fecha especificada, se eliminarán rápidamente.
Eliminar archivos adjuntos de correos electrónicos enviados anteriores a una fecha específica
Para lograr este objetivo, puede copiar todos los códigos VBA anteriores, pero cambiar algunas líneas determinadas siguiendo los avisos a continuación:
- En primer lugar, cambie todo el "olInbox" a "olSentItemFolder" en los códigos de VBA.
- Luego reemplace "Set olInbox = Session.GetDefaultFolder (olFolderInbox)" con:
Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)
- A continuación, reemplace "intDatDiff = DateDiff (" d ", varItem.ReceivedTime, Now)" con:
intDatDiff = DateDiff("d", varItem.SentOn, Now)
Elimina los molestos errores de Outlook
Si ha utilizado Outlook durante mucho tiempo, los errores frecuentes deben haberse convertido en un asunto común. Es evidente que no es posible predecirlos ni eliminarlos por completo. Lo que puede hacer es hacer todo lo posible para resolverlos. Por ejemplo, utilice la herramienta de reparación de la bandeja de entrada, Scanpest.exe para corregir el error de correo electrónico de Outlook. Además, debe realizar una copia de seguridad periódica de sus datos de Outlook en caso de un bloqueo imprevisto.
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 daño de mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com