如何在带邮件线程的excel中使用vba回复outlook邮件？

Sub ReplyToEmail()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olMail As Outlook.MailItem
    Dim olReply As Outlook.MailItem
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 获取收件箱文件夹
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 遍历收件箱中的邮件
    For Each olMail In olFolder.Items
        ' 判断是否为带邮件线程的Excel邮件
        If InStr(olMail.Subject, "带邮件线程的Excel邮件") > 0 Then
            ' 创建回复邮件对象
            Set olReply = olMail.Reply
            
            ' 设置回复邮件的内容
            olReply.Body = "这是我的回复内容。"
            
            ' 发送回复邮件
            olReply.Send
            
            ' 退出循环，只回复最新的一封邮件
            Exit For
        End If
    Next olMail
    
    ' 释放对象
    Set olReply = Nothing
    Set olMail = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub