Outlook VBA召回选中已发送邮件代码报错，求修改方案

原代码报错的核心原因是新版Outlook采用Ribbon界面替代了传统命令栏，CommandBars.FindControl(, 2511)无法定位到召回控件，甚至部分旧版Outlook中控件路径也可能发生变化。以下是两种可靠的修改方案：

方案一：使用Outlook原生Recall方法（推荐） #

直接调用MailItem.Recall原生API，不依赖界面控件，兼容性更强，还能处理错误场景：

Option Explicit
Sub RecallSelectedSentEmail()
    Dim selectedItem As Object
    Dim mailItem As Outlook.MailItem
    
    ' 检查是否选中邮件
    If ActiveExplorer.Selection.Count = 0 Then
        MsgBox "请先选中已发送文件夹中的邮件！", vbExclamation
        Exit Sub
    End If
    
    Set selectedItem = ActiveExplorer.Selection.Item(1)
    
    ' 确认选中项为邮件
    If TypeName(selectedItem) = "MailItem" Then
        Set mailItem = selectedItem
        
        ' 仅已发送邮件支持召回
        If mailItem.Sent Then
            On Error Resume Next
            ' 执行召回：第一个参数True=删除收件人未读副本，False=仅通知召回结果
            mailItem.Recall True, False
            On Error GoTo 0
            
            If Err.Number = 0 Then
                MsgBox "召回请求已发送！", vbInformation
            Else
                MsgBox "无法执行召回：" & Err.Description, vbCritical
            End If
        Else
            MsgBox "选中的邮件未发送，无法召回！", vbExclamation
        End If
    Else
        MsgBox "请选中邮件类型的项目！", vbExclamation
    End If
End Sub

方案二：适配命令栏控件查找（仅旧版Outlook适用） #

如果必须依赖命令栏操作，需要更精确地指定命令栏名称来定位控件：

Option Explicit
Sub RecallUsingCommandBar()
    Dim SendItem As Object
    Dim olItem As Outlook.MailItem
    Dim olInsp As Outlook.Inspector
    Dim recallCtrl As CommandBarControl
    
    Set SendItem = ActiveExplorer.Selection.Item(1)
    
    If TypeName(SendItem) = "MailItem" Then
        Set olItem = SendItem
        Set olInsp = olItem.GetInspector
        olInsp.Display
        
        ' 指定"Standard"命令栏查找ID为2511的召回控件
        Set recallCtrl = olInsp.CommandBars("Standard").FindControl(ID:=2511)
        
        If Not recallCtrl Is Nothing Then
            recallCtrl.Execute
            olInsp.Close olDiscard
        Else
            MsgBox "未找到召回命令控件，请尝试使用方案一！", vbExclamation
            olInsp.Close olDiscard
        End If
    End If
End Sub

注意：方案二仅在旧版Outlook（如2010及更早版本）中有效，新版Outlook的Ribbon界面已移除传统命令栏结构，无法通过此方式找到控件。

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