如何在Outlook中將多封郵件的所有附件複製到新郵件中？
在Outlook中高效管理郵件附件可能具有挑戰性，特別是當你需要從多封郵件中提取附件並將其整合到新郵件中，或者將郵件中的所有附件複製到回覆郵件時。手動保存和重新附加文件不僅耗時，還容易出錯。幸運的是，有兩種有效的方法可以簡化此任務。你可以使用VBA從多封郵件中提取並插入附件到新郵件中，但這需要一些技術知識。然而，對於更快捷且無憂的解決方案，Kutools for Outlook工具提供了一鍵選項，可立即將郵件中的所有附件複製到回覆郵件中，使其成為最高效且用戶友好的選擇。
使用VBA將多封郵件的所有附件複製到新郵件中 （手動且技術性）
使用一款出色的工具即刻將郵件中的所有附件複製到回覆郵件中👍（輕鬆且推薦）
使用VBA將多封郵件的所有附件複製到新郵件中
如果你喜歡使用VBA來自動化此過程，可以按照以下步驟快速提取並將多封郵件中的所有附件複製到新郵件中。
步驟1：選擇多封郵件
在Outlook中，選擇包含要複製附件的郵件。
- 按住「Ctrl」選擇多封不相鄰的郵件。
- 按住「Shift」選擇一組相鄰的郵件。
步驟2：打開VBA編輯器
按下「Alt」+「F11」以打開「Microsoft Visual Basic for Applications」窗口。
步驟3：將VBA代碼插入新模塊
點擊「插入」>「模塊」以創建一個新模塊。然後將以下VBA代碼粘貼到模塊窗口中：
VBA：將多封郵件的所有附件複製到新郵件中
Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String
Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If
For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub
步驟4：運行VBA代碼
按下「F5」或點擊運行按鈕以執行代碼。將會打開一封新郵件，其中包含從所選郵件中提取的所有附件。
缺點：
- ❌ 需要VBA知識：對初學者不友好，涉及代碼操作。
- ❌ 需要手動設置：每次都需要打開VBA編輯器，插入代碼並運行。
- ❌ 潛在的安全限制：某些Outlook版本由於安全策略會阻止宏。
- ❌ 無靈活性：每當需要再次複製附件時，都必須重新運行腳本。
📂 輕鬆保存多封郵件的附件
厭倦了在 Outlook 中一封一封地保存附件嗎？使用 Kutools for Outlook 簡化您的工作流程！強大的「儲存附件」功能讓您只需點擊幾下，即可從多封郵件或整個資料夾中保存附件。告別繁瑣的手動操作，輕鬆掌控您的收件匣。
使用一款出色的工具即刻將郵件中的所有附件複製到回覆郵件中👍
對於更簡單、更快捷的解決方案，你可以使用「Kutools for Outlook」中的「帶原始附件答覆」功能。這種方法只需單擊一下，即可將郵件中的所有附件直接複製到答覆郵件中——無需使用VBA或手動附加附件。
使用 Kutools for Outlook 解鎖極致郵件效率！永久免費獲取 70 項強大功能。立即下載免費版本！
1. 在郵件檢視中，選擇你想要答覆的郵件。然後點擊「Kutools」>「帶原始附件答覆」或「帶原始附件全部答覆」。
2. 現在，所選郵件中的所有附件都會自動複製到答覆郵件中。
Kutools for Outlook 方法的優勢：
- ✅ 無需手動複製或粘貼：只需單擊一下即可完成。
- ✅ 無需VBA編碼：用戶友好且無憂。
- ✅ 節省時間：與手動方法相比，大幅減少工作量。
- ✅ 與所有Outlook版本兼容：沒有宏限制或安全警告。
相關文章
最佳 Office 生產力工具
最新消息：Kutools for Outlook 推出免費版本！
體驗全新 Kutools for Outlook，擁有100+ 強大功能！立即下載！
🤖 Kutools AI ：運用先進 AI 技術，輕鬆處理郵件，包括答覆、摘要、優化、擴寫、翻譯與撰寫郵件。
📧 郵件自動化：自動回覆（支援 POP 和 IMAP） / 計劃發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發（高級規則） / 自動新增問候語 / 自動將多收件人郵件分割為個別郵件 ...
📨 郵件管理：撤回郵件 /依主題等條件阻擋詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...
📁 附件專業版：批次保存 / 批次拆離 / 批次壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...
🌟 介面魔法：😊更多精美酷炫表情符號 /重要郵件來臨提醒 / 最小化 Outlook 而非關閉 ...
👍 一鍵神技：帶附件全部答復 /反釣魚郵件 / 🕘顯示發件人時區 ...
👩🏼🤝👩🏻 聯絡人與日曆：批次從選中郵件新增聯絡人 / 將聯絡人組分割為多個組 / 移除生日提醒 ...
以您偏好的語言使用 Kutools —— 支援英語、西班牙語、德語、法語、中文及40 多種其他語言！
只需一鍵即可立即啟用 Kutools for Outlook。立即下載，提升您的效率！
