如何僅基於Outlook中的特定條件自動轉發附件？
通常，轉發電子郵件時，還會包含原始郵件正文和附件。 但是，有時，您只需要轉發附件，而無需將基於標準的原始郵件轉發給特定的人。 您如何在Outlook中解決這項工作？
僅根據特定條件將附件自動轉發給具有VBA代碼的人員
例如，當收到一封主題為“ kto feature”的電子郵件時，該電子郵件的所有附件將自動轉發給特定的人，而無需消息正文。 以下步驟可以為您提供幫助：
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2。 在 Microsoft Visual Basic for Applications 窗口，雙擊 本次展望會議 來自 Project1（VbaProject.OTM） 窗格以打開模式，然後將以下代碼複製並粘貼到空白模塊中。
VBA代碼：不帶郵件正文的自動轉發電子郵件，僅包含附件：
Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xForwardMail As Outlook.MailItem
Dim xEmail As MailItem
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xEmail = Item
If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub 'change subject text to your need
If xEmail.Attachments.Count = 0 Then Exit Sub
Set xForwardMail = xEmail.Forward
With xForwardMail
.HTMLBody = ""
With .Recipients
.Add "" 'change address to your own
.ResolveAll
End With
.Send
End With
End Sub
備註：在上面的代碼中，您應該將主題文本和收件人地址更改為您自己的主題文本和收件人地址。
3。 然後保存代碼，然後重新啟動Outlook以使代碼生效。
4。 從現在開始，每當一封包含特定主題文本的新電子郵件到達您的郵箱時，Outlook都會自動將其附件轉發，而無需將郵件正文發送給所需的人員。
備註：此代碼僅適用於默認帳戶。
最佳辦公生產力工具
Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook
🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件！ ……
📧 電子郵件自動化: 外出（適用於 POP 和 IMAP） / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送（進階規則） / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...
📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...
📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...
🌟 介面魔法: 😊更多又漂亮又酷的表情符號 / 使用選項卡式視圖提高 Outlook 工作效率 / 最小化 Outlook 而不是關閉 ...
👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...
👩🏼🤝👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...
超過 100特點 等待您的探索！ 按此處了解更多。
