如何在 Outlook 中取得所選郵件的附件資訊清單？
對於含有附件的已接收郵件，您可能偶爾需要查看附件的詳細資訊，例如顯示名稱、檔案名稱等。其實，透過 VBA 程式碼，即可輕鬆取得 Outlook 中目前所選郵件的附件資訊清單。詳情請參閱以下教學。
- 提升您的郵件處理效率！運用人工智慧技術，讓您快速回覆郵件、撰寫新郵件、翻譯訊息，輕鬆高效完成各項操作！
- 透過規則自動化寄送郵件，搭配自動抄送密送，自動轉發自動寄送自動答覆（外出中），無需 Exchange 伺服器即可實現……
- 取得貼心提醒功能，例如 答覆的郵件為 BCC 時提示當您位於密件副本（BCC）清單中卻回覆全部收件人時，以及遺漏附件提醒針對遺忘的附件發出提示……
- 透過以下功能提升郵件處理效率：附帶附件回覆（全部），自動於簽名檔或主旨中加入問候語或日期與時間，一次回覆多封郵件……
- 透過以下功能簡化郵件處理流程：撤回郵件，附件工具（全部壓縮、自動保存全部……），刪除重複，以及快速報告……
在 Outlook 中取得所選郵件的附件資訊清單
1. 選取含有附件並希望取得其資訊的郵件。
2. 按下鍵盤上的 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！
3. 接著雙擊 Project 1 > Microsoft Outlook 物件 > ThisOutlookSession，即可開啟 Project 1 – ThisOutlookSession 視窗。請參閱截圖：
4. 接著，將下方的 VBA 程式碼複製並貼上至「Project 1 – ThisOutlookSession」視窗中。
VBA 程式碼：取得附件資訊清單
Option Explicit
Public Sub GetAttachmentList()
Dim selItem As Object
Dim aMail As MailItem
Dim aAttach As attachment
Dim Report As String
For Each selItem In Application.ActiveExplorer.Selection
If selItem.Class = olMail Then
Set aMail = selItem
For Each aAttach In aMail.Attachments
Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
Report = Report & GetAttachmentInfo(aAttach)
Next
Call CreateReportEmail("Attachment Report", Report)
End If
Next
End Sub
Public Function GetAttachmentInfo(attachment As attachment)
Dim Report
GetAttachmentInfo = ""
Report = Report & "Index: " & attachment.Index & vbCrLf
Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
Report = Report & "File Name: " & attachment.FileName & vbCrLf
Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
Report = Report & "Path Name: " & attachment.PathName & vbCrLf
Report = Report & "Position: " & attachment.Position & vbCrLf
Report = Report & "Size: " & attachment.Size & vbCrLf
Report = Report & "Type: " & attachment.Type & vbCrLf
GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
Dim aMail As MailItem
Set aMail = Application.CreateItem(olMailItem)
aMail.Subject = Title
aMail.Body = Report
aMail.Display
End Sub 5. 按下鍵盤上的 F5 鍵，立即執行 VBA 程式碼！
6. 此時會彈出巨集對話方塊，請點擊執行按鈕。
7. 在巨集對話方塊中按一下執行按鈕後，將自動開啟新郵件視窗，並於郵件內文中列出所選郵件的所有附件資訊。請參閱截圖：
注意：此 VBA 程式碼適用於 Outlook 2007、2010 與 2013
最佳 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