在 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 郵件中移除所有附件
- 通常在預覽郵件時，您可透過右鍵點擊附件並選擇「移除附件」來刪除單一附件。然而，當一封郵件包含多個附件時，逐一刪除便顯得相當繁瑣。本文提供兩種簡易技巧，助您輕鬆一次移除單封郵件中的所有附件，甚至同步處理多封郵件的附件。
最佳 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