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

您可能有不同的预设电子邮件主题需要分发给 Outlook 中的不同收件人。在撰写电子邮件时使用主题行下拉列表来选择主题而无需手动输入会非常有效。就像下面展示的 gif 一样。本教程提供了三个 VBA 代码来帮助您创建具有不同预设主题的下拉列表。撰写电子邮件时，您可以从下拉列表中选择您需要的任何主题以自动填写主题行。请按照分步指南完成操作。

使用 VBA 代码为 Outlook 中的主题创建下拉列表

实际上，Outlook 不允许在主题行中添加下拉列表。在这里，您需要创建一个用户表单并将其与 VBA 代码结合以完成它。

1.启动Outlook，按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。在里面 Microsoft Visual Basic应用程序 窗口中，单击插页 > 用户表格.

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