Kako automatski proslijediti određene dolazne poruke e-pošte s prilagođenim predmetom i tijelom u programu Outlook

Outlook rješenja 29. rujna 2025.

Za automatsko prosljeđivanje određene dolazne e-pošte, prvo ćete razmisliti o korištenju pravila u programu Outlook. Ipak, pravilo ne podržava prilagodbu predmeta i tijela e-pošte prilikom prosljeđivanja. Ako želite automatski prosljeđivati 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-pošta će biti automatski proslijeđena određenim osobama s predmetom u uzorku "FW: izvorni predmet pošte" i izvornim tijelom pošte. Međutim, mnogi se korisnici nadaju automatskom prosljeđivanju e-pošte s prilagođenim predmetom i tijelom. Očigledno, pravila to ne mogu ostvariti. Stoga ćemo ovdje predstaviti pristup kako ga lako dobiti.

Automatsko prosljeđivanje određenih dolaznih poruka e-pošte s prilagođenim predmetom i tijelom

Na samom početku start vaš program Outlook.
Zatim pristupite uređivaču VBA s 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 određeno tijelo, predmet i primatelje u kodu prema svojim potrebama.
Na kraju kliknite na “Application_Startup” potprogram i pritisnite tipku “F5”.
Od tada, svaki put kada određena dolazna poruka stigne u vašu zadanu mapu Inbox, Outlook će je automatski proslijediti s prilagođenim predmetom i tijelom unaprijed definiranim primateljima.

Fleksibilno rješavajte probleme s Outlookom

Iako je Outlook bogat značajkama, ne može biti imun na pogreške i druge probleme. Na primjer, Outlook PST datoteka može se lako oštetiti zbog više čimbenika. To uključuje ljudske pogreške, viruse, preveliku PST datoteku i oštećene Outlook profile i tako dalje. Stoga morate poduzeti neke mjere opreza, kao što je paziti na veličinu Outlook PST datoteke, držati sve viruse podalje, kao i nabaviti robustan Outlook oporavak alat, kao npr DataNumen Outlook Repair.

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 SQL Server oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com