Hvordan automatisk flytte innkommende e-poster til spesifikke mapper basert på vedleggsfilnavn

Outlook-løsninger September 29, 2025

Mange brukere håper at Outlook automatisk kan flytte og arkivere de innkommende e-postene til bestemte e-postmapper i henhold til vedleggsfilnavnene. Derfor vil vi i denne artikkelen avsløre en rask måte å hjelpe deg med å få det med Outlook VBA.

Hvis du ønsker å automatisk flytte innkommende e-poster til de spesifikke mappene i henhold til vedleggenes filnavn, vil du definitivt tenke på å bruke Outlook-regelen i utgangspunktet. Du vil imidlertid til slutt oppdage at Outlook-regelen ikke har en funksjon for å sjekke vedleggsfilnavnet. Derfor, hvis du virkelig ønsker å realisere det, må du bruke andre måter, for eksempel via et tredjepartstillegg eller Outlook VBA. Så her vil vi lære deg hvordan du oppnår det med VBA. Les videre for å få detaljerte operasjoner og konkrete VBA-koder.

Flytt automatisk innkommende e-post til spesifikke mapper basert på vedleggsfilnavn

Flytt automatisk innkommende e-post til bestemte mapper basert på vedlegg

  1. For somtart, start Outlook-programmet som normalt.
  2. Trykk deretter på "Alt + F11"-tastene for å få tilgang til VBA-editor.
  3. I det påfølgende "Microsoft Visual Basic for Applications"-vinduet kan du finne og dobbeltklikke på "ThisOutlookSession"-prosjektet på venstre side.
  4. Neste i det åpnede "ThisOutlookSession" prosjektvinduet, kopier og lim inn følgende VBA-koder.
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-koder - Flytt automatisk innkommende e-post til spesifikke mapper basert på vedleggsfilnavn

  1. Deretter må du signere det nye VBA-prosjektet digitalt.
  • For det første kan du bruke innebygd verktøy – Digitale sertifikater for VBA-prosjekter for å lage et personlig sertifikat.
  • Deretter i VBA-redigering, klikk "Verktøy"> "Digital signatur" i verktøylinjen.
  • Følg deretter instruksjonene på skjermen for å signere den.
  1. Etter det kan du avslutte VBA-redigering og endre Outlook-makrosikkerhet til lav.
  2. Senere bør du restart Outlook for å aktivere det nye VBA-prosjektet.
  3. Til slutt, fra nå av, vil Outlook automatisk sjekke vedleggenes filnavn for alle innkommende e-poster og flytte de spesifikke til bestemte mapper.Arkiver e-poster basert på vedleggsfilnavn

Beskytt PST-dataene dine

Det er almost et ubestridt faktum at Outlook er utsatt for korrupsjon. Derfor er det en ganske vanskelig oppgave å beskytte PST-dataene dine mot skade. Men du kan fortsatt finne noen regler og tips. For å unngå tap av PST-data kan du for eksempel fortsette å lage en vanlig sikkerhetskopi av data. Dessuten, for å gi umiddelbar redning etter Outlook-krasj, kan du forberede en erfaren PST-fiks verktøy, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server utvinning og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.