如何防止用户在Outlook中未输入主题的情况下发送电子邮件?
通过Outlook发送电子邮件时,有时,您可以在不输入主题的情况下发送电子邮件,这可能不是一个好习惯。 有什么方法可以强制用户在Outlook中发送带有主题的电子邮件?
防止发送电子邮件而未在VBA中输入主题
除了VBA代码之外,没有其他方法可以解决此问题。
1.启用Outlook,然后按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口。
2.双击 本次展望会议 ,在 Project1 窗格,然后将以下代码复制并粘贴到空白脚本中。
VBA:防止发送没有主题的电子邮件
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180511
Dim xObject As Object
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xObject = CreateObject("VBScript.Regexp")
With xObject
.Global = True: .Pattern = "^\x20*$"
If .test(Item.Subject) = True Then
MsgBox "No subject entered", vbInformation, "Kutools for Outlook"
Cancel = True
End If
End With
End Sub
3.保存代码,现在,如果您发送的电子邮件中没有主题,它将弹出一个对话框,提示您输入主题。
请注意: 此VBA代码适用于Outlook中的所有帐户
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。