VBA outlook发送到单元格中保存的电子邮件

Sub SendEmailToCell()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim EmailAddress As String
    Dim EmailSubject As String
    Dim EmailBody As String
    
    ' 获取单元格中的电子邮件地址、主题和正文内容
    EmailAddress = Range("A1").Value
    EmailSubject = Range("B1").Value
    EmailBody = Range("C1").Value
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建新的邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置收件人、主题和正文内容
    With OutlookMail
        .To = EmailAddress
        .Subject = EmailSubject
        .Body = EmailBody
        .Display ' 如果想要直接发送邮件，可以使用 .Send 方法
    End With
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub