Outlookで電子メールを作成するときに、すべての添付ファイル名をメッセージ本文に一覧表示するにはどうすればよいですか？

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

VBAコードを使用して電子メールを作成するときに、すべての添付ファイル名をメッセージ本文にリストします

簡単な機能でメールを作成するときに、すべての添付ファイル名をメッセージ本文にリストします

VBAコードを使用して電子メールを作成するときに、すべての添付ファイル名をメッセージ本文にリストします

このタスクを完了するには、次の手順を実行してください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession 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 飛び出した窓 参考資料-Project1 ダイアログボックス、チェック MicrosoftWordオブジェクトライブラリ オプションから 利用可能な参考文献 リストボックス、スクリーンショットを参照：

5に設定します。 OK をクリックします。 OK ダイアログ ボックスを終了するには、マクロ ボタンを クイックアクセスツールバー。 新しい メッセージ ウィンドウ、選択 その他のコマンド クイックアクセスツールバーをカスタマイズする ドロップダウン、スクリーンショットを参照してください：

6。 の中に Outlookのオプション ダイアログボックスで、次の操作を実行します。

（1.）選択 マクロ からのコマンドを選択 ドロップダウンリスト;

(2.) 今挿入したマクロ名をクリックします。

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

7。 次に、をクリックします OK ダイアログ ボックスを閉じるには、マクロ ボタンが クイックアクセスツールバー、スクリーンショットを参照してください：

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

簡単な機能でメールを作成するときに、すべての添付ファイル名をメッセージ本文にリストします

上記のコードは、適用するのが少し難しいかもしれません。 Kutools for Outlookそのと 名前をコピーする この機能を使用すると、メッセージの添付ファイル名をすばやくコピーし、必要な場所に貼り付けることができます。

インストールした後 Kutools for Outlook、次のようにしてください。

1。 まず、必要な新しいメールを作成し、クリックしてください クツール > 名前をコピーする 新しい メッセージ ウィンドウ、スクリーンショットを参照してください：

2。 次に、添付ファイル名がクリップボードにコピーされたことを通知するプロンプト ボックスが表示されます。スクリーンショットを参照してください。

3。 あとは、 を押すだけです Ctrlキー+ V キーを一緒に押して、添付ファイル名を必要なメッセージ本文に貼り付けます。スクリーンショットを参照してください。

より相対的な記事：

---

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

Kutools for Outlook - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロ: バッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

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

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

続きを読む       無料ダウンロード      購入