Kako samodejno premakniti e-poštna sporočila z različnimi barvnimi kategorijami v različne mape v Outlooku

Če želite, da Outlook samodejno premakne e-pošto v različne mape, ko jim dodelite različne barvne kategorije, lahko uporabite metodo, predstavljeno v tej objavi.

Mnogi uporabniki hrepenijo po metodah za samodejno premikanje e-pošte v določeno mapo, ko ji je dodeljena določena barvna kategorija. Brez dvoma Outlook ne ponuja tako neposredne funkcije, da bi to uresničil. Zato vas bomo v nadaljevanju naučili, kako ga pridobiti. Zdaj preberite, če želite izvedeti podrobne korake.

Samodejno premikanje e-poštnih sporočil z različnimi barvnimi kategorijami v različne mape

1. Za začetek zaženite program Outlook.
2. Nato v Outlooku pritisnite tipke »Alt + F11« za dostop do urejevalnika VBA.
3. Nato v projekt »ThisOutlookSession« vstavite naslednjo kodo VBA.

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

Opombe:

• Če želite obdelati elemente v drugih mapah, lahko spremenite predmet »objInboxFolder«, na primer »Application.Session.GetDefaultFolder(olFolderSentMail)« za mapo »Poslani predmeti«.
• Prav tako spremenite barvne kategorije in ciljne mape, ki so vnaprej določene v zgornji kodi, glede na vaše dejanske primere.
• Poleg tega lahko uporabite »ElseIf«, da dodate druge neobvezne barvne kategorije.

4. Po tem premaknite kazalec v podprogram »Application_Startup« in pritisnite »F5«, kar bo aktiviralo ta makro.
5. Končno lahko posnamete posnetek. Tukaj je moj primer.

• Izberite e-pošto v mapi Prejeto.
• Nato mu dodelite barvno kategorijo »Zasebno«.
• Ta pošta bo takoj premaknjena v mapo »Zasebno« pod »Prejeto«.

S svojim Outlookom ravnajte previdno

Morda ste v Outlooku naleteli na več težav. Pogosteje kot ne, se dejansko pojavijo zaradi vašega nepravilnega ravnanja. Na primer, vedno nepravilno zaprete Outlook, kot je nenaden izklop. Ali pa niste redno varnostno kopirali Outlookovih podatkov. Vsa podobna dejanja lahko naredijo vaš Outlook veliko bolj ranljiv. Kot veste, ko se datoteka PST poškoduje, jo je zelo težko popraviti. Na splošno je orodje za popravilo nabiralnika ne bo imelo učinkov. Ne preostane vam drugega, kot da si pomagate z zunanjimi vrhunskimi pripomočki, kot je npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnoviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com