如何在 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
9. 保存代码并按 其他 + Q 关闭键 Visual Basic 编辑器 窗口并返回 Outlook 应用程序。
10。 点击 新邮件 按钮下 首页 选项卡以创建电子邮件。
11. 在新消息窗口中,单击 自定义快速访问工具栏 > 更多命令.
12。 在里面 Outlook选项 对话框,您需要配置如下。
13.然后你可以看到一个按钮 已添加到消息窗口的功能区。
14. 现在您需要重新启动 Outlook。
15. 在撰写邮件时,如果需要插入预设主题,只需点击功能区上新增的按钮以显示用户表单,从下拉菜单中选择一个主题,然后单击 OK 按钮将其填充到主题行中。
说明:
Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!
- 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
- BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
- 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
- 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
- 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。

