Kako automatski premjestiti e-poštu u određenu mapu nakon što je proslijedite u Outlooku

Da biste održavali svoje poštansko sanduče u redu, možda ćete se naviknuti na spremanje određenih e-poruka u određeni folder. Ovaj članak će vam reći kako koristiti Outlook VBA za automatsko premještanje e-pošte nakon što je proslijedite.

Pohranjivanje sličnih e-poruka u određenu mapu e-pošte dobar je savjet za upravljanje velikom količinom e-poruka. Sigurno je da različiti korisnici moraju imati svoje kriterije za klasifikaciju i upravljanje e-poštom. Na primjer, možda biste radije klasificirali svoje e-poruke prema vašim naknadnim radnjama na njima, kao što su odgovor, prosljeđivanje ili drugo. Ako želite da automatski premestite e-poštu u određenu fasciklu, kao što je „Prosleđeno“, kada je prosledite, možete primeniti sledeće operacije i VBA kodove da biste je brzo dobili.

Automatski premjestite e-poštu u određenu mapu nakon što je proslijedite

1. Prvo pokrenite Outlook.
2. Zatim se prebacite na karticu "Developer".

Bilješka: Ako ne možete pronaći ovu karticu, idite na “File” > “Options” > “Customize Ribbon” da biste je prvo omogućili.

3. Nakon što je ova kartica vidljiva, ispod nje možete pronaći i kliknuti dugme „Visual Basic“.
4. Nakon toga će se pojaviti novi prozor „Microsoft Visual Basic za aplikacije“. U njemu trebate dvaput kliknuti na projekt “ThisOutlookSession” na lijevoj strani da biste ga otvorili.
5. Nakon toga, možete kopirati i zalijepiti sljedeće VBA kodove u njega.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

6. Kasnije će se od vas tražiti da potpišete novi VBA projekat.

• Prvo, koristite ugrađeni alat „Digitalni certifikati za VBA projekte“ za kreiranje digitalnog certifikata.
• Zatim dodijelite certifikat ovom makrou, kao na sljedećem snimku ekrana:

7. Kasnije možete promijeniti postavke makroa kako biste dozvolili digitalno potpisane makroe.
8. Konačno restart Outlook da aktivirate novi makro. Od sada, kada odaberete e-poštu i kliknete na dugme „Proslijedi“, e-pošta će odmah biti premještena u mapu „Proslijeđeno“.

Izbjegnite neželjeno oštećenje Outlook PST podataka

Jedan od njihost Problem koji muči korisnike Outlooka dugo vremena je to što je Outlook sklon korupciji. To će reći, patnja PST šteta je uobičajena stvar. Stoga, kako biste spriječili gubitak Outlook podataka, bolje je da napravite dosljednu i ažuriranu sigurnosnu kopiju za svoje PST podatke.

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 korumpiran SQL Server i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com