单元格取值为“是”时如何通过Excel发送电子邮件

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim MailBody As String
    Dim MailSubject As String
    Dim MailRecipient As String
    
    ' 邮件主题
    MailSubject = "邮件主题"
    ' 邮件内容
    MailBody = "邮件内容"
    ' 邮件接收人
    MailRecipient = "收件人邮箱地址"
    
    ' 判断单元格的值是否为"是"
    If Range("A1").Value = "是" Then
        ' 创建Outlook应用程序对象
        Set OutlookApp = CreateObject("Outlook.Application")
        ' 创建邮件对象
        Set OutlookMail = OutlookApp.CreateItem(0)
        
        ' 设置邮件的主题、内容和接收人
        With OutlookMail
            .Subject = MailSubject
            .Body = MailBody
            .To = MailRecipient
            ' 发送邮件
            .Send
        End With
        
        ' 释放对象
        Set OutlookMail = Nothing
        Set OutlookApp = Nothing
    End If
End Sub