Cómo mover automáticamente correos electrónicos entrantes a carpetas específicas según los nombres de los archivos adjuntos

Muchos usuarios esperan que Outlook pueda mover y archivar automáticamente los correos electrónicos entrantes en carpetas de correo específicas de acuerdo con los nombres de los archivos adjuntos. Por lo tanto, en este artículo, expondremos una forma rápida de ayudarlo a obtenerlo con Outlook VBA.

Si desea mover automáticamente los correos electrónicos entrantes a las carpetas específicas según los nombres de archivo de sus archivos adjuntos, definitivamente pensará en usar la regla de Outlook en primer lugar. Sin embargo, finalmente descubrirá que la regla de Outlook no tiene una función para verificar el nombre del archivo adjunto. Por lo tanto, si realmente desea realizarlo, debe usar otras formas, por ejemplo, a través de un complemento de terceros o Outlook VBA. Así que aquí te enseñaremos cómo lograrlo con VBA. Siga leyendo para obtener las operaciones detalladas y los códigos VBA concretos.

Mover automáticamente los correos electrónicos entrantes a carpetas específicas según los archivos adjuntos

1. Porque comotart, inicie su programa Outlook como de costumbre.
2. Luego presione los botones de tecla "Alt + F11" para acceder al editor de VBA.
3. En la siguiente ventana de "Microsoft Visual Basic para Aplicaciones", puede encontrar y hacer doble clic en el proyecto "ThisOutlookSession" en el lado izquierdo.
4. A continuación, en la ventana abierta del proyecto "ThisOutlookSession", copie y pegue los siguientes códigos VBA.

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
 Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim strAttachmentName As String
    Dim objInboxFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
 
    'Ensure the incoming item is an email
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objAttachments = objMail.attachments
 
       'Check if the incoming email contains one or more attachments
       If objAttachments.Count > 0 Then
          For Each objAttachment In objAttachments
              strAttachmentName = objAttachment.DisplayName
              Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
              'Check the names of all the attachments
              'Specify the target folders
              If InStr(LCase(strAttachmentName), "worklog") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("WorkLog")
              ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Report")
              ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Statistics")
              End If
         Next
         'Move the email to specific folder
          objMail.Move objTargetFolder
       End If
    End If
End Sub

5. Posteriormente, debe firmar digitalmente el nuevo proyecto de VBA.

• En primer lugar, puede utilizar la herramienta incorporada - Certificados digitales para proyectos VBA para crear un certificado personal.
• Luego, en el editor de VBA, haga clic en "Herramientas"> "Firma digital" en la barra de herramientas.
• A continuación, siga las instrucciones en pantalla para firmarlo.

6. Después de eso, puede salir del editor de VBA y cambiar la seguridad de macros de Outlook a baja.
7. Más tarde deberías restart Outlook para activar el nuevo proyecto VBA.
8. Eventualmente, a partir de ahora, Outlook verificará automáticamente los nombres de archivo de los archivos adjuntos de todos los correos electrónicos entrantes y moverá los específicos a carpetas específicas.

Proteja sus datos PST

Es almost un hecho incuestionable que Outlook es susceptible a la corrupción. Por lo tanto, es una tarea bastante ardua proteger sus datos PST contra daños. Pero aún puede encontrar algunas reglas y consejos. Por ejemplo, para evitar la pérdida de datos PST, puede seguir haciendo una copia de seguridad de datos regular. Además, para proporcionar un rescate inmediato después del bloqueo de Outlook, puede preparar un Corrección de PST herramienta, como DataNumen Outlook Repair.

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