使用文件夹中已保存的电子邮件模板通过excel发送电子邮件吗？

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim EmailTemplate As String
    Dim EmailSubject As String
    Dim EmailBody As String
    Dim EmailAttachment As String
    
    ' 设置邮件模板的路径
    EmailTemplate = "C:\Path\To\Email\Template.html"
    
    ' 设置邮件的主题
    EmailSubject = "邮件主题"
    
    ' 设置邮件的正文
    EmailBody = "邮件正文"
    
    ' 设置邮件的附件
    EmailAttachment = "C:\Path\To\Email\Attachment.pdf"
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItemFromTemplate(EmailTemplate)
    
    ' 设置邮件的主题
    OutlookMail.Subject = EmailSubject
    
    ' 设置邮件的正文
    OutlookMail.HTMLBody = EmailBody
    
    ' 添加附件
    OutlookMail.Attachments.Add EmailAttachment
    
    ' 发送邮件
    OutlookMail.Send
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub