Vba 自动删除电子邮件正文中的警告
我们公司的Exchange管理员决定在收到的每封外部电子邮件的正文中添加一个醒目的红色警告，以防可能是钓鱼企图，从而保护用户免受钓鱼攻击。bc我的大部分电子邮件都是外部的，这已经变得令人讨厌。我还经常需要在转发或回复电子邮件之前手动删除警告（以便不惊动不太精明的收件人）。我们公司的管理人员并不同情我的困境。因此，我正在寻找一种在电子邮件到达或回复/转发电子邮件时自动删除警告的方法。我用VB玩过一点，但不知道如何编写合适的代码。任何帮助都将不胜感激！在Windows 10上使用OL 2016，消息正文中有警告（非主题行） 编辑：遗憾的是，OL不允许像其他office应用程序一样进行宏录制。所以，我看了一些教程，这些教程虽然有帮助，但没有足够的解释来带来成功。我编写了这段代码，但得到了“编译错误：子或函数中的属性无效”，并突出显示了Dim语句：Vba 自动删除电子邮件正文中的警告,vba,email,exchange-server,outlook-2016,Vba,Email,Exchange Server,Outlook 2016,我们公司的Exchange管理员决定在收到的每封外部电子邮件的正文中添加一个醒目的红色警告，以防可能是钓鱼企图，从而保护用户免受钓鱼攻击。bc我的大部分电子邮件都是外部的，这已经变得令人讨厌。我还经常需要在转发或回复电子邮件之前手动删除警告（以便不惊动不太精明的收件人）。我们公司的管理人员并不同情我的困境。因此，我正在寻找一种在电子邮件到达或回复/转发电子邮件时自动删除警告的方法。我用VB玩过一点，但不知道如何编写合适的代码。任何帮助都将不胜感激！在Windows 10上使用OL 2016，消息
私有子应用程序\u ItemSend（ByVal项作为对象，取消作为布尔值）
使用事件myOLMail作为Outlook.MailItem进行Dim
将（myOLMail，“注意-外部电子邮件”和“”替换为字符串
末端接头很明显，我需要更多的基本理解。我通读了一遍，但还需要更多。任何帮助或资源都会很棒。我想学习VB已经有一段时间了。在ThisOutlookSession模块中
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Item.HTMLBody = Replace(Item.HTMLBody, "Caution - External Email", "")
End Sub
使用“应用程序”时不需要Dim语句。这比Microsoft文档中描述的方法更简单。如果需要，它将位于模块顶部的子模块之外。指针：需要宏进入
ThisOutlookSessionApplication\u ItemSend.Body.HTMLBody”