Kaip automatiškai perkelti el. laiškus su skirtingų spalvų kategorijomis į skirtingus aplankus programoje „Outlook“.

Jei norite, kad „Outlook“ automatiškai perkeltų el. laiškus į skirtingus aplankus, kai jiems priskiriate skirtingas spalvų kategorijas, galite naudoti šiame įraše pateiktą metodą.

Daugelis vartotojų ilgisi būdų, kaip automatiškai perkelti el. laišką į konkretų aplanką, kai jam priskiriama tam tikra spalvų kategorija. Be jokių abejonių, „Outlook“ nesiūlo tokios tiesioginės funkcijos, kuri ją įgyvendintų. Todėl toliau mes išmokysime jus, kaip tai gauti. Dabar skaitykite toliau, kad gautumėte išsamius veiksmus.

Automatiškai perkelkite el. laiškus su skirtingų spalvų kategorijomis į skirtingus aplankus

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada „Outlook“ paspauskite klavišų kombinaciją „Alt + F11“, kad pasiektumėte VBA redaktorių.
3. Vėliau į „ThisOutlookSession“ projektą įdėkite šį VBA kodą.

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

Pastabos:

• Norėdami apdoroti elementus kituose aplankuose, galite pakeisti objektą „objInboxFolder“, pvz., „Application.Session.GetDefaultFolder(olFolderSentMail)“ aplanke „Išsiųsti elementai“.
• Taip pat pakeiskite aukščiau pateiktame kode iš anksto nustatytas spalvų kategorijas ir tikslinius aplankus pagal savo konkrečius atvejus.
• Be to, galite naudoti „ElseIf“, kad pridėtumėte kitas pasirenkamas spalvų kategorijas.

4. Po to perkelkite žymeklį į „Application_Startup“ subrutiną ir paspauskite „F5“, kuris suaktyvins šią makrokomandą.
5. Galiausiai galite nufotografuoti. Štai mano pavyzdys.

• Pasirinkite el. laišką aplanke Gautieji.
• Tada priskirkite jai spalvų kategoriją „Privati“.
• Iš karto šis laiškas bus perkeltas į aplanką „Privatus“, esantį „Gautieji“.

Atsargiai tvarkykite savo „Outlook“.

Galbūt susidūrėte su keliomis „Outlook“ problemomis. Dažniau jie iš tikrųjų atsiranda dėl jūsų netinkamo elgesio. Pavyzdžiui, visada neteisingai uždarote „Outlook“, pvz., staiga išjungiate maitinimą. Arba reguliariai nedarėte atsarginių „Outlook“ duomenų kopijų. Visi panašūs veiksmai gali padaryti jūsų „Outlook“ daug labiau pažeidžiamą. Kaip žinote, sugadinus PST failą, jį labai sunku ištaisyti. Apskritai, pašto dėžutės taisymo įrankis nepadarys efektų. Jūs neturite kito pasirinkimo, kaip tik pasinaudoti išorinėmis paprastesnėmis programomis, tokiomis kaip DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com