如何在Outlook中关闭或禁用无主题警告？

使用Outlook 2010和2013时，如果您发送的电子邮件中没有主题，则每次都会弹出一个无主题提示框，以进行提醒。 如果您真的不想填写主题，则无主题警告将给您带来很大麻烦。 为了帮助Outlook用户摆脱“无主题警告”，我们在以下教程中提供了一项技巧。

在Outlook中关闭或禁用没有主题警告

在Outlook中关闭或禁用没有主题警告

在Outlook 2007中，如果您发送的电子邮件没有主题，则没有警告。 在Outlook 2010和2013中启用了此功能。但是没有关闭或禁用此无主题警告的功能。 在本教程中，我们将向您展示实现此目标的VBA代码。

1.请按 其他 + F11 键以打开“ Microsoft Visual Basic应用程序”对话框。

2.展开 Project1 > Microsoft Outlook对象 通过双击它们。 然后双击 本次展望会议 打开 Vba工程.OTM 对话框。

3.复制下面的VBA代码并将其粘贴到对话框中。

VBA：关闭或禁用任何主题警告

Option Explicit
Private WithEvents oInspectors As Outlook.Inspectors
 
Private Sub Application_Startup()
 
    Set oInspectors = Outlook.Inspectors
 
End Sub
 
Private Sub oInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim oItem As Object
 
    On Error GoTo ExitProc
    Set oItem = Inspector.CurrentItem
    Debug.Print oItem.Sent
    If oItem.Sent = False Then
        If oItem.Subject = "" Then oItem.Subject = " "
 
    End If
 
ExitProc:
 
    Set oItem = Nothing
    Set Inspector = Nothing
End Sub
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    On Error Resume Next
    Item.Subject = Trim(Item.Subject)
 
End Sub
 
Private Sub Application_Quit()
 
    Set oInspectors = Nothing
 
End Sub

4。 点击 保存 按钮以保存VBA代码。

5.重新启动Outlook应用程序。

然后，VBA代码即可工作。 当您发送不带主题的消息时，“无主题”警告框将不再显示。

备注：请确保 启用所有宏 框已选中（请单击 文件 > 附加选项 > 信任中心 > 信任中心设置， 和在 信任中心 对话框中，选择 宏设置 > 启用所有宏），请参见屏幕截图：

---

最佳办公生产力工具

Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook

🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件！ ...

📧 电子邮件自动化: 外出（适用于 POP 和 IMAP）  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发（高级规则）   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 轻松回忆电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版: 批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  使用选项卡式视图提高 Outlook 工作效率  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

超过 100特点 等待您的探索！ 单击此处了解更多。

了解更多       免费下载      购买