Outlook でメールを作成中に、すべての【添付ファイル】名を本文に一覧表示するにはどうすればよいですか？

Outlook でメールを作成中に、すべての【添付ファイル】名を本文に挿入する良い方法はあるでしょうか？本記事では、この作業を Outlook で効率よく解決する方法をご紹介します。

VBA コードを使用して、メール作成時にすべての 【附件】名を本文に一覧表示する

シンプルな機能を使用して、メール作成時にすべての 【附件】名を本文に一覧表示する

VBA コードを使用して、メール作成時にすべての 【附件】名を本文に一覧表示する

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

1。ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。Microsoft Visual Basic for Applicationsウィンドウで、ThisOutlookSessionをProject1 (VbaProject.OTM)ペインからダブルクリックしてモジュールを開き、次のコードを空のモジュールにコピー＆ペーストしてください。

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

3。次に、挿入>モジュールをクリックし、開いた空のモジュールに下記のコードをコピー＆ペーストしてください（スクリーンショット参照）。

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

4。次に、ツール > 参照設定をMicrosoft Visual Basic for Applicationsウィンドウでクリックします。参照設定 - Project1ダイアログボックスが表示されたら、Microsoft Word オブジェクトライブラリオプションを利用可能な参照設定リストボックスからチェックしてください（スクリーンショット参照）。

5。［OK］をクリックしてダイアログボックスを閉じ、次にマクロボタンをクイックアクセスツールバーに追加します。新しいメッセージウィンドウで、「その他のコマンド」を「クイックアクセスツールバーのカスタマイズ」ドロップダウンから選択します（スクリーンショット参照）。

6。Outlook のオプションダイアログボックスで、次の操作を行ってください。

（1）［コマンドの選択］からマクロをドロップダウンリストで選択します。

（2）直前に挿入したマクロ名をクリックします。

（3）次に、追加ボタンをクリックして、マクロをクイックアクセスツールバーのカスタマイズに追加します。

7。次に、OKをクリックしてダイアログボックスを閉じると、マクロボタンがクイックアクセスツールバーに追加されます（スクリーンショット参照）。

8。これで、新規メッセージを作成してマクロボタンをクリックすると、【添付ファイル】名が以下のスクリーンショットのように本文の上部に挿入されます。

シンプルな機能を使用して、メール作成時にすべての 【附件】名を本文に一覧表示する

上記のコードは少し難しく感じられるかもしれません。そんなときは、Kutools for Outlookの名前をコピー機能を使えば、メッセージの【添付ファイル】名を素早くコピーして、必要な場所に貼り付けられます。

Kutools for Outlookをインストールした後は、以下の手順に従ってください。

1。まず、必要な新規メールを作成し、新しいKutools>名前をコピーメッセージウィンドウでクリックします（スクリーンショット参照）。

2。すると、【添付ファイル】名がクリップボードにコピーされたことを知らせるプロンプトボックスが表示されます（スクリーンショット参照）。

3。あとは、Ctrl + Vキーを同時に押して、必要なメッセージ本文に【添付ファイル】名を貼り付けるだけです（スクリーンショット参照）。

関連記事をもっと見る：

---

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

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

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

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧      今すぐダウンロード      購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

• ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
• 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
• 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて⬇ スイートをダウンロード💳 スイートを購入