Cómo guardar automáticamente archivos adjuntos de correo electrónico específicos con Outlook VBA

Muchos usuarios esperan que Outlook pueda buscar automáticamente palabras específicas en los nombres de los archivos adjuntos y luego guardar los archivos adjuntos específicos en una carpeta local en sus computadoras. Este artículo le enseñará cómo lograrlo con Outlook VBA.

En mi trabajo diario, si los archivos adjuntos en los correos electrónicos recibidos no son muy importantes, prefiero no guardarlos en mi disco local, solo leerlos en Outlook directamente. Pero si los archivos adjuntos son importantes, como reglamentos de personal, informe de trabajo mensual, los guardaré en una carpeta específica en mi computadora. En tal caso, deseo configurar Outlook para guardar automáticamente los archivos adjuntos de correo electrónico, cuyos nombres contienen palabras específicas, en una carpeta determinada. Así que descubrí un método rápido para realizarlo con Outlook VBA. Aquí están los códigos y pasos elaborados de VBA:

Guardar automáticamente archivos adjuntos de correo electrónico específicos

1. En primer lugar, debe iniciar Outlook e ir a la pestaña "Desarrollador".
2. Posteriormente, haga clic en el botón "Visual Basic" en el grupo "Código".
3. Luego, en la ventana "Visual Basic", debe abrir el proyecto "ThisOutlookSession" y copiar los siguientes códigos en él.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim NewMail As Outlook.MailItem
    Dim Atts As Attachments
    Dim Att As Attachment
    Dim strPath As String
    Dim strName As String
 
    If Item.Class = olMail Then
       Set NewMail = Item
    End If
 
    Set Atts = Item.Attachments
 
    If Atts.Count > 0 Then
       For Each Att In Atts
           'Replace "test" with what you want to look for in attachment name
           If InStr(LCase(Att.FileName), "test") > 0 Then
              'Use your wanted destination folder path to save the attachments
              strPath = "C:\Attachments\"
              strName = NewMail.Subject & " " & Chr(45) & " " & Att.FileName
              Att.SaveAsFile strPath & strName
           End If
       Next
    End If
End Sub

4. Después de eso, debes firmar este código.

• En primer lugar, use el Certificado digital para proyectos VBA para crear un certificado.
• Luego asigne el certificado a este código, que se muestra en la siguiente imagen:

5. Después de eso, puede salir de la ventana actual de "Visual Basic" y hacer clic en el botón "Configuración de macros" en el grupo "Código" en la pestaña "Desarrollador".
6. A partir de ahora, Outlook guardará automáticamente los archivos adjuntos, cuyos nombres tienen las palabras específicas, en su carpeta local especificada.

Recuperarse de la corrupción severa de Outlook

A pesar de contar con múltiples funciones, Outlook sigue siendo propenso a la corrupción. Por lo tanto, debe controlar todos los problemas que puedan ocurrir en Outlook, como Error de correo PST, Outlook no responde y así sucesivamente. Cuando se enfrente a los errores, puede utilizar la herramienta de reparación incorporada de Outlook, ScanPST.exe, para solucionarlos. Si falla, recurra a una herramienta más poderosa.

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 problema de archivo mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com