Outlook で複数のメールに含まれるすべての添付ファイルを、新しいメールに一括でコピーする方法は？

Outlook でメールの添付ファイルを効率的に管理するのは難しい場合があります。特に、複数のメールから添付ファイルを抽出して新規メールにまとめる場合や、メールのすべての添付ファイルを返信メールにコピーする必要があるときです。ファイルを手動で保存して再添付するのは、時間がかかるだけでなく、ミスも起こりやすくなります。幸いにも、この作業を簡単にできる2 つの効果的な方法があります。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」キーを押すか、実行ボタンをクリックすると、選択したメールから抽出されたすべての添付ファイルを含む新規メールが開きます。

---

便利なツールでメールのすべての添付ファイルを返信メールに即座にコピー 👍

よりシンプルでスピーディーな解決策として、「Kutools for Outlook」の「元の添付ファイル付きで返信」機能をご利用ください。この機能を使えば、VBA や手動での添付ファイルコピー作業は一切不要。ワンクリックで元メールのすべての添付ファイルを返信メールに直接コピーできます。

1。メールビューで返信したいメールを選択し、「Kutools」＞「元の添付ファイル付きで返信」または「元の添付ファイル付きで全員に返信」をクリックしてください。

2。これで、選択したメールのすべての添付ファイルが返信メールに自動的にコピーされます。

---

関連記事

Outlook で添付ファイルを別のメールにコピーするにはどうすればよいですか？