使用变量格式化Excel VBA电子邮件

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim EmailSubject As String
    Dim EmailBody As String
    Dim Recipient As String
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件主题
    EmailSubject = "这是邮件主题"
    OutlookMail.Subject = EmailSubject
    
    ' 设置收件人
    Recipient = "recipient@example.com"
    OutlookMail.To = Recipient
    
    ' 设置邮件正文
    EmailBody = "这是邮件正文"
    OutlookMail.Body = EmailBody
    
    ' 发送邮件
    OutlookMail.Send
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub