Ako automaticky preposielať konkrétne prichádzajúce e-maily s vlastným predmetom a telom v programe Outlook

Riešenia pre Outlook September 29, 2025

Ak chcete automaticky preposielať konkrétne prichádzajúce e-maily, najskôr vás napadne použitie pravidiel v Outlooku. Pravidlo vás napriek tomu nepodporuje pri prispôsobovaní predmetu a tela e-mailu pri preposielaní. Ak chcete automaticky preposielať konkrétne e-maily s vlastným predmetom a textom, môžete použiť metódu uvedenú v tomto článku.

Ako všetci vieme, pravidlá Outlooku môžu podporovať používateľov pri automatickom preposielaní konkrétnych prichádzajúcich e-mailov. Týmto spôsobom bude e-mail automaticky preposlaný konkrétnym osobám s predmetom v tvare „FW: pôvodný predmet pošty“ a telo pôvodnej pošty. Mnoho používateľov však dúfa, že automaticky preposiela e-maily s vlastným predmetom a telom. Pravidlá si to zjavne nemôžu uvedomiť. Preto tu predstavíme prístup, ako to ľahko dosiahnuť.

Automatické preposielanie konkrétnych prichádzajúcich e-mailov s vlastným predmetom a telom

Hneď na úvod starváš program Outlook.
Potom získate prístup k editoru VBA s odkazom na „Ako spustiť kód VBA v programe Outlook".
Ďalej skopírujte a prilepte nasledujúci kód VBA do projektu „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

Potom zmeňte kritériá zadaných prichádzajúcich e-mailov. A upravte konkrétny orgán, predmet a príjemcov v kóde podľa svojich potrieb.
Nakoniec kliknite na „Aplikácia_Startup “a stlačte kláves„ F5 “.
Odvtedy vždy, keď konkrétny prichádzajúci priečinok dorazí do predvoleného priečinka Doručená pošta, program Outlook ho automaticky preposiela s vlastným predmetom a telom vopred určeným príjemcom.

Riešenie problémov s programom Outlook flexibilne

Aj keď je program Outlook bohatý na funkcie, nedokáže byť odolný voči chybám a iným problémom. Napríklad súbor PST programu Outlook možno ľahko poškodiť z dôvodu viacerých faktorov. Patria sem ľudské chyby, vírusy, nadrozmerný súbor PST a poškodené profily programu Outlook atď. Preto musíte urobiť určité preventívne opatrenia, ako napríklad opatrnosť pri veľkosti súboru PST programu Outlook, udržanie všetkých vírusov na uzde a získanie silného servera. Obnova programu Outlook nástroj, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server zotavenie a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S