用Excel VBA回复.msg文件

Sub ReplyToMsgFile()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olItem As Object
    Dim olReply As Object
    
    ' 创建Outlook应用对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 打开.msg文件
    Set olItem = olNamespace.OpenSharedItem("C:\Path\to\your\file.msg")
    
    ' 创建回复邮件
    Set olReply = olItem.Reply
    
    ' 设置回复邮件的内容
    olReply.Body = "这是回复邮件的内容"
    
    ' 发送回复邮件
    olReply.Send
    
    ' 释放对象
    Set olReply = Nothing
    Set olItem = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub