Kako automatski premjestiti određene e-poruke u određene mape nakon što ih pročitate u Outlooku

Mnogi korisnici žele premjestiti određene e-poruke iz Inbox-a u druge određene mape nakon što ih pročitaju, čime će mapa Inbox pošte ostati čista. Ali uvijek ručno kretanje će biti glomazno. Ovaj članak će izložiti brzu metodu za automatsku realizaciju.

Kao i obično, svaka dolazna e-pošta će sletjeti u mapu Inbox pošte u Outlooku. Dakle, u ovom slučaju, mapa Inbox će biti pretrpana i napunjena vremenom. Češće nego ne, možete ili ručno premjestiti određene e-poruke u druge mape pošte ili kreirati Outlook pravilo za automatsko premještanje određenih e-poruka čim stignu u vaše poštansko sanduče. Primjena takvog pravila je mnogo praktičnija, ali morate ići u određene mape da biste pristupili novim porukama pošte. Suočeni s ovim problemom, možete se nadati da će Outlook moći automatski premjestiti određene poruke e-pošte iz Inbox-a u druge mape pošte nakon što ih pročitate u Inbox-u umjesto nakon što stignu. Ali Outlook pravilo to ne može realizirati. Na sreću, možete koristiti Outlook VBA da biste to ostvarili. Evo kodova kao i detaljnih koraka.

Automatsko premještanje određenih e-poruka u određene mape nakon što ih pročitate

1. Na samom početku pokrenite Outlook i prebacite se na karticu "Developer".
2. Zatim na ovoj kartici pritisnite dugme „Visual Basic“ da otvorite prozor VBA editora.
3. Sljedeće u novom prozoru, trebali biste pronaći projekt “ThisOutlookSession” i dvaput kliknuti da ga otvorite.
4. Zatim kopirajte i zalijepite sljedeće VBA kodove u njega.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim deFolder As Folder
 
    'Ensure the email marked as read
    If TypeOf Item Is MailItem And Item.UnRead = False Then
 
    'Check the email subject and then move to specific folder
    'You can change these conditions and folders as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Test")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "worklog") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("WorkLog")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "report") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Report")
       Item.Move deFolder
    End If
End Sub

5. Nakon toga, trebali biste digitalno potpisati ovaj kod.

• Prvo koristite ugrađeni alat „Digitalni certifikati za VBA projekte“ da kreirate novi certifikat.
• Zatim dodijelite ovaj certifikat trenutnom makrou. Poduzmite korake prikazane na slici ispod:

6. Kasnije biste trebali promijeniti postavke makroa da biste omogućili samo digitalno potpisane makroe.
7. Na kraju biste trebali ponovo pokrenuti Outlook da biste aktivirali ovaj VBA projekat. Od sada će sve dolazne e-poruke i dalje stizati u pristiglu poštu. Ali čim se nova e-poruka pročita, automatski će se premjestiti u određene mape.

Pametni trikovi za rješavanje problema s Outlookom

Zbog činjenice da je Outlook sklon greškama, mnogi korisnici žude za pametnim savjetima za rješavanje čestih problema. Obično najčešće tehnike uključuju kreiranje novog email profila, onemogućavanje dodataka trećih strana, popravak Office paketa i korištenje alata za popravak inboxa, Scanpst.exe. Ako ugrađeni alat ne uspije, možete se poslužiti drugim, moćnijim alatom. oštećeni Outlook uslužni program za popravku, kao DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti oštećeni SQL db i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com