Outlookでメールを作成する際に、すべての添付ファイル名を本文にリスト化するにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

Outlookでメールを作成する際に、すべての添付ファイル名を本文に挿入するための良い方法はありますか？この記事では、Outlookでこの作業を解決する方法について説明します。

VBAコードを使用してメールを作成する際にすべての添付ファイル名を本文にリスト化する

シンプルな機能を使用してメールを作成する際にすべての添付ファイル名を本文にリスト化する

VBAコードを使用してメールを作成する際にすべての添付ファイル名を本文にリスト化する

このタスクを完了するには、次の手順に従ってください：

1. ALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、Project1(VbaProject.OTM)ペインからThisOutlookSessionをダブルクリックしてモードを開き、次のコードを空白のモジュールにコピーして貼り付けます。

VBAコード: すべての添付ファイル名を本文にリスト化する：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

doc-list-attaches-into-message-1

3. 次に、Insert > Moduleをクリックし、以下のコードを空のモジュールにコピーして貼り付けます。スクリーンショットをご覧ください：

VBAコード: すべての添付ファイル名を本文にリスト化する：

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

doc-list-attaches-into-message-2

4. 次に、Microsoft Visual Basic for Applicationsウィンドウで Tools > Referencesをクリックし、表示されたReferences-Project1ダイアログボックスでAvailable ReferencesリストボックスからMicrosoft Word Object Libraryオプションをチェックします。スクリーンショットをご覧ください：

5. OKをクリックしてダイアログボックスを閉じ、次にクイックアクセスツールバーにマクロボタンを追加します。新しいメッセージウィンドウで、カスタマイズクイックアクセスツールバードロップダウンからMore Commandsを選択してください。スクリーンショットをご覧ください：

doc-list-attaches-into-message-5

6. Outlook Optionsダイアログボックスで、次の操作を行います：

(1.) Choose commands fromドロップダウンリストからMacrosを選択します；

(2.) 先ほど挿入したマクロ名をクリックします；

(3.) Addボタンをクリックして、マクロをカスタマイズクイックアクセスツールバーに追加します。

doc-list-attaches-into-message-6

7. OKをクリックしてダイアログボックスを閉じると、マクロボタンがクイックアクセスツールバーに挿入されます。スクリーンショットをご覧ください：

doc-list-attaches-into-message-7

8. これで、新規メッセージを作成し、マクロボタンをクリックすると、添付ファイル名がメッセージ本文の上部に挿入されます。次のスクリーンショットをご覧ください：

doc-list-attaches-into-message-8

シンプルな機能を使用してメールを作成する際にすべての添付ファイル名を本文にリスト化する

上記のコードは少し難しいと感じるかもしれません。Kutools for Outlookがあれば、Copy Names機能を使ってメッセージの添付ファイル名を簡単にコピーし、必要な場所に貼り付けることができます。

Kutools for Outlook: 100以上の基本的で高度な機能を解放しましょう！70以上の機能を無料でお楽しみいただけます。今すぐ無料版をダウンロードして探索してください！

Kutools for Outlookをインストール後、次の手順を実行してください：

1. まず、必要な新規メールを作成し、新しいメッセージウィンドウでKutools > Copy Namesをクリックします。スクリーンショットをご覧ください：

doc-list-attaches-into-message-9

2. その後、添付ファイル名がクリップボードにコピーされたことを知らせるプロンプトボックスが表示されます。スクリーンショットをご覧ください：

doc-list-attaches-into-message-10

3. これで、Ctrl + Vキーを同時に押すだけで、必要なメッセージ本文に添付ファイル名を貼り付けることができます。スクリーンショットをご覧ください：

doc-list-attaches-into-message-11

Outlookで元の添付ファイル付きで全員に返信
通常、Outlookで全員に返信するためにReply All機能を使用すると、元の添付ファイルが自動的に失われます。Outlookで全員に返信する際に元の添付ファイルを添付することは可能でしょうか？

Outlookから特定のフォルダーに添付ファイルをダウンロード/保存する
一般的に、OutlookではAttachments > Save All Attachmentsをクリックすることで、1通のメールのすべての添付ファイルを保存できます。しかし、受信したすべてのメールやこれから受信するメールのすべての添付ファイルを保存する必要がある場合はどうでしょうか？この記事では、Outlookから特定のフォルダーに添付ファイルを自動的にダウンロードする2つの解決策を紹介します。

Outlookでデフォルトの添付ファイル保存場所を変更する
毎回Outlookを起動するたびに指定した添付ファイルの場所を探すのにうんざりしていませんか？このチュートリアルでは、デフォルトの添付ファイル保存場所を変更する方法を示します。その後、添付ファイルを保存するたびに、指定した添付ファイル保存フォルダーが自動的に開かれます。Outlookを再起動しても同様です。

Outlookでメールからすべての添付ファイルを削除する
通常、メールをプレビューしているときに、右クリックしてRemove Attachment項目を選択することで添付ファイルを削除できます。時々、1通のメールに多くの添付ファイルが含まれている場合があり、それらを1つずつ削除するのは面倒です。ここでは、1通のメールからすべての添付ファイルを削除したり、Outlookで複数のメールからすべての添付ファイルを削除するための簡単な2つの方法をご紹介します。