如何在Outlook中為郵件標題創建下拉列表？

Author: Siluvia Last Modified: 2025-05-12

您可能有不同的預設郵件標題，需要在Outlook中分發給不同的收件人。如果能在撰寫郵件時擁有一個標題行的下拉列表來選擇標題，而無需手動輸入，將非常高效。就像下面的gif演示的一樣。本教程提供三個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. 然後在「Visual Basic」編輯器左側窗格中的「Project1」下插入了「UserForm1」。您需要通過分別從「工具箱」拖動「ComboBox」和「CommandButton」到「UserForm1」，將一個組合框和命令按鈕添加到該用戶表單中。

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

4. 右鍵單擊命令按鈕並在右鍵菜單中選擇「屬性」。

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

5. 在「Properties – CommandButton1」窗格中，將「Caption」字段更改為「OK」。此操作將更改命令按鈕上顯示的文字。

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

6. 雙擊UserForm的空白區域以打開相應的「UserForm（代碼）」窗口，然後用以下VBA代碼替換現有代碼。

VBA代碼1：帶有多個預設郵件標題的用戶表單下拉列表

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

注意：在代碼中，「Subject 1, 2, 3, 4」和「5」是您希望在郵件中使用的預設郵件標題。「No change」表示不更改現有的郵件標題。您可以根據需要更改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