如何在Outlook中为邮件主题创建下拉列表？

Author: Siluvia Last Modified: 2025-05-07

您可能有不同的预设邮件主题，需要在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”。您需要通过分别从“工具箱”拖动“组合框”和“命令按钮”到“UserForm1”上，向该用户窗体添加一个组合框和一个命令按钮。

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

4. 右键单击命令按钮，并在右键菜单中选择“属性”。

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

5. 在“属性 - CommandButton1”窗格中，将“标题”字段更改为“确定”。此操作将更改命令按钮上显示的文本。

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

注意：在代码中，“主题1、2、3、4”和“5”是您希望在邮件中使用的预设邮件主题。“无变化”表示不更改现有邮件主题的任何内容。您可以根据需要更改VBA代码中的预设邮件主题。

7. 双击“Project1” > “Microsoft Outlook 对象” > “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