Skip to main content

Kutools for Office — 一套工具,五種功能。完成更多工作。

如何在Outlook中將多封郵件的所有附件複製到新郵件?

Author Kelly Last modified

在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 簡化您的工作流程!強大的「儲存全部(附件)」功能讓您只需點擊幾下,就能從多封郵件或整個資料夾中保存附件。告別繁瑣的手動操作,輕鬆掌控您的收件匣。

Save attachments in multiple emails

立即下載 Kutools for Outlook


使用一款出色的工具即刻將郵件中的所有附件複製到回覆郵件中 👍

對於更簡單且更快的解決方案,你可以使用「Kutools for Outlook」中的「帶原附件回覆」功能。這種方法只需單擊一下即可直接將郵件中的所有附件複製到回覆郵件中——無需VBA或手動附加複製。

告別Outlook效率低下的問題!Kutools for Outlook讓批量郵件處理更輕鬆 — 現在還提供免費的AI功能!立即下載Kutools for Outlook!

1. 在郵件檢視中,選擇你想要回覆的郵件。然後點擊「Kutools」>「帶原附件回覆」或「全部帶原附件回覆」。

the screenshot of copying attchment to a replying email using Kutools 1

2. 現在,所選郵件中的所有附件都會自動複製到回覆郵件中。

the screenshot of copying attchment to a replying email using Kutools 2

Kutools for Outlook 方法的優勢:

  • ✅ 無需手動複製或粘貼:單擊即可立即生效。
  • ✅ 無需VBA編碼:用戶友好且無煩惱。
  • ✅ 節省時間:與手動方法相比大幅減少工作量。
  • ✅ 與所有Outlook版本兼容:無宏限制或安全警告。
注意: 要應用Kutools for Outlook的帶原附件回覆實用程序,首先,你需要下載並安裝Kutools for Outlook

相關文章

如何在Outlook中將附件複製到另一封郵件?


最佳辦公室生產力工具

最新消息:Kutools for Outlook 推出免費版本!

體驗全新 Kutools for Outlook,超過100項精彩功能!立即下載!

🤖 Kutools AI 採用先進的AI技術輕鬆處理郵件,包括答覆、摘要、優化、擴充、翻譯及撰寫郵件。

📧 郵件自動化自動回覆(支援POP及IMAP) / 排程發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發(高級規則) / 自動添加問候語 / 自動分割多收件人郵件為個別郵件 ...

📨 郵件管理撤回郵件 / 根據主題等方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...

📁 附件專業工具批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...

🌟 介面魔法😊更多精美與酷炫表情符號 /重要郵件來臨時提醒 / 最小化 Outlook 而非關閉 ...

👍 一鍵便利帶附件全部答復 / 防詐騙郵件 / 🕘顯示發件人時區 ...

👩🏼‍🤝‍👩🏻 聯絡人與日曆從選中郵件批量添加聯絡人 / 分割聯絡人組為個別組 / 移除生日提醒 ...

以您偏好的語言使用 Kutools,支援英語、西班牙語、德語、法語、中文及超過40種其他語言!

只需點擊一次,即可立即解鎖 Kutools for Outlook。別等了,現在下載提升您的工作效率!

kutools for outlook features1 kutools for outlook features2

🚀 一鍵下載 — 獲取全部 Office 插件

強力推薦:Kutools for Office(5合1)

一鍵下載五個安裝程式,包括 Kutools for Excel, Outlook, Word, PowerPointOffice Tab Pro 立即下載!

  • 一鍵便利:一次操作即可下載全部五套安裝包。
  • 🚀 隨時處理任何 Office 任務:安裝您需求的插件,隨時隨地。
  • 🧰 包含:Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint