Outlook VBA删除收件箱选中邮件超链接失效问题求解

Outlook 对收件箱内的已接收邮件默认配置了只读保护：

• 仅在预览窗格加载、未进入编辑状态的邮件，代码通过GetInspector获取到的关联Word编辑器对象仅开放读取权限，无修改权限。这种场景下代码可以正常识别、统计超链接总数，但执行Delete操作时不会实际生效。
• 点击转发按钮后，系统会自动生成一份可编辑的新邮件草稿，关联的Word编辑器开放完整修改权限，因此删除超链接的逻辑可以正常运行。

ExecuteMso "EditMessage"指令的作用就是调用Outlook原生的「编辑邮件」功能，将只读状态的已接收邮件切换到可编辑状态，放开对应Word文档的修改权限。

原代码没有为遍历到的每封邮件触发编辑模式切换，直接调用ActiveInspector也无法适配选中多封邮件的批量处理场景，修改后代码如下：

Dim objOL As Outlook.Application
Dim objSelection As Outlook.Selection
Dim objMsg As Outlook.MailItem
Dim objInspector As Outlook.Inspector
Dim objDocument As Word.Document
Dim objHyperlinks As Word.Hyperlinks
Dim nResponse As VbMsgBoxResult
Dim strPrompt As String

Set objOL = Outlook.Application
Set objSelection = objOL.ActiveExplorer.Selection

For Each objMsg In objSelection
    Set objInspector = objMsg.GetInspector
    ' 触发当前邮件进入可编辑状态
    objInspector.Activate
    objInspector.CommandBars.ExecuteMso "EditMessage"
    DoEvents ' 等待编辑模式切换完成，避免权限未就绪导致操作失败
    
    If objInspector.IsWordMail Then
        Set objDocument = objInspector.WordEditor
        Set objHyperlinks = objDocument.Hyperlinks
        
        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
                objMsg.Save
            End If
        End If
    End If
    ' 处理完关闭检查器窗口，避免残留多余弹窗
    objInspector.Close olDiscard
    Set objHyperlinks = Nothing
    Set objDocument = Nothing
    Set objInspector = Nothing
Next

Set objSelection = Nothing
Set objOL = Nothing

• 不要在核心修改逻辑前随意加On Error Resume Next，否则权限不足、对象调用失败的报错会被静默屏蔽，提升问题排查难度。
• 批量处理多封选中邮件时，不要使用ActiveInspector对象触发编辑指令，必须调用每封邮件对应的objInspector实例，否则指令只会对当前前台打开的单封邮件生效。

内容的提问来源于stack exchange，提问作者TiTus