跳到主要内容

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

添加一名作者 最后修改时间:2014-05-30

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

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

Office 选项卡 - 在 Microsoft Office 中启用选项卡式编辑和浏览,让工作变得轻而易举
解锁 Outlook 的 Kutools 免费 版本 立即享受超过 70 项功能,永久无限制访问
使用这些高级功能增强您的 Outlook 2021 - 2010 或 Outlook 365。享受 70 多种强大功能并提升您的电子邮件体验!

箭头蓝色右气泡在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 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

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

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

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

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

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

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

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

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

kutools for outlook 功能1 kutools for outlook 功能2
 

 

 

Comments (4)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Forgot to mention I do have a Microsoft 365 subscription as well.
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi, I use outlook.live.com to check my hotmail. How can I fix it so that I don't encounter this error on there? Thanks! RamyJo
Rated 5 out of 5
This comment was minimized by the moderator on the site
Oh my GOSH! THANK YOU!
This comment was minimized by the moderator on the site
THANK YOU SO MUCH
this was driving me crazy. If I forward something to myself, if I send to a family member, if I just decide it doesn't warrant a subject, I don't want to have to add one! and I hate, hate hate when my email sits there unsent for an hour because I didn't notice it got hung up by the subject line Nazi.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations