自动删除电子邮件正文中的警告
Automatically Remove Warning in Email Body
我们的 Corporate Exchange 管理员决定通过在每封传入的外部电子邮件正文中添加粗体红色警告来保护用户免受网络钓鱼，以防万一这可能是网络钓鱼企图。 bc 我的电子邮件大部分是外部的，这已经变得令人讨厌了。我也经常需要在转发或回复电子邮件之前手动删除警告（以免惊动不太精明的收件人）。我们的公司管理员并不同情我的困境。因此，我正在寻找一种方法来自动删除警告，当电子邮件到达时或者当我 reply/forward 电子邮件时。我玩过 VB 一点，但还不足以编写适当的代码。任何帮助将不胜感激！在 Windows 10 上使用 OL 2016，警告在邮件正文中（不是主题行）
编辑：不幸的是，OL 不像其他办公应用程序那样允许宏录制。因此，我查看了一些有帮助但解释不够成功的教程。我想出了这段代码，但得到 "Compile error: Invalid attribute in Sub or Function" 并突出显示了 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 有一段时间了。
在 ThisOutlookSession 模块中。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Item.HTMLBody = Replace(Item.HTMLBody, "Caution - External Email", "")
End Sub
使用 "Application" 时不需要 Dim 语句。这比 Microsoft 文档中描述的方式更简单。如果您需要它，它会在模块顶部的 Sub 之外。
我们的 Corporate Exchange 管理员决定通过在每封传入的外部电子邮件正文中添加粗体红色警告来保护用户免受网络钓鱼，以防万一这可能是网络钓鱼企图。 bc 我的电子邮件大部分是外部的，这已经变得令人讨厌了。我也经常需要在转发或回复电子邮件之前手动删除警告（以免惊动不太精明的收件人）。我们的公司管理员并不同情我的困境。因此，我正在寻找一种方法来自动删除警告，当电子邮件到达时或者当我 reply/forward 电子邮件时。我玩过 VB 一点，但还不足以编写适当的代码。任何帮助将不胜感激！在 Windows 10 上使用 OL 2016，警告在邮件正文中（不是主题行）
编辑：不幸的是，OL 不像其他办公应用程序那样允许宏录制。因此，我查看了一些有帮助但解释不够成功的教程。我想出了这段代码，但得到 "Compile error: Invalid attribute in Sub or Function" 并突出显示了 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 有一段时间了。
在 ThisOutlookSession 模块中。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Item.HTMLBody = Replace(Item.HTMLBody, "Caution - External Email", "")
End Sub
使用 "Application" 时不需要 Dim 语句。这比 Microsoft 文档中描述的方式更简单。如果您需要它，它会在模块顶部的 Sub 之外。