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

在Excel中，可以通过宏来实现当单元格取值为“是”时自动发送电子邮件的功能。下面是一个实现该功能的步骤：

打开Excel，按下Alt + F11组合键，打开Visual Basic for Applications（VBA）编辑器。
在VBA编辑器中，选择插入 -> 模块，创建一个新的模块。
在新的模块中，编写以下VBA代码：

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