Comment déplacer automatiquement les e-mails entrants vers des dossiers spécifiques en fonction des noms de fichiers joints

De nombreux utilisateurs espèrent qu'Outlook peut automatiquement déplacer et archiver les e-mails entrants dans des dossiers de messagerie spécifiques en fonction des noms des fichiers joints. Ainsi, dans cet article, nous allons exposer un moyen rapide pour vous aider à l'obtenir avec Outlook VBA.

Si vous souhaitez déplacer automatiquement les e-mails entrants vers des dossiers spécifiques en fonction des noms de fichiers de leurs pièces jointes, vous penserez certainement à utiliser la règle Outlook en premier lieu. Cependant, vous découvrirez enfin que la règle Outlook n'a pas de fonctionnalité pour vérifier le nom du fichier joint. Par conséquent, si vous souhaitez vraiment le réaliser, vous devez utiliser d'autres moyens, par exemple via un complément tiers ou Outlook VBA. Nous allons donc ici vous apprendre comment y parvenir avec VBA. Lisez la suite pour obtenir les opérations détaillées et les codes VBA concrets.

Déplacer automatiquement les e-mails entrants vers des dossiers spécifiques en fonction des pièces jointes

1. Pour commetart, lancez votre programme Outlook comme d'habitude.
2. Appuyez ensuite sur les touches "Alt + F11" pour accéder à l'éditeur VBA.
3. Dans la fenêtre suivante "Microsoft Visual Basic pour Applications", vous pouvez rechercher et double-cliquer sur le projet "ThisOutlookSession" sur le côté gauche.
4. Ensuite, dans la fenêtre de projet ouverte "ThisOutlookSession", copiez et collez les codes VBA suivants.

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. Ensuite, vous devez signer numériquement le nouveau projet VBA.

• Tout d'abord, vous pouvez utiliser l'outil intégré - Certificats numériques pour les projets VBA pour créer un certificat personnel.
• Ensuite, dans l'éditeur VBA, cliquez sur "Outils"> "Signature numérique" dans la barre d'outils.
• Suivez ensuite les instructions à l'écran pour le signer.

6. Après cela, vous pouvez quitter l'éditeur VBA et définir la sécurité des macros Outlook sur faible.
7. Plus tard, vous devriez restart Outlook pour activer le nouveau projet VBA.
8. Finalement, à partir de maintenant, Outlook vérifiera automatiquement les noms de fichiers des pièces jointes de tous les e-mails entrants et déplacera ceux spécifiques vers des dossiers spécifiques.

Protégez vos données PST

C'est toutost un fait incontesté qu'Outlook est susceptible d'être corrompu. Par conséquent, il est assez ardu de protéger vos données PST contre les dommages. Mais vous pouvez toujours trouver quelques règles et astuces. Par exemple, pour éviter la perte de données PST, vous pouvez continuer à effectuer une sauvegarde régulière des données. De plus, afin de fournir un secours immédiat après un crash d'Outlook, vous pouvez préparer un Correction PST outil, comme DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris SQL Server récupération et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com