Sissetulevate e-kirjade automaatne teisaldamine kindlatesse kaustadesse manusefailide nimede alusel

Outlooki lahendused September 29, 2025

Paljud kasutajad loodavad, et Outlook saab vastavalt manusefailide nimedele sissetulevad kirjad automaatselt teisaldada ja arhiveerida kindlatesse meilikaustadesse. Seetõttu tutvustame selles artiklis kiiret viisi, kuidas seda Outlook VBA abil hankida.

Kui soovite sissetulevad meilid automaatselt teisaldada konkreetsetesse kaustadesse vastavalt nende manuste failinimedele, mõtlete kindlasti kõigepealt Outlooki reegli kasutamisele. Kuid lõpuks avastate, et Outlooki reeglil pole manuse failinime kontrollimise funktsiooni. Seega, kui soovite seda tõesti realiseerida, peate kasutama muid viise, näiteks kolmanda osapoole lisandmooduli või Outlook VBA kaudu. Nii et siin õpetame teile, kuidas seda VBA-ga saavutada. Üksikasjalike toimingute ja konkreetsete VBA-koodide saamiseks lugege edasi.

Teisaldage sissetulevad meilid automaatselt kindlatesse kaustadesse manusefailide nimede alusel

Teisaldage sissetulevad meilid automaatselt manuste alusel kindlatesse kaustadesse

  1. Sest nagutart, käivitage Outlooki programm nagu tavaliselt.
  2. Seejärel vajutage VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
  3. Järgmises aknas "Microsoft Visual Basic for Applications" leiate vasakpoolsest projektist "ThisOutlookSession" ja topeltklõpsate sellel.
  4. Järgmisena kopeerige ja kleepige avanenud "ThisOutlookSession" projektiaknas järgmised VBA koodid.
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 koodid – teisaldage sissetulevad meilid automaatselt kindlatesse kaustadesse manusefailide nimede alusel

  1. Seejärel peate uue VBA projekti digitaalselt allkirjastama.
  • Esiteks saate isikliku sertifikaadi loomiseks kasutada sisseehitatud tööriista - VBA projektide digitaalseid sertifikaate.
  • Seejärel klõpsake VBA redaktoris tööriistaribal "Tööriistad" > "Digiallkiri".
  • Järgmisena järgige allkirjastamiseks ekraanil kuvatavaid juhiseid.
  1. Pärast seda saate VBA redaktorist väljuda ja muuta Outlooki makroturbe madalaks.
  2. Hiljem peaksite restart Outlook uue VBA projekti aktiveerimiseks.
  3. Lõpuks kontrollib Outlook nüüdsest automaatselt kõigi sissetulevate meilide manuste failinimesid ja teisaldab konkreetsed teatud kaustadesse.Arhiivige e-kirjad manusefailide nimede alusel

Kaitske oma PST-andmeid

See on almost vaieldamatu tõsiasi, et Outlook on vastuvõtlik korruptsioonile. Seetõttu on PST-andmete kaitsmine kahjustuste eest üsna vaevarikas ülesanne. Kuid võite siiski leida mõned reeglid ja näpunäited. Näiteks PST-andmete kadumise vältimiseks võite jätkata andmete korrapärase varukoopia tegemist. Pealegi, et pakkuda kohest päästmist pärast Outlooki krahhi, võite ette valmistada kogenud PST parandus tööriist, nagu DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server taastumine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.