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

在使用 Outlook 2010 和 2013 时，如果发送邮件时未填写主题，系统每次都会弹出无主题提示框进行提醒。如果您确实不想填写主题，这个无主题警告就会变得非常烦人。为帮助 Outlook 用户摆脱无主题警告，我们在以下教程中为您提供了解决方案。

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

---

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

在 Outlook 2007 中，发送无主题邮件时不会弹出警告提示。而在 Outlook 2010 和 2013 中，该功能已被启用。不过，目前尚无直接关闭或禁用无主题警告的选项。本教程将为你提供实现此效果的 VBA 代码。

1. 请按下“Alt”+“F11”组合键，打开“Microsoft Visual Basic for Applications”对话框。

2. 双击展开“Project 1” > “Microsoft Outlook Objects”，然后双击“ThisOutlookSession”以打开“VbaProject.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
    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 代码已生效。当您发送无主题邮件时，将不再弹出无主题警告提示框。

注意：请确保已勾选“启用所有宏”选项。（您可以通过点击“文件”>“选项”>“信任中心”>“信任中心设置”，在弹出的“信任中心”对话框中选择“宏设置”并勾选“启用所有宏”进行确认），具体操作请参见截图：