要自動轉發特定的傳入電子郵件,您首先要考慮在Outlook中使用規則。 但是,規則不支持您在轉發時自定義電子郵件主題和正文。 如果要自動轉發具有自定義主題和正文的特定電子郵件,則可以使用本文介紹的方法。
眾所周知,Outlook規則可以支持用戶自動轉發特定的傳入電子郵件。 這樣,電子郵件將以“ FW:原始郵件主題”和原始郵件正文的模式自動轉發給特定人員。 但是,許多用戶希望自動轉髮帶有自定義主題和正文的電子郵件。 顯然,規則無法實現。 因此,這裡我們將介紹一種輕鬆實現它的方法。
自動轉髮帶有自定義主題和正文的特定傳入電子郵件
- 首先,啟動 Outlook 程式。
- 然後,參考“如何在Outlook中運行VBA代碼“。
- 接下來,將以下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.
作者簡介:
Shirley Zhang是的數據恢復專家 DataNumen,Inc.是數據恢復技術的全球領導者,包括 SQL Server 復甦 和Outlook修復軟件產品。 欲了解更多信息,請訪問 萬維網。datanumen.COM

