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

Kako biste održali red u svom poštanskom sandučiću, možete se naviknuti spremati određene poruke e-pošte u određenu mapu. 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-pošte. Sigurno je da različiti korisnici moraju imati svoje kriterije za klasifikaciju i upravljanje 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 druge. Ako želite automatski premjestiti e-poštu u određenu mapu, kao što je "Proslijeđeno", kada je prosljeđujete, možete primijeniti sljedeće operacije i VBA kodove kako biste je brzo dobili.

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

1. Na prvom mjestu pokrenite Outlook.
2. Zatim prijeđite na karticu "Razvojni programer".

Bilješka: Ako ne možete pronaći ovu karticu, trebali biste otići na "Datoteka" > "Opcije" > "Prilagodi vrpcu" da biste je prvo omogućili.

3. Nakon što je ova kartica vidljiva, ispod nje možete pronaći i kliknuti gumb "Visual Basic".
4. Nakon toga će se pojaviti novi prozor "Microsoft Visual Basic za aplikacije". U njemu biste trebali dvaput kliknuti 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 ćete morati potpisati novi VBA projekt.

• Najprije upotrijebite ugrađeni alat "Digitalni certifikati za VBA projekte" za izradu digitalnog certifikata.
• Zatim dodijelite certifikat ovoj makronaredbi, kao na sljedećoj snimci zaslona:

7. Kasnije možete promijeniti svoje postavke makronaredbi kako biste omogućili digitalno potpisane makronaredbe.
8. Konačno restart Outlook za aktiviranje novog makronaredbe. Od sada, kada odaberete e-poštu i kliknete gumb "Proslijedi", e-pošta će se odmah premjestiti u mapu "Proslijeđeno".

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

Jedan od njihost Problem koji već duže vrijeme muči korisnike Outlooka jest da je Outlook sklon kvaru. Odnosno, patnja PST oštećenje je uobičajena stvar. Stoga, kako biste spriječili gubitak Outlook podataka, bolje je napraviti dosljednu i ažurnu sigurnosnu kopiju za svoje PST podatke.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvariti SQL Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com