Outlookで複数のメールからすべての添付ファイルを新しいメールにコピーする方法は？

Author: Kelly Last Modified: 2025-05-23

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」を押すか、実行ボタンをクリックしてコードを実行します。選択したメールからすべての添付ファイルが抽出された新しいメールが開きます。

欠点：

❌ VBAの知識が必要：初心者向けではなく、コードを扱う必要があります。
❌ 手動設定が必要：毎回VBAエディターを開き、コードを挿入して実行する必要があります。
❌ セキュリティ制限の可能性：一部のOutlookバージョンでは、セキュリティポリシーによりマクロがブロックされることがあります。
❌ 柔軟性がない：再度添付ファイルをコピーするたびにスクリプトを再実行する必要があります。

📂 複数のメールから添付ファイルを簡単に保存

Outlookで毎回1通ずつ添付ファイルを保存するのは面倒ではありませんか？ Kutools for Outlook を使えば、作業効率が大幅に向上します！強力な「添付ファイルを保存する」機能を使えば、複数のメールやフォルダー全体からわずか数クリックで添付ファイルを保存できます。退屈な手動操作にサヨナラし、受信トレイを簡単に管理しましょう。