如何在 Outlook 中为主题添加下拉列表？

您可能需要为 Outlook 中的不同收件人准备多种预设邮件主题。如果在撰写邮件时，能够通过主题行下拉列表直接选择主题，无需手动输入，将大大提升效率。正如下方 GIF 所示。本教程为您提供三段 VBA 代码，帮助创建包含多种预设主题的下拉列表。在撰写邮件时，您只需从下拉菜单中选择所需主题，系统即可自动填充到主题栏。请按照分步指南操作。

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

事实上，Outlook 并不支持在主题栏直接添加下拉列表。因此，您需要通过创建用户窗体并结合 VBA 代码来实现这一功能。

1. 启动 Outlook 后，按下“Alt”+“F11”组合键，即可打开“Microsoft Visual Basic for Applications”窗口。

2. 在“Microsoft Visual Basic for Applications”窗口中，点击“插入”并选择“用户窗体”。

3. 接下来，“UserForm 1”将在“Visual Basic”编辑器左侧窗格的“Project 1”下被插入。您只需分别从“工具箱”拖拽“ComboBox”和“CommandButton”到“UserForm 1”，即可为该窗体添加一个下拉框和一个命令按钮。

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

5. 在“属性 – CommandButton 1”窗格中，将“Caption”字段修改为“确定”，即可更改命令按钮上显示的文本内容。

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

注意：在代码中，“Subject 1、2、3、4”和“5”是您希望在邮件中使用的预设邮件标题。“无更改”表示不会修改现有邮件标题。您可根据需要在 VBA 代码中自定义预设邮件标题。

7. 双击“Project 1” > “Microsoft Outlook 对象” > “ThisOutlookSession”，然后将以下 VBA 代码粘贴到“ThisOutlookSession （代码）”窗口中。

VBA 代码 2，用于 ThisOutlookSession 窗口

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. 保存代码后，按下“Alt”+“Q”组合键关闭“Visual Basic 编辑器”窗口，即可返回 Outlook 应用程序。

10. 在“开始”选项卡中，点击“新建邮件”按钮即可创建新邮件。

11. 在新邮件窗口中，点击“自定义快速访问工具栏”，然后选择“更多命令”。

12. 在“Outlook 选项”对话框中，请按照以下方式进行设置。

13. 此时，您会发现功能区中已添加了一个按钮到邮件窗口。

14. 现在，您需要重新启动 Outlook。

15. 在撰写邮件时，如需插入预设主题，只需点击功能区中新添加的按钮，调出用户窗体，从下拉菜单中选择所需主题，点击“确定”后，主题栏将自动填充。

注意事项：

Outlook AI 邮件助手：智能回复，沟通更高效清晰（只需一键，轻松体验神奇效果！）

通过 Kutools for Outlook 的 AI 邮件助手，轻松提升您的日常 Outlook 工作效率。该强大工具能够智能学习您的邮件习惯，提供高效、精准的回复建议，优化邮件内容，助您轻松起草和润色邮件。

该功能支持：

• 智能回复：根据您的历史对话内容生成个性化且精准的回复，随时为您所用。
• 内容优化：自动完善您的邮件文本，让表达更加清晰且更具影响力。
• 轻松写作：您只需输入关键词，剩下的交给 AI，多种润色风格随心选择。
• 智能扩展：结合上下文，智能拓展您的想法，提供精准建议。
• 智能摘要：轻松为冗长邮件快速生成简明概览，让信息一目了然。
• 全球畅邮：轻松将邮件翻译为任意语言。

该功能支持：

• 智能邮件回复
• 内容优化
• 关键词草稿
• 智能内容扩展
• 邮件摘要
• 多语言翻译

立即行动——现在就下载 AI 邮件助手，畅享高效体验，不容错过！

---

最佳办公效率工具

体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！

🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！

一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！

Kutools for Outlook 功能列表      立即下载      前往购买

🚀 一键下载 — 即可获取全部 Office 加载项

强烈推荐：Kutools for Office（5 合 1）

一键下载五个安装包，即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载！

• ✅ 一键便捷：只需一次操作，即可下载全部五个安装包。
• 🚀 轻松应对各类 Office 任务：随时按需安装所需插件，助您高效办公，不容错过！
• 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

关于套件⬇ 下载套件💳 购买套件