Outlook でメールの件名を【添付ファイル】名で自動入力する方法は？

著者Siluvia変更日2024-09-18

Outlook でメールの件名に【添付】ファイル名を使用することに慣れているユーザーにとって、毎回件名欄に【添付】ファイル名を手動で入力するのは時間のかかる作業です。以下の GIF のように、添付ファイルを挿入した際にメールの件名欄が自動的にそのファイル名で埋められると便利ですよね。そんなときに、本チュートリアルで紹介する VBA メソッドが大活躍します。

VBA コードでメールの件名を【附件】名で自動入力する

次の VBA コードを実行して、Outlook でメールの件名を添付ファイルの名前で自動入力してください。

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

2．Microsoft Visual Basic for Applicationsウィンドウで、Project1 (VbProject.OTM) > Microsoft Outlook Objects > ThisOutlookSessionをダブルクリックして、ThisOutlookSession (Code)エディターを開きます。

3．次に、以下の VBA コードをThisOutlookSession (Code)エディターにコピーしてください。

VBA コード：メールの件名を【附件】名で自動入力

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

doc-autofill-subject-line-with-attachment-name-2

4．次に、コードを保存し、Outlook を再起動する必要があります。

5．今後、件名が未入力のメールに添付ファイルを挿入すると、Kutools for Outlookのダイアログボックスが表示され、「【附件】名を件名として使用しますか？」と尋ねられます。はいボタンをクリックしてください。

doc-autofill-subject-line-with-attachment-name-3

すると、件名欄に添付ファイルの名前が自動的に入力されます。

doc-autofill-subject-line-with-attachment-name-4

注意事項：

1）すでに件名を入力済みの場合、添付ファイルを挿入してもダイアログボックスは表示されません。

2）現在のメールから既存の件名を削除してもカーソルが件名欄に残っている場合、添付ファイルを挿入してもダイアログボックスは表示されません。件名を削除した後は、件名欄以外をクリックしてメッセージボックスを更新し、コードが動作するようにしてください。

3）複数の添付ファイルを同時に挿入する場合、メールの件名として使用できるのは最初の添付ファイルの名前のみです。

Outlook の AI メールアシスタント：ワンクリックで魔法のように、よりスマートな返信と明確なコミュニケーションを実現！

Kutools for Outlook の AI メールアシスタントで、日々のOutlook タスクをもっと効率的に。この強力なツールは過去のメールから学習し、的確で知的な返信を提案したり、メールの内容を最適化したり、メッセージの下書きや修正を簡単にサポートします。

この機能は以下のサポートを提供します：

スマート返信：過去の会話に基づき、カスタマイズされ、正確で即使用可能な返信を取得できます。
コンテンツ強化：メール本文を自動で明確かつ効果的な内容にブラッシュアップします。
簡単作成：キーワードを入力するだけで、AI が複数の書式スタイルで残りの作業を自動処理します。
インテリジェント拡張：文脈を的確に捉えた提案であなたのアイデアをさらに広げます。
要約機能：長いメールを瞬時に簡潔な概要にまとめてくれます。
グローバル対応：メールをあらゆる言語に簡単に翻訳できます。

この機能は以下のサポートを提供します：

スマートメール返信
最適化されたコンテンツ
キーワードベースの下書き
インテリジェントなコンテンツ拡張
メール要約
多言語翻訳

今すぐ始めましょう—AI メールアシスタントを今すぐダウンロードして、AI メールアシスタントを今すぐダウンロード！

最高の 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

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