メインコンテンツへスキップ

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オプションをチェックします。スクリーンショットをご覧ください:

doc-list-attaches-into-message-3 arrow doc-list-attaches-into-message-4

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つの方法をご紹介します。

最高のオフィス生産性ツール

速報: Kutools for Outlook が無料版をリリース!

新しい Kutools for Outlook の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます!今すぐダウンロードをクリック!

🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。

📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...

📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...

📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...

🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...

👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除...

Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう!

kutools for outlook features1 kutools for outlook features2