Kā automātiski pārsūtīt konkrētus ienākošos e-pastus ar pielāgotu priekšmetu un ķermeni programmā Outlook

Outlook risinājumi Septembris 29, 2025
Kopīgot tūlīt:

Lai automātiski pārsūtītu konkrētus ienākošos e-pastus, vispirms domājat izmantot kārtulas programmā Outlook. Tomēr kārtula neatbalsta e-pasta adreses un ķermeņa pielāgošanu pārsūtīšanas laikā. Ja vēlaties automātiski pārsūtīt konkrētus e-pastus ar pielāgotu tēmu un pamattekstu, varat izmantot šajā rakstā ievadīto metodi.

Kā mēs visi zinām, Outlook kārtulas var palīdzēt lietotājiem automātiski pārsūtīt konkrētus ienākošos e-pastus. Tādējādi e-pasts tiks automātiski pārsūtīts konkrētām personām, kuru tēma būs “FW: sākotnējā pasta tēma” un oriģinālā pasta struktūra. Tomēr daudzi lietotāji cer automātiski pārsūtīt e-pastus ar pielāgotu priekšmetu un ķermeni. Acīmredzot likumi to nevar realizēt. Tāpēc šeit mēs ieviesīsim pieeju, lai to viegli iegūtu.

Automātiski pārsūtīt konkrētus ienākošos e-pastus ar pielāgotu priekšmetu un ķermeni

  1. Jau pašā sākumā start savu Outlook programmu.
  2. Pēc tam iegūstiet piekļuvi VBA redaktoram, atsaucoties uzKā palaist VBA kodu programmā Outlook".
  3. Pēc tam nokopējiet un ielīmējiet šo VBA kodu 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

VBA kods - automātiski pārsūtīt īpašus ienākošos e-pastus ar pielāgotu priekšmetu un ķermeni

  1. Pēc tam mainiet norādīto ienākošo e-pastu kritērijus. Un modificējiet kodā konkrēto ķermeni, tēmu un adresātus atbilstoši savām vajadzībām.
  2. Galu galā noklikšķiniet uz “Application_Startup ”apakšprogrammu un nospiediet taustiņu“ F5 ”.
  3. Kopš tā laika katru reizi, kad konkrētais ienākošais ierodas noklusējuma mapē Iesūtne, programma Outlook automātiski pārsūtīs to ar pielāgotu tēmu un ķermeni iepriekš definētajiem adresātiem.Automātiski pārsūtīt e-pastus

Adresāta Outlook jautājumi elastīgi

Lai gan programma Outlook ir bagāta ar funkcijām, tā nespēj pasargāt no kļūdām un citām problēmām. Piemēram, Outlook PST failu var viegli sabojāt vairāku faktoru dēļ. Tie ietver cilvēku kļūdas, vīrusus, lielizmēra PST failu un bojātus Outlook profilus utt. Tādējādi jums jāveic daži piesardzības pasākumi, piemēram, piesardzīgi jāsaglabā Outlook PST faila lielums, jāuztur visi vīrusi, kā arī jāuztur izturīgs Outlook atkopšana rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar

Kopīgot tūlīt:

Komentāri ir slēgti.