Kako automatski proslijediti određene dolazne e-poruke s prilagođenom temom i tijelom u Outlooku

Outlook rješenja Septembar 29, 2025

Da biste automatski prosljeđivali određene dolazne e-poruke, prvo ćete razmisliti o korištenju pravila u Outlooku. Ipak, pravilo vas ne podržava da prilagodite temu i tijelo e-pošte prilikom prosljeđivanja. Ako želite automatski proslijediti određene e-poruke s prilagođenim predmetom i tijelom, možete koristiti metodu predstavljenu u ovom članku.

Kao što svi znamo, Outlook pravila mogu podržati korisnike da automatski prosljeđuju određene dolazne e-poruke. Na taj način, e-poruka će biti automatski proslijeđena određenim osobama sa temom u obrascu „FW: originalna tema pošte“ i originalnim tijelom pošte. Međutim, mnogi korisnici se nadaju da će automatski proslijediti e-poštu s prilagođenim predmetom i tijelom. Očigledno, pravila to ne mogu ostvariti. Stoga ćemo ovdje uvesti pristup da ga dobijete s lakoćom.

Automatsko prosljeđivanje specifičnih dolaznih e-poruka s prilagođenim predmetom i tijelom

Na samom početku, start vaš Outlook program.
Zatim pristupite VBA editoru sa referencom na “Kako pokrenuti VBA kod u vašem Outlooku".
Zatim kopirajte i zalijepite sljedeći VBA kod u projekt “ThisOutlookSession”.

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objForward As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'If it is a specific new email
       If (objMail.SenderEmailAddress = "bob_black@datanumen.com") And (objMail.Importance = olImportanceHigh) And (objMail.Attachments.Count > 0) Then
 
           Set objForward = objMail.Forward
           'Customize the forward subject, body and recipients
           With objForward
                .Subject = "Custom Subject"
                .HTMLBody = "<HTML><BODY>Type body here. </BODY></HTML>" & objForward.HTMLBody
                .Recipients.Add ("boss@datanumen.com")
                .Recipients.Add ("john@datanumen.com")
                .Recipients.ResolveAll
                .Importance = olImportanceHigh
                .Send
           End With
       End If
    End If
End Sub

Nakon toga promijenite kriterije navedenih dolaznih e-poruka. I izmijenite specifično tijelo, predmet i primaoce u kodu prema vašim potrebama.
Na kraju kliknite na “Application_Startup” i pritisnite taster “F5”.
Od tada, svaki put kada određeni dolazni dokument stigne u vašu zadanu fasciklu Inbox, Outlook će ga automatski proslediti sa prilagođenim predmetom i telom unapred definisanim primaocima.

Fleksibilno rješavajte probleme s Outlookom

Iako je Outlook bogat funkcijama, ne može biti imun na greške i druge probleme. Na primjer, Outlook PST datoteka može se lako oštetiti zbog više faktora. To uključuje ljudske greške, viruse, preveliku PST datoteku i oštećene Outlook profile i tako dalje. Stoga morate poduzeti neke mjere predostrožnosti, kao što je oprez u pogledu veličine Outlook PST datoteke, držanje svih virusa na udaljenosti, kao i preuzimanje robusnog Outlook oporavak alat, kao npr 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 SQL Server oporavak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com