Excel与Outlook通信异常，邮件回复及跨程序调用失败求助

问题现象 #

从组邮箱调用邮件并回复时，仅回复功能异常：要么生成仅含自定义内容的邮件，要么打开无内容但保留历史消息的回复。主代码在.HTMLBody处触发应用程序定义或对象定义错误，且Excel调用Outlook函数时触发Object doesn't support this property or method错误，根源为Excel与Outlook的COM通信异常。

解决方案 #

1. 修复COM通信基础问题 #

• 启用Outlook宏并授予权限：打开Outlook → 文件 → 选项 → 信任中心 → 信任中心设置 → 宏设置，选择"通知所有宏"，同时勾选"信任对VBA工程对象模型的访问"。
• 重新注册Outlook COM组件：以管理员身份运行命令提示符，执行对应Office版本的注册命令（示例为Office 2016/365）：

  regsvr32.exe "C:\Program Files\Microsoft Office\root\Office16\OUTLOOK.EXE"
  

• 彻底重启应用：在任务管理器中结束所有OUTLOOK.EXE进程，再重新打开Excel和Outlook。

2. 调整主代码的HTMLBody操作 #

直接拼接.HTMLBody易因格式冲突或通信异常报错，修改为先保存原始回复的HTML内容，再合法拼接自定义内容：

Sub Find_Email()
    Dim objOutlook As Object: Set objOutlook = CreateObject("Outlook.Application")
    Dim olMail As Outlook.MailItem
    Dim olReply As Outlook.MailItem
    Dim olNS As Namespace: Set olNS = GetNamespace("MAPI")
    Dim olMailbox As Folder: Set olMailbox = olNS.Folders("Group Inbox")
    Dim olFolder As Folder: Set olFolder = olMailbox.Folders("Group Folder")
    Dim subFolder As Folder: Set subFolder = olFolder.Folders("Group Subfolder")
    Dim olItems As Outlook.Items: Set olItems = subFolder.Items
    
    Dim TheDate As String, originalHTML As String
    TheDate = Format(Date, "DD-MM-YYYY")
    ' 保留其他日期变量定义
    
    ' 排序并查找目标邮件
    olItems.Sort "ReceivedTime", True
    For i = 1 To 20
        Set olMail = olItems(i)
        If InStr(olMail.Subject, "Subject " & TheDate) > 0 Then
            Set olReply = olMail.ReplyAll
            ' 先保存原始回复的HTML内容
            originalHTML = olReply.HTMLBody
            With olReply
                ' 确保EmailBody为合法HTML片段
                .HTMLBody = EmailBody & originalHTML
                If Attach_File = True Then .Attachments.Add "Location"
                .Display
                Exit Sub
            End With
        End If
    Next i
End Sub

3. 修复跨应用函数调用错误 #

Outlook端修改：

将函数设为Public，并放置在标准模块中：

Public Function testoutlook()
    MsgBox "hello"
End Function

Excel端修改：

直接调用Outlook.Application实例的Public函数，无需额外层级：

Sub testexcel()
    Dim o As Outlook.Application
    Set o = GetObject(, "Outlook.application")
    o.testoutlook
End Sub

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