Kuidas erinevate värvikategooriatega e-kirju automaatselt Outlookis erinevatesse kaustadesse teisaldada

Outlooki lahendused September 29, 2025

Kui soovite, et Outlook teisaldaks e-kirjad automaatselt erinevatesse kaustadesse, kui määrate neile erinevad värvikategooriad, saate kasutada selles postituses tutvustatud meetodit.

Paljud kasutajad igatsevad meetodeid e-kirjade automaatseks teisaldamiseks konkreetsesse kausta, kui sellele on määratud teatud värvikategooria. Kahtlemata ei paku Outlook selle realiseerimiseks nii otsest funktsiooni. Seetõttu õpetame teile järgnevalt vahendeid selle saamiseks. Nüüd lugege üksikasjalike sammude saamiseks edasi.

Teisaldage erinevate värvikategooriatega meilid automaatselt Outlooki erinevatesse kaustadesse

Teisaldage erinevate värvikategooriatega meilid automaatselt erinevatesse kaustadesse

  1. Alustuseks käivitage oma Outlooki programm.
  2. Seejärel vajutage Outlookis VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
  3. Seejärel sisestage projekti "ThisOutlookSession" järgmine VBA kood.
Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

VBA kood – teisaldage erinevate värvikategooriatega meilid automaatselt erinevatesse kaustadesse

Märkused:

  • Teistes kaustades olevate üksuste töötlemiseks saate muuta objekti "objInboxFolder", näiteks "Application.Session.GetDefaultFolder(olFolderSentMail)" kaustas "Saadetud üksused".
  • Samuti muutke ülaltoodud koodis eelnevalt määratletud värvikategooriaid ja sihtkaustu vastavalt oma tegelikele juhtumitele.
  • Lisaks saate kasutada valikut ElseIf, et lisada muid valikulisi värvikategooriaid.
  1. Pärast seda liigutage kursor alamrutiini „Application_Startup” ja vajutage „F5”, mis aktiveerib selle makro.
  2. Lõpuks saate pildistada. Siin on minu näide.
  • Valige postkasti kaustas e-kiri.
  • Seejärel määrake sellele värvikategooria "Privaatne".Määrake meilile värvikategooria
  • See e-kiri teisaldatakse kohe sisendkausta all olevasse kausta Privaatne.E-post teisaldatakse automaatselt konkreetsesse kausta

Käsitsege oma Outlooki ettevaatlikult

Võib-olla on teie Outlookis ilmnenud mitu probleemi. Enamasti tekivad need teie ebaõige käitlemise tõttu. Näiteks sulgete Outlooki alati valesti, näiteks äkilise toite väljalülitamise korral. Või pole te oma Outlooki andmeid regulaarselt varundanud. Kõik sarnased toimingud võivad muuta teie Outlooki palju haavatavamaks. Nagu teate, on pärast PST-faili kahjustamist väga raske seda parandada. Üldiselt on postkasti parandamise tööriist ei anna efekte. Teil ei jää muud üle, kui kasutada väliseid tipputiliite, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql-i taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.