Kā automātiski pārvietot e-pastus ar dažādām krāsu kategorijām dažādās Outlook mapēs

Ja vēlaties, lai Outlook automātiski pārvietotu e-pastus uz dažādām mapēm, kad tiem piešķirat dažādas krāsu kategorijas, varat izmantot šajā ierakstā ieviesto metodi.

Daudzi lietotāji ilgojas pēc metodēm, kā automātiski pārvietot e-pastu uz noteiktu mapi, kad tam tiek piešķirta noteikta krāsu kategorija. Bez šaubām, Outlook nepiedāvā tik tiešu funkciju, lai to realizētu. Tāpēc turpmāk mēs jums iemācīsim līdzekļus, kā to iegūt. Tagad lasiet tālāk, lai iegūtu detalizētas darbības.

Automātiski pārvietot e-pastus ar dažādām krāsu kategorijām uz dažādām mapēm

1. Lai sāktu, palaidiet savu Outlook programmu.
2. Pēc tam programmā Outlook nospiediet taustiņu “Alt + F11”, lai piekļūtu VBA redaktoram.
3. Pēc tam projektā “ThisOutlookSession” ievietojiet šādu VBA kodu.

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

Piezīmes:

• Lai apstrādātu vienumus citās mapēs, mapei “Nosūtītie vienumi” varat mainīt objektu “objInboxFolder”, piemēram, “Application.Session.GetDefaultFolder (olFolderSentMail)”.
• Tāpat mainiet iepriekš minētajā kodā iepriekš definētās krāsu kategorijas un mērķa mapes atbilstoši saviem faktiskajiem gadījumiem.
• Turklāt jūs varat izmantot “ElseIf”, lai pievienotu citas izvēles krāsu kategorijas.

4. Pēc tam pārvietojiet kursoru apakšprogrammā “Application_Startup” un nospiediet “F5”, kas aktivizēs šo makro.
5. Visbeidzot, jūs varat uzņemt šāvienu. Šeit ir mans piemērs.

• Mapē Iesūtne atlasiet e-pastu.
• Pēc tam tam piešķiriet krāsu kategoriju “Privāta”.
• Uzreiz šis pasts tiks pārvietots uz mapi “Privāts” sadaļā “Iesūtne”.

Rūpīgi rīkojieties ar savu Outlook

Varbūt jūsu programmā Outlook ir radušās vairākas problēmas. Biežāk nekā nav, tie faktiski rodas no nepareizas apstrādes. Piemēram, jūs vienmēr nepareizi aizverat programmu Outlook, piemēram, pēkšņa izslēgšanās. Vai arī jūs neesat dublējis savus Outlook datus regulāri. Visas līdzīgās darbības var padarīt jūsu Outlook daudz neaizsargātāku. Kā jūs zināt, kad PST fails tiek sabojāts, to ir ārkārtīgi grūti salabot. Kopumā iesūtnes labošanas rīks neradīs efektus. Jums nekas cits neatliek kā izmantot ārējo tip-top pakalpojumu, piemēram, palīdzību DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar