Si të zhvendosni automatikisht emailet hyrëse në dosje specifike bazuar në emrat e skedarëve të bashkëngjitjes

Zgjidhjet e Outlook Shtator 29, 2025

Shumë përdorues shpresojnë se Outlook mund t'i zhvendosë dhe arkivojë automatikisht emailet hyrëse në dosje specifike të postës, sipas emrave të skedarëve të bashkëngjitjes. Kështu, në këtë artikull, ne do të ekspozojmë një mënyrë të shpejtë për t'ju ndihmuar ta merrni atë me Outlook VBA.

Nëse dëshironi të zhvendosni automatikisht emailet hyrëse në dosjet specifike sipas emrave të skedarëve të bashkëngjitjeve të tyre, patjetër që do të mendoni të përdorni rregullin e Outlook në radhë të parë. Megjithatë, më në fund do të zbuloni se rregulli i Outlook nuk ka një veçori për të kontrolluar emrin e skedarit të bashkëngjitjes. Prandaj, nëse vërtet dëshironi ta realizoni atë, duhet të përdorni mënyra të tjera, për shembull, nëpërmjet një shtese të palës së tretë ose Outlook VBA. Pra, këtu do t'ju mësojmë se si ta arrini atë me VBA. Lexoni për të marrë operacionet e detajuara dhe kodet konkrete VBA.

Zhvendos automatikisht emailet hyrëse në dosje specifike bazuar në emrat e skedarëve të bashkëngjitjes

Zhvendos automatikisht emailet hyrëse në dosje specifike bazuar në bashkëngjitjet

  1. Për sitart, nisni programin tuaj Outlook si zakonisht.
  2. Më pas shtypni butonat "Alt + F11" për të hyrë në redaktuesin VBA.
  3. Në dritaren pasuese "Microsoft Visual Basic për Aplikacione", mund të gjeni dhe klikoni dy herë mbi projektin "ThisOutlookSession" në anën e majtë.
  4. Më pas në dritaren e hapur të projektit "ThisOutlookSession", kopjoni dhe ngjisni kodet e mëposhtme 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

Kodet VBA - Zhvendos automatikisht emailet hyrëse në dosje specifike bazuar në emrat e skedarëve të bashkëngjitjes

  1. Më pas, ju duhet të nënshkruani në mënyrë dixhitale projektin e ri VBA.
  • Së pari, mund të përdorni mjetin e integruar – Certifikatat dixhitale për projektet VBA për të krijuar një certifikatë personale.
  • Më pas në redaktuesin VBA, klikoni "Tools" > "Digital Signature" në shiritin e veglave.
  • Më pas ndiqni udhëzimet në ekran për ta nënshkruar atë.
  1. Pas kësaj, mund të dilni nga redaktori VBA dhe të ndryshoni sigurinë makro të Outlook në të ulët.
  2. Më vonë ju duhet të restart Outlook për të aktivizuar projektin e ri VBA.
  3. Përfundimisht, tani e tutje, Outlook do të kontrollojë automatikisht emrat e skedarëve të bashkëngjitjeve të të gjitha emaileve në hyrje dhe do t'i zhvendosë ato specifike në dosje specifike.Arkivoni emailet bazuar në emrat e skedarëve të bashkëngjitjes

Ruani të dhënat tuaja PST

Është lëmoshëost një fakt i padiskutueshëm që Outlook është i ndjeshëm ndaj korrupsionit. Prandaj, është një detyrë mjaft e mundimshme për të mbrojtur të dhënat tuaja PST kundër dëmtimit. Por ju ende mund të gjeni disa rregulla dhe këshilla. Për shembull, për të shmangur humbjen e të dhënave PST, mund të vazhdoni të bëni një kopje rezervë të rregullt të të dhënave. Për më tepër, për të ofruar shpëtim të menjëhershëm pas rrëzimit të Outlook, mund të përgatisni një me përvojë Rregullim PST mjet, si DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë SQL Server shërim dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.