在 Outlook 撰寫郵件時，如何將所有附件的檔名自動插入郵件內文中？
有沒有更簡便的方法，能在 Outlook 撰寫郵件時，自動將所有附件名稱插入郵件內文？本文將為您說明如何在 Outlook 中輕鬆完成這項操作。
使用 VBA 程式碼在撰寫郵件時將所有附件名稱列入郵件內文
請依照下列步驟完成此任務：
1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。
2. 在 Microsoft Visual Basic for Applications 視窗中，於 Project 1(VbaProject.OTM) 窗格內雙擊 ThisOutlookSession 以開啟模組，並將下列程式碼複製貼上至空白模組中。
VBA 程式碼：將所有附件名稱列入郵件內文：
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As MailItem
If Item.Class = olMail Then
Set xMailItem = Item
If xMailItem.Attachments.Count > 0 Then
AddAttachmentNamesToBody
End If
End If
End Sub
3. 接著點選插入＞ 模組，並將下方程式碼複製貼上至開啟的空白模組中，如下圖所示：
VBA 程式碼：將所有附件名稱列入郵件內文：
Public Sub AddAttachmentNamesToBody()
Dim xMailItem As MailItem
Dim xAttachment As Attachment
Dim xFileName As String
Dim xInspector As Outlook.Inspector
Dim xDoc As Word.Document
Dim xWdSelection As Word.Selection
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
If xMailItem.Attachments.Count = 0 Then
Exit Sub
End If
xFileName = ""
For Each xAttachment In xMailItem.Attachments
If xFileName = "" Then
xFileName = " <" & xAttachment.FileName & "> "
Else
xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
End If
Next xAttachment
Set xInspector = Outlook.Application.ActiveInspector()
Set xDoc = xInspector.WordEditor
Set xWdSelection = xDoc.Application.Selection
xWdSelection.HomeKey Unit:=wdStory
xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
Set xMailItem = Nothing
End Sub
4. 接著點選工具> 參考項目（位於 ）Microsoft Visual Basic for Applications 視窗中）。在彈出的 參考項目 - Project 1 對話方塊中，於可用參考項目清單內的 Microsoft Word 物件庫選項前方核取方塊打勾，如下圖所示：
 |  |  |
5. 按一下確定關閉對話方塊，接著將巨集按鈕新增至快速存取工具列：在新的郵件視窗中，從其他命令（位於）自訂快速存取工具列下拉選單中）選擇，如下圖所示：
6. 在 Outlook 選項對話方塊中，執行下列操作：
（1.） 從巨集（位於）從下列位置選擇命令下拉清單中）選取；
（2.） 點選剛才插入的巨集名稱。
（3.） 接著點擊新增按鈕，即可將該巨集加入自訂快速存取工具列！
7. 接著點選確定，即可關閉對話方塊。現在，巨集按鈕已成功新增至快速存取工具列，如下圖所示：
8. 現在，當您建立新郵件並點選巨集按鈕時，附件名稱將如以下截圖所示，插入至郵件內文上方：
使用簡易功能在撰寫郵件時將所有附件名稱列入郵件內文
上述程式碼對您而言可能稍嫌複雜，若您已安裝 Kutools for Outlook，即可透過其複製名稱功能，快速將郵件附件名稱複製並貼上至任何所需位置！
安裝 Kutools for Outlook 後，請依下列步驟操作：
1. 首先，請先建立所需的新郵件，然後在新開啟的 Kutools複製名稱郵件視窗中點選，如下圖所示：
2. 接著會彈出提示方塊，提醒您附件名稱已複製至剪貼簿，如下圖所示：
3. 現在，只需同時按下 Ctrl + V 鍵，即可將附件名稱貼上至郵件內文的指定位置，如下圖所示：
更多相關文章：
- 帶原始附件全部答覆在 Outlook 中
- 一般情況下，當您在 Outlook 中使用「全部回覆」功能回覆郵件給所有收件人時，原始附件會自動遺失。是否可以在 Outlook 中執行「全部回覆」時一併保留原始附件？
- 將 Outlook 中的附件下載／儲存至特定資料夾
- 一般來說，您可以透過點選「附件」>「儲存所有附件」，輕鬆儲存單封郵件中的所有附件。但若您需要從所有已接收的電子郵件中批量儲存附件，是否有更有效率的方法呢？本文將為您介紹兩種實用解決方案，協助您自動將 Outlook 中的附件下載至指定資料夾。
- 變更 Outlook 中的預設附件保存區域
- 您是否厭倦了每次啟動 Outlook 時，都得重新尋找先前指定的附件儲存位置？本教學將示範如何變更預設的附件儲存資料夾。設定完成後，即使重新啟動 Outlook，每次儲存附件時都會自動開啟您指定的資料夾。
- 從 Outlook 郵件中移除所有附件
- 通常在預覽郵件時，您可透過右鍵點選附件並選擇「移除附件」來刪除單一附件。然而，當一封郵件包含多個附件時，逐一刪除將相當耗時費力。本文提供兩種簡便技巧，助您輕鬆一次移除單封郵件中的所有附件，甚至同步處理多封郵件的附件。
最佳 Office 生產力工具
體驗全新 Kutools for Outlook，內含 100+ 項超強功能！立即點擊下載！
🤖KUTOOLS AI：運用先進 AI 技術，輕鬆處理電子郵件——無論是回覆、摘要、優化、擴充、翻譯還是撰寫郵件，通通一鍵搞定！
📧 郵件自動化：自動答覆（支援 POP 與 IMAP）／預約寄送郵件／寄信時依規則自動抄送密送／自動轉發（高級規則）／自動加入問候語／自動將多收件人郵件拆分為個別訊息……
📨 郵件管理：撤回郵件／依主旨等條件封鎖詐騙郵件／刪除重複郵件／高級搜尋／整合文件夾……
📁 附件專業版：批次儲存／批次解除附加／批次壓縮／自動保存／自動拆離／自動壓縮……
🌟 介面魔法：😊更多精美酷炫表情符號／重要郵件來到時提醒您／最小化 Outlook 而非關閉……
👍 一鍵奇蹟：帶附件全部答復／防釣魚郵件／🕘顯示發送者當前時間時區……
👩🏼🤝👩🏻 聯絡人與行事曆：從選取的郵件中批次新增聯絡人／將聯繫人組拆分為個別群組／移除生日提醒……
用您的慣用語言暢享 Kutools — 完整支援英文、西班牙文、德文、法文、中文等 40 多種語言！
立即一鍵解鎖 Kutools for Outlook！別再等待，馬上下載，全面提升工作效率！
🚀 一鍵下載 — 立即取得所有 Office 增益集
強烈推薦：Kutools for Office（5 合 1）
一鍵下載五個安裝程式，一次完成 — Kutools for Excel、Outlook、Word、PowerPoint 與 Office Tab Pro！立即點擊下載！
- ✅ 一鍵便利：只需一次操作，即可下載全部五個安裝套件！
- 🚀 隨時應對任何 Office 任務：按需安裝所需增益集，立即提升工作效率！
- 🧰 包含：Kutools for Excel／Kutools for Outlook／Kutools for Word／Office Tab Pro／Kutools for PowerPoint