删除 Outlook 电子邮件中所有超链接的 2 种方法

展望解决方案 2025 年 9 月 29 日

当你收到一封包含很多超链接的Outlook邮件时，你可能会觉得很麻烦，因为你总是不小心点击超链接，这会立即在Internet Browser中打开这些链接。本文将教您 2 种方法来删除所有超链接。

您一定曾经收到过邮件正文中包含一个或多个超链接的电子邮件，类似于以下屏幕截图。在这种情况下，您很容易不小心点击任何超链接。只要您点击其中一个，相应的站点就会立即在您的默认 Internet 浏览器中打开。毫无疑问，这个问题相当烦人，长期以来一直困扰着很多用户。因此，面对这个问题，在这里我们将介绍两种技术来帮助您快速删除电子邮件中的所有超链接。继续阅读以获取详细信息。

方法一：一一删除超链接

删除电子邮件中链接最常见的方法是手动逐个删除。以下是详细步骤。

首先，双击源邮件，在新窗口中打开它。
然后单击“移动”组中的“操作”按钮并选择“编辑消息”。
之后，当前收到的消息将进入编辑模式。
随后，您可以右键单击一个超链接。
接下来从其上下文菜单中，您可以找到并选择“删除超链接”。
因此，您可以重复第 4 步和第 5 步，将多个超链接一一删除。

如果当前邮件中有大量的超链接，采用方法一去除超链接将是一项相当艰巨和繁琐的工作。在这种情况下，您最好转向以下方法。

方法 2：使用 Outlook VBA 删除超链接

首先，按“Alt + F11”键按钮访问 Outlook VBA 编辑器。
然后通过单击“插入”>“模块”打开一个新模块。
接下来将以下 VBA 代码复制并粘贴到新模块中。

Sub RemoveAllHyperlinksinanEmail()
    Dim objMail As Outlook.MailItem
    Dim objInspector As Outlook.Inspector
    Dim objDocument As Word.Document
    Dim objHyperlinks As Word.Hyperlinks
    Dim objHyperlink As Word.Hyperlink
    Dim strPrompt As String
    Dim nResponse As Integer

    Set objMail = Application.ActiveInspector.CurrentItem
 
    Set objInspector = objMail.GetInspector
    Set objDocument = objInspector.WordEditor
    Set objHyperlinks = objDocument.Hyperlinks
 
    On Error Resume Next
 
    If objHyperlinks.Count > 0 Then
       strPrompt = "Are you sure to remove all the hyperlinks in this email?"
       nResponse = MsgBox(strPrompt, vbYesNo + vbQuestion, "Remove All Hyperlinks")
       If nResponse = vbYes Then
          While objHyperlinks.Count > 0
                objHyperlinks(1).Delete
          Wend
          objMail.Save
      End If
    End If
End Sub