使用vba撰写时更改Outlook回复/转发邮件

Sub ChangeReplyEmail()
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    
    ' 获取当前选中的邮件
    Set objItem = Application.ActiveExplorer.Selection.Item(1)
    
    ' 确保选中的是邮件类型
    If objItem.Class = olMail Then
        Set objMail = objItem
        
        ' 更改回复邮件的主题和正文
        objMail.Reply.Subject = "修改后的回复主题"
        objMail.Reply.Body = "修改后的回复正文"
        
        ' 显示回复邮件
        objMail.Reply.Display
    End If
    
    Set objItem = Nothing
    Set objMail = Nothing
End Sub