如果您想将邮件正文中带有特定超链接的传入电子邮件自动移动到 Outlook 中的垃圾邮件文件夹，您可以使用本文介绍的方法。
有时，Outlook 垃圾邮件过滤器会错误地将真正的邮件标记为垃圾邮件。 因此，您可能更愿意将 Outlook 垃圾邮件保护级别设置为低。 但是，在这种情况下，许多垃圾邮件可能无法被 Outlook 垃圾邮件过滤器识别，例如带有危险超链接的邮件。 它不仅会使您的收件箱文件夹变得混乱，而且如果您单击这些链接，还可能会感染您的 Outlook 数据。 此外，如果您不喜欢收到包含特定超链接的电子邮件，您可能还想将它们移至“垃圾邮件”文件夹。 因此，在这里我们将重点讨论这个问题，并指导您如何利用 VBA 将带有特定超链接的传入电子邮件自动移动到垃圾邮件文件夹。
自动将带有特定超链接的电子邮件移动到垃圾邮件文件夹
- 首先，启动您的 Outlook 应用程序。
- 然后在 Outlook 主窗口中，按“Alt + F11”键按钮。
- 随后，在弹出的“Microsoft Visual Basic for Applications”窗口中，打开“ThisOutlookSession”项目。
- 接下来将以下 VBA 代码复制并粘贴到该项目窗口中。
Public WithEvents objIncomingItems As Outlook.Items
Private Sub Application_Startup()
Set objIncomingItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objIncomingItems_ItemAdd(ByVal objItem As Object)
Dim objMail As Outlook.MailItem
Dim objWordDocument As Word.Document
Dim objHyperlinks As Word.Hyperlinks
Dim i As Long
Dim strURL As String
Dim objJunkMailFolder As Outlook.Folder
Set objJunkMailFolder = Application.Session.GetDefaultFolder(olFolderJunk)
If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objWordDocument = objMail.GetInspector.WordEditor
Set objHyperlinks = objWordDocument.Hyperlinks
If objHyperlinks.Count > 0 Then
For i = objHyperlinks.Count To 1 Step -1
strURL = objHyperlinks.Item(i).Address
'Check if the hyperlink addresses contain specific words
'You can change the condition as per your needs
If InStr(LCase(strURL), "www.test.com") > 0 Or InStr(LCase(strURL), "www.sales.com") > 0 Then
objMail.Move objJunkMailFolder
End If
Next i
End If
End If
End Sub
- 之后，照常签署此代码。
- 稍后更改 Outlook 宏设置以允许签名的宏。
- 最后重启 Outlook 以启用新添加的 VBA 项目。
- 从现在开始，所有包含特定超链接的传入电子邮件将自动移至垃圾邮件文件夹。
PST 错误有时会发生
尽管 Outlook 拥有各种强大的功能，但它仍然无法彻底解决 PST 文件错误。因此，对于 Outlook 用户来说，保护 PST 数据免遭丢失是一项艰巨而繁琐的任务，但至关重要。最有效的方法之一是定期备份 PST 文件，这将对未来的数据安全大有裨益。 太平洋标准时间恢复 在意外的 PST 损坏之后。
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 固定 SQL Server 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com