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