Kuidas Outlookis kohandatud teema ja sisuga konkreetseid sissetulevaid e-kirju automaatselt edasi saata

Outlooki lahendused September 29, 2025

Konkreetsete sissetulevate meilide automaatseks edastamiseks peaksite esmalt mõtlema Outlookis reeglite kasutamisele. Siiski ei toeta reegel meili teema ja keha kohandamist edastamisel. Kui soovite kohandatud teema ja sisuga konkreetseid e-kirju automaatselt edasi saata, võite kasutada selles artiklis kirjeldatud meetodit.

Nagu me kõik teame, võivad Outlooki reeglid aidata kasutajatel konkreetseid sissetulevaid e-kirju automaatselt edasi suunata. Sel viisil edastatakse e-kiri automaatselt konkreetsetele isikutele, mille teema on „FW: algse kirja teema” ja algse kirja sisu. Paljud kasutajad loodavad aga kohandatud teema ja sisuga meilid automaatselt edasi saata. Ilmselt ei suuda reeglid seda mõista. Seetõttu tutvustame siin lähenemist selle hõlpsaks saamiseks.

Edasta konkreetsed sissetulevad meilid automaatselt kohandatud teema ja sisuga

  1. Kohe alguses, start oma Outlooki programmi.
  2. Seejärel hankige juurdepääs VBA redaktorile viitega "Kuidas Outlookis VBA-koodi käivitada".
  3. Järgmisena kopeerige ja kleepige järgmine VBA kood projekti "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

VBA kood – konkreetsete sissetulevate meilide automaatne edastamine kohandatud teema ja sisuga

  1. Pärast seda muutke määratud sissetulevate meilide kriteeriume. Ja muutke koodis konkreetset keha, teemat ja saajaid vastavalt oma vajadustele.
  2. Lõpuks klõpsake "Application_Startup” alamprogrammi ja vajuta “F5” klahvi.
  3. Sellest ajast saati saadab Outlook iga kord, kui teie sisendkausta vaikekausta saabub konkreetne sissetulek, selle koos kohandatud teema ja kehaga automaatselt eelnevalt määratud adressaatidele.E-kirjade automaatne edastamine

Lahendage Outlooki probleeme paindlikult

Kuigi Outlook on funktsioonirikas, ei saa see vigade ja muude probleemide eest immuunne olla. Näiteks võib Outlooki PST-faili mitme teguri tõttu kergesti rikkuda. Nende hulka kuuluvad inimlikud vead, viirused, liiga suured PST-failid ja kahjustatud Outlooki profiilid ja nii edasi. Seetõttu peate võtma mõned ettevaatusabinõud, näiteks hoidma ettevaatlikult Outlooki PST-faili suurust, hoidma kõik viirused eemal ja hankima tugevad Outlooki taastamine tööriist, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server taastumine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.