如何在 Outlook 中為主題創建下拉列表？

您可能有不同的預設電子郵件主題需要分發給 Outlook 中的不同收件人。在撰寫電子郵件時使用主題行下拉列表來選擇主題而無需手動輸入會非常有效。就像下面展示的 gif 一樣。本教程提供了三個 VBA 代碼來幫助您創建具有不同預設主題的下拉列表。撰寫電子郵件時，您可以從下拉列表中選擇您需要的任何主題以自動填寫主題行。請按照分步指南完成操作。

使用 VBA 代碼為 Outlook 中的主題創建下拉列表

實際上，Outlook 不允許在主題行中添加下拉列表。在這裡，您需要創建一個用戶表單並將其與 VBA 代碼結合以完成它。

1.啟動Outlook，按其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。在裡面 Microsoft Visual Basic for Applications 窗口中，單擊插入 > 用戶窗體.

3.然後 用戶表單1 插入在 Project1 在左側窗格中 Visual Basic中 編輯。您需要通過拖動 組合框 及 命令按鈕 分別從 工具箱 到 用戶表單1.

4.右鍵單擊命令按鈕並選擇 氟化鈉性能 在右鍵菜單中。

5。在裡面 屬性 - 命令按鈕 1 窗格，更改標題字段 OK. 此操作將更改命令按鈕上顯示的文本。

6.雙擊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

備註：在代碼中， 主題 1、2、3、4 及 5 是您要在電子郵件中使用的預設電子郵件主題。 “無變化” 表示不更改現有電子郵件主題的任何內容。您可以根據需要更改 VBA 代碼中預設的電子郵件主題。

7。雙擊 Project1 > Microsoft Outlook對象 > 本次展望會議. 然後將以下 VBA 代碼複製到 ThisOutlookSession (Code) 窗口中。

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

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