Как автоматично да препращате конкретни входящи имейли с персонализиран предмет и тяло в Outlook

Решения за Outlook Септември 29, 2025

За да препратите автоматично конкретни входящи имейли, първо ще помислите за използване на правила в Outlook. И все пак правилото не ви поддържа да персонализирате темата и тялото на имейла при препращане. Ако искате автоматично да препращате конкретни имейли с персонализирана тема и тяло, можете да използвате метода, представен в тази статия.

Както всички знаем, правилата на Outlook могат да поддържат потребителите автоматично да препращат конкретни входящи имейли. По този начин имейлът ще бъде автоматично препратен до конкретните лица с темата в образец „FW: оригинална поща“ и оригиналното тяло на пощата. Много потребители обаче се надяват автоматично да препращат имейли с персонализиран предмет и тяло. Очевидно правилата не могат да го осъзнаят. Ето защо тук ще въведем подход, за да го постигнем с лекота.

Автоматично препращане на конкретни входящи имейли с персонализиран предмет и тяло

В самото начало, start вашата програма Outlook.
След това получете достъп до редактора на VBA с препратка към „Как да стартирате VBA код във вашия Outlook".
След това копирайте и поставете следния VBA код в проекта “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

След това променете критериите на посочените входящи имейли. И модифицирайте конкретното тяло, предмет и получатели в кода според вашите нужди.
В крайна сметка кликнете върху „Application_Startup “и натиснете клавиша„ F5 “.
Оттогава, всеки път, когато конкретна входяща пристигне в папката ви с пощенска кутия по подразбиране, Outlook автоматично ще я препраща с персонализиран предмет и тяло до предварително дефинираните получатели.

Адресирайте проблемите на Outlook гъвкаво

Въпреки че Outlook е богат на функции, той не може да бъде защитен от грешки и други проблеми. Например Outlook PST файлът може лесно да бъде повреден поради множество фактори. Те включват човешки грешки, вируси, голям PST файл и повредени профили в Outlook и т.н. По този начин трябва да предприемете някои предпазни мерки, като например да пазите внимателно размера на файла на Outlook PST, да държите всички вируси встрани, както и да се сдобиете със здрава Възстановяване на Outlook инструмент, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително SQL Server възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com