Question

我们的企业Exchange管理员决定通过在每个传入的外部电子邮件的正文中添加大胆的红色警告来保护用户免受网络钓鱼，以防万一可能是网络钓鱼尝试。 bc我的电子邮件的MOST是外部的，这已经变得令人讨厌。我还经常需要在转发或回复电子邮件之前手动删除警告（以免警告不太精通的收件人）。我们的公司管理员不同情我的困境。所以，我正在寻找一种方法来自动删除警告，当电子邮件到达时或者当我回复/转发电子邮件时。我已经玩了一点VB但是不知道编写适当的代码。任何帮助将不胜感激！在Windows 10上使用OL 2016并且警告在消息正文中（不是主题行）

编辑：不幸的是，OL不允许像其他办公应用程序一样进行宏录制。所以，我看了一些有帮助的教程，但没有给出足够的解释来带来成功。我提出了这个代码，但得到了＃34;编译错误：Sub或Function＆＃34中的无效属性;突出显示Dim声明：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim WithEvents myOLMail As Outlook.MailItem Replace(myOLMail, "Caution - External Email", "") As String End Sub

很明显，我需要更多基本的理解。我通读Getting Started with VBA in Outlook 2010但需要更多。任何帮助或资源都会很棒。我一直想学习VB。

Answer 1

在ThisOutlookSession模块中。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

     Item.HTMLBody = Replace(Item.HTMLBody, "Caution - External Email", "")

End Sub

使用“应用程序”时不需要Dim语句。这比Microsoft文档中描述的方式更简单。如果你需要它，它将在模块顶部的Sub之外。

自动删除电子邮件正文中的警告

1 个答案: