Hoe inkomende e-mails automatisch naar specifieke mappen kunnen worden verplaatst op basis van bestandsnamen van bijlagen

Outlook-oplossingen 29 september 2025

Veel gebruikers hopen dat Outlook de inkomende e-mails automatisch kan verplaatsen en archiveren naar specifieke e-mailmappen op basis van de bestandsnamen van de bijlagen. Daarom zullen we in dit artikel een snelle manier blootleggen om u te helpen dit te krijgen met Outlook VBA.

Als u de inkomende e-mails automatisch naar de specifieke mappen wilt verplaatsen volgens de bestandsnamen van hun bijlagen, zult u zeker in de eerste plaats overwegen om de Outlook-regel te gebruiken. U zult echter uiteindelijk ontdekken dat de Outlook-regel geen functie heeft om de bestandsnaam van de bijlage te controleren. Als je het inderdaad wilt realiseren, moet je dus andere manieren gebruiken, bijvoorbeeld via een add-in van derden of Outlook VBA. Dus hier zullen we u leren hoe u dit kunt bereiken met VBA. Lees verder voor de gedetailleerde bewerkingen en concrete VBA-codes.

Verplaats binnenkomende e-mails automatisch naar specifieke mappen op basis van de bestandsnamen van bijlagen

Verplaats binnenkomende e-mails automatisch naar specifieke mappen op basis van bijlagen

  1. Voor alstarStart uw Outlook-programma zoals normaal.
  2. Druk vervolgens op de toets "Alt + F11" om de VBA-editor te openen.
  3. In het daaropvolgende venster “Microsoft Visual Basic for Applications” kunt u aan de linkerkant het project “ThisOutlookSession” vinden en dubbelklikken.
  4. Kopieer en plak vervolgens in het geopende projectvenster "ThisOutlookSession" de volgende VBA-codes.
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

VBA-codes - Verplaats binnenkomende e-mails automatisch naar specifieke mappen op basis van bestandsnamen in bijlagen

  1. Vervolgens moet u het nieuwe VBA-project digitaal ondertekenen.
  • Ten eerste kunt u de ingebouwde tool Digitale certificaten voor VBA-projecten gebruiken om een ​​persoonlijk certificaat te maken.
  • Klik vervolgens in de VBA-editor op “Extra” > “Digitale handtekening” in de werkbalk.
  • Volg vervolgens de instructies op het scherm om het te ondertekenen.
  1. Daarna kunt u de VBA-editor afsluiten en de Outlook-macrobeveiliging op laag zetten.
  2. Later zou je moeten restart Outlook om het nieuwe VBA-project te activeren.
  3. Uiteindelijk zal Outlook vanaf nu automatisch de bestandsnamen van de bijlagen van alle inkomende e-mails controleren en de specifieke e-mails naar specifieke mappen verplaatsen.Archiveer e-mails op basis van bestandsnamen in bijlagen

Bescherm uw PST-gegevens

Het is almost een onbetwist feit dat Outlook gevoelig is voor corruptie. Daarom is het een behoorlijk lastige taak om uw PST-gegevens tegen schade te beschermen. Maar je kunt nog steeds enkele regels en tips vinden. Om bijvoorbeeld verlies van PST-gegevens te voorkomen, kunt u doorgaan met het regelmatig maken van een gegevensback-up. Om onmiddellijke redding te bieden na een Outlook-crash, kunt u bovendien een ervaren gebruiker voorbereiden PST-oplossing tool, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL Server na een training en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.