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

Outlookで件名のドロップダウンリストを作成するにはどうすればよいですか?

Author: Siluvia Last Modified: 2025-05-23

Outlookで異なる受信者に配布する必要があるさまざまな事前設定されたメール件名を持っているかもしれません。 メールを作成する際に、手動で入力することなく件名を選択できる件名行のドロップダウンリストがあると非常に効率的です。 下記のgifのように動作します。 このチュートリアルでは、異なる事前設定された件名を持つドロップダウンリストを作成するのに役立つ3つのVBAコードを提供します。 メールを作成する際、ドロップダウンから必要な件名を選択することで、件名行が自動的に埋められます。 ステップバイステップのガイドに従ってください。


VBAコードを使用してOutlookで件名のドロップダウンリストを作成する

実際には、Outlookは件名行にドロップダウンリストを追加することを許可していません。 ここでは、ユーザー フォームを作成し、それをVBAコードと組み合わせて完成させる必要があります。

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

2. 「Microsoft Visual Basic for Applications」ウィンドウで、「挿入」>「ユーザー フォーム」をクリックします。

doc-subject-line-drop-down-list-1

3. その後、「プロジェクト1」の左ペインにある「Visual Basic」エディタに「UserForm1」が挿入されます。「ツールボックス」から「ComboBox」と「CommandButton」をそれぞれドラッグして、「UserForm1」にコンボボックスとコマンドボタンを追加する必要があります。

doc-subject-line-drop-down-list-2

4. コマンドボタンを右クリックし、右クリックメニューで「プロパティ」を選択します。

doc-subject-line-drop-down-list-3

5. 「プロパティ – CommandButton1」ペインで、「キャプション」フィールドを「OK」に変更します。 この操作により、コマンドボタンに表示されるテキストが変更されます。

doc-subject-line-drop-down-list-4

6. UserFormの空白部分をダブルクリックして対応する「UserForm(コード)」ウィンドウを開き、既存のコードを次のVBAコードに置き換えます。

VBAコード1: 複数の事前設定されたメール件名を含むドロップダウンリスト付きのUserForm

Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
  With ComboBox1
    .AddItem "Subject 1"
    .AddItem "Subject 2"
    .AddItem "Subject 3"
    .AddItem "Subject 4"
    .AddItem "Subject 5"
    .AddItem "No change"
  End With
End Sub

Private Sub CommandButton1_Click()
  GCbbIndex = ComboBox1.ListIndex
  GSelSubject = ComboBox1.Value
  Unload Me
End Sub

doc-subject-line-drop-down-list-5

: コード内の「件名1、2、3、4」および「5」は、メールで使用したい事前設定された件名です。「変更なし」は、既存のメール件名を何も変更しないことを意味します。 必要に応じて、VBAコード内の事前設定された件名を変更できます。

7. 「Project1」>「Microsoft Outlook Objects」>「ThisOutlookSession」をダブルクリックします。 次に、次のVBAコードを「ThisOutlookSession(コード)」ウィンドウにコピーします。

ThisOutlookSessionウィンドウで使用されるVBAコード2

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub

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

doc-subject-line-drop-down-list-6

8. 「Visual Basic」エディタで「挿入」>「モジュール」を続けてクリックします。 次に、次のVBAコードを「モジュール(コード)」ウィンドウにコピーして貼り付けます。

モジュールウィンドウで使用されるVBAコード3

Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
  Dim xItem As MailItem
  Dim xMail As Outlook.MailItem
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set xMail = GInlineMail
      Debug.Print "Explorer"
    Case "Inspector"
      Set xMail = Application.ActiveInspector.CurrentItem
      Debug.Print "Inspector"
  End Select
  UserForm1.Show
  If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
    xMail.Subject = GSelSubject
  End If
End Sub

doc-subject-line-drop-down-list-7

9. コードを保存し、「Alt」+「Q」キーを押して「Visual Basic Editor」ウィンドウを閉じ、Outlookアプリケーションに戻ります。

10. 「ホーム」タブの下にある「新規メール」ボタンをクリックしてメールを作成します。

11. 新しいメッセージウィンドウで、「クイックアクセスツールバーのユーザー定義」>「その他のコマンド」をクリックします。

doc-subject-line-drop-down-list-8

12. 「Outlookオプション」ダイアログボックスで、次のように設定する必要があります。

12.1) 「コマンドの選択元」ドロップダウンリストで「マクロ」を選択します;
12.2) コマンド一覧ボックスで「Project1.ChangeSubject」を選択します;
12.3) 「追加」ボタンをクリックします;
12.4) 「OK」ボタンをクリックします。 スクリーンショットをご覧ください:

doc-subject-line-drop-down-list-9

13. これで、ボタンが doc-subject-line-drop-down-list-10 メッセージウィンドウのリボンに追加されたことが確認できます。

doc-subject-line-drop-down-list-11

14. これでOutlookを再起動する必要があります。

15. メールメッセージを作成する際、事前設定された件名を挿入する必要がある場合は、リボンに追加された新しいボタンをクリックしてユーザーフォームを表示し、ドロップダウンメニューから件名を選択して「OK」ボタンをクリックすると、件名行に自動的に入力されます。

注:

1) ドロップダウンリストで選択した件名で既存の件名を変更できます;
2) この方法は、新しいウィンドウでメールに返信または転送する場合にうまく機能します;
3) 読み取りペインから別ウィンドウを開かずにインラインでメールに返信する場合、以下の手順でユーザーフォームを表示できます。
3.1) 「開発」>「マクロ」>「Project1.ChangeSubject」をクリックします。 スクリーンショットをご覧ください:

doc-subject-line-drop-down-list-13

3.2) ユーザーフォームがポップアップしたら、ドロップダウンリストから事前設定された件名を選択し、「OK」ボタンをクリックすると、元の件名が即座に変更されます。
4) ドロップダウンメニューで「変更なし」を選択すると、元の件名は変更されずに保持されます。

OutlookのAIメールアシスタント:スマートな返信、クリアなコミュニケーション(ワンクリックで魔法のような操作!) 無料

Kutools for OutlookのAIメールアシスタントを使用して、毎日のOutlookタスクを効率化しましょう。この強力なツールは、過去のメールから学習し、インテリジェントで正確な返信を提供し、メールの内容を最適化し、メッセージの作成や修正を手間なく行うことができます。
doc ai email handle

この機能がサポートする内容:

  • スマート返信:過去の会話に基づいて調整された、的確で使用準備の整った返信を取得します。
  • 強化されたコンテンツ:メールの文章を自動的に洗練させ、明瞭さと影響力を高めます。
  • 簡単な作成:キーワードを入力するだけで、複数のライティングスタイルでAIが残りを処理します。
  • インテリジェント拡張:文脈を理解した提案で考えを広げます。
  • 要約:長文のメールを瞬時に簡潔にまとめます。
  • グローバル対応:メールを簡単にどの言語にも翻訳できます。

この機能がサポートする内容:

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

何より、この機能は永遠に完全無料です今すぐAIメールアシスタントをダウンロードしてお楽しみください


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

速報: 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