提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

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

一般來說,通過在Outlook中復制和粘貼,可以輕鬆地將附件從一封電子郵件複製到另一封電子郵件。 但是如何將附件從多個郵件複製到新郵件? 本文將為您介紹解決方案。

Office選項卡 - 在Office中啟用選項卡式編輯和瀏覽,使工作更輕鬆......
Kutools for Outlook - 為Microsoft Outlook帶來100強大的高級功能
  • 自動CC / BCC 發送電子郵件時的規則; 自動轉發 規則多個電子郵件; 自動回复 沒有交換服務器,以及更多自動功能......
  • BCC警告 - 如果您的郵件地址在BCC列表中,當您嘗試全部回复時顯示消息; 缺少附件時提醒,以及更多提醒功能......
  • 全部附件回复(全部) 在郵件對話中; 立即回复許多電子郵件; 自動添加問候語 回复時; 自動將日期和時間添加到主題中...
  • 附件工具:自動分離,全部壓縮,全部重命名,自動全部保存... 快速報告,計算選定的郵件, 刪除重複的郵件和聯繫人...
  • 超過100高級功能將 解決你的大多數問題 在Outlook 2010-2019和365中。 全功能60天免費試用。

將多個電子郵件中的所有附件複製到新電子郵件中

本文將介紹一個VBA,可以快速將多個電子郵件中的所有附件複製到Outlook中的一個新郵件中。 請做如下操作:

1。 選擇您將復製附件的多個電子郵件,然後按 其他 + F11 鍵以打開Microsoft Visual Basic for Applications窗口。
備註:舉行 按Ctrl 鍵,您可以選擇多個不相鄰的電子郵件並逐個單擊它們; 保持 轉移 鍵,您可以選擇多個相鄰的電子郵件,點擊第一個和最後一個。

2。 點擊 插入 > 模塊,然後將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

3。 按 F5 鑰匙還是 按鈕來運行這個VBA。

現在您將看到所有附件都從所選電子郵件中復制,並粘貼到新電子郵件中。


將所有附件從電子郵件複製到其答復電子郵件

如果您安裝了Outlook的Kutools,則可以應用其 回复附件 功能可以輕鬆地將所有附件從電子郵件複製到其在Outlook中的答復電子郵件。 請做如下操作:

選擇您要回复的電子郵件,然後點擊 Kutools > 回复附件 > 回复附件。 見截圖:

現在您會看到所有附件都會自動複製到回复郵件中。


相關文章


Kutools for Outlook - 為Outlook帶來100高級功能,讓工作更輕鬆!

  • 自動CC / BCC 發送電子郵件時的規則; 自動轉發 多個電子郵件按自定義; 自動回复 沒有交換服務器,以及更多自動功能......
  • BCC警告 - 當您嘗試回复所有內容時顯示消息 如果您的郵件地址在BCC列表中; 缺少附件時提醒,以及更多提醒功能......
  • 回复(全部)使用郵件會話中的所有附件; 回复很多電子郵件 很快; 自動添加問候語 回复時; 將日期添加到主題...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,全部保存...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 按慣例; 刪除重複郵件和聯繫人... 使您能夠在Outlook中更智能,更快速,更好地完成工作。
拍攝kutools outlook kutools選項卡1180x121
拍攝kutools outlook kutools加標籤1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.