使用模板在VBA中创建的Outlook电子邮件在保存时会转换为纯文本

Sub CreateEmailFromTemplate()
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim olTemplate As Outlook.MailItem
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    
    ' 创建新的邮件项
    Set olMail = olApp.CreateItem(olMailItem)
    
    ' 加载模板
    Set olTemplate = olApp.CreateItemFromTemplate("C:\Path\To\Template.html")
    
    ' 将模板内容复制到新邮件中
    olTemplate.HTMLBody.Copy
    olMail.HTMLBody = olTemplate.HTMLBody
    
    ' 设置邮件的其他属性
    olMail.Subject = "邮件主题"
    olMail.To = "收件人邮箱地址"
    
    ' 发送邮件
    olMail.Send
    
    ' 释放对象
    Set olMail = Nothing
    Set olTemplate = Nothing
    Set olApp = Nothing
End Sub