在Outlook中撰寫郵件時,如何將所有附件名稱列出到郵件正文中?
在我們於Outlook中撰寫電子郵件時,有沒有什麼好方法可以將所有附件名稱插入到郵件正文中?本文將介紹如何在Outlook中解決這個問題。
使用VBA程式碼在撰寫郵件時將所有附件名稱列出到郵件正文中
請按照以下步驟完成此任務:
1. 按住ALT + F11鍵以打開Microsoft Visual Basic for Applications窗口。
2. 在Microsoft Visual Basic for Applications窗口中,雙擊Project1(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. 接著繼續點擊Insert > Module,複製並將以下程式碼粘貼到打開的空白模組中,如截圖所示:
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窗口中點擊 Tools > References,在彈出的References-Project1對話框中,從Available References列表框中勾選Microsoft Word Object Library選項,如截圖所示:
![]() | ![]() | ![]() |
5. 點擊OK退出對話框,然後您應該將宏按鈕添加到快速訪問工具欄中。在新郵件窗口中,從自定義快速訪問工具欄下拉菜單中選擇更多命令,如截圖所示:
6. 在Outlook Options對話框中,執行以下操作:
(1.) 從選擇命令來自下拉列表中選擇宏;
(2.) 點擊剛才插入的宏名稱;
(3.) 然後點擊Add按鈕將宏添加到自定義快速訪問工具欄。
7. 然後點擊OK關閉對話框,現在,宏按鈕已被插入到快速訪問工具欄中,如截圖所示:
8. 現在,當您創建新郵件並點擊宏按鈕時,附件名稱將被插入到郵件正文上方,如下截圖所示:
使用簡單功能在撰寫郵件時將所有附件名稱列出到郵件正文中
上述代碼可能對您來說有點難以應用,如果您有Kutools for Outlook,使用其Copy Names功能,您可以快速複製郵件的附件名稱並將它們粘貼到任何需要的地方。
安裝Kutools for Outlook後,請按照以下步驟操作:
1. 首先,請創建您需要的新郵件,然後在新郵件窗口中點擊Kutools > Copy Names,如截圖所示:
2. 接著,會彈出一個提示框提醒您附件名稱已複製到剪貼板中,如截圖所示:
3. 現在,您只需同時按Ctrl + V鍵即可將附件名稱粘貼到所需的郵件正文中,如截圖所示:
更多相關文章:
- 在Outlook中使用原始附件回覆所有人
- 通常,當您在Outlook中應用Reply All功能向所有收件人回覆郵件時,原始附件將自動丟失。是否有可能在Outlook中使用回覆所有時附帶原始附件呢?
- 從Outlook下載/保存附件到特定文件夾
- 一般來說,您可以通過點擊Attachments > Save All Attachments來保存一封郵件的所有附件。但是,如果您需要保存所有收到和接收郵件的所有附件,有什麼理想的方法嗎?本文將介紹兩種自動從Outlook下載附件到特定文件夾的解決方案。
- 更改Outlook中的默認附件保存位置
- 每次啟動Outlook時都要找到指定的附件位置是否讓您感到厭煩?本教程將向您展示如何更改默認的附件位置。之後,即使您重新啟動Outlook,每次保存附件時都會自動打開指定的附件保存文件夾。
- 從Outlook郵件中刪除所有附件
- 通常當您預覽郵件時,您可以右鍵點擊並選擇刪除附件項目來刪除附件。有時郵件中可能會有很多附件,逐一刪除它們將非常繁瑣。這裡我們為您提供了兩個簡單的技巧,可以在Outlook中刪除一封郵件中的所有附件,以及刪除多封郵件中的所有附件。
最佳 Office 生產力工具
最新消息:Kutools for Outlook 推出免費版本!
體驗全新 Kutools for Outlook,擁有100+ 強大功能!立即下載!
🤖 Kutools AI :運用先進 AI 技術,輕鬆處理郵件,包括答覆、摘要、優化、擴寫、翻譯與撰寫郵件。
📧 郵件自動化:自動回覆(支援 POP 和 IMAP) / 計劃發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發(高級規則) / 自動新增問候語 / 自動將多收件人郵件分割為個別郵件 ...
📨 郵件管理:撤回郵件 /依主題等條件阻擋詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...
📁 附件專業版:批次保存 / 批次拆離 / 批次壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...
🌟 介面魔法:😊更多精美酷炫表情符號 /重要郵件來臨提醒 / 最小化 Outlook 而非關閉 ...
👍 一鍵神技:帶附件全部答復 /反釣魚郵件 / 🕘顯示發件人時區 ...
👩🏼🤝👩🏻 聯絡人與日曆:批次從選中郵件新增聯絡人 / 將聯絡人組分割為多個組 / 移除生日提醒 ...
以您偏好的語言使用 Kutools —— 支援英語、西班牙語、德語、法語、中文及40 多種其他語言!
只需一鍵即可立即啟用 Kutools for Outlook。立即下載,提升您的效率!

