VBA 使用 OFT 模板从 Excel 发送电子邮件 - 禁止自动签名

在VBA中使用OFT模板从Excel发送电子邮件是一种非常常见的需求。OFT模板是一种Outlook模板文件，用于创建和发送电子邮件。在Excel中，我们可以使用VBA编程语言来自动化此过程，并将数据从Excel工作表中导入到电子邮件中。然而，有时我们可能希望在发送邮件时禁止Outlook自动添加电子邮件签名。本文将介绍如何使用VBA编写代码来实现这一功能，并提供一个案例代码来演示该过程。

vba
Sub SendEmailWithoutSignature()
    Dim OutApp As Object
    Dim OutMail As Object
    
    ' 创建Outlook应用程序对象
    Set OutApp = CreateObject("Outlook.Application")
    ' 创建新的邮件对象
    Set OutMail = OutApp.CreateItemFromTemplate("C:\Path\to\your\template.oft")
    
    ' 禁用自动添加签名
    OutMail.BodyFormat = 2 ' olFormatHTML
    OutMail.HTMLBody = Replace(OutMail.HTMLBody, "", "")
    
    ' 设置收件人、主题等信息
    With OutMail
        .To = "recipient@example.com"
        .Subject = "Test Email"
        ' 添加其他内容
        .HTMLBody = .HTMLBody & "
This is the body of the email.
"
        .Send
    End With
    
    ' 释放对象
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

vba
Sub SendEmailWithoutSignature()
    Dim OutApp As Object
    Dim OutMail As Object
    
    ' 创建Outlook应用程序对象
    Set OutApp = CreateObject("Outlook.Application")
    ' 创建新的邮件对象
    Set OutMail = OutApp.CreateItemFromTemplate("C:\Path\to\your\template.oft")
    
    ' 禁用自动添加签名
    OutMail.BodyFormat = 2 ' olFormatHTML
    OutMail.HTMLBody = Replace(OutMail.HTMLBody, "", "")
    
    ' 设置收件人、主题等信息
    With OutMail
        .To = "recipient@example.com"
        .Subject = "Test Email"
        ' 添加其他内容
        .HTMLBody = .HTMLBody & "
This is the body of the email.
"
        .Send
    End With
    
    ' 释放对象
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub