在Excel中发送电子邮件需要使用VBA编程语言。以下是一个示例代码，用于在Excel中发送电子邮件：

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim MailBody As String
    Dim MailSubject As String
    Dim RecipientEmail As String
    
    ' 邮件内容
    MailBody = "这是一封测试邮件。"
    
    ' 邮件主题
    MailSubject = "测试邮件"
    
    ' 收件人邮箱
    RecipientEmail = "recipient@example.com"
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建新邮件
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件的内容、主题和收件人
    With OutlookMail
        .Body = MailBody
        .Subject = MailSubject
        .To = RecipientEmail
        
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
    
    ' 显示发送成功消息
    MsgBox "邮件已发送成功！"
End Sub

要使用此代码，请按照以下步骤进行操作：

1. 打开Excel文件。
2. 按下Alt + F11键，打开VBA编辑器。
3. 在VBA编辑器中，选择要在其中添加代码的工作表或工作簿。
4. 在VBA编辑器中，选择插入菜单，然后选择模块。
5. 在新创建的模块中，粘贴上述代码。
6. 修改MailBody、MailSubject和RecipientEmail变量的值，以便根据您的需求设置邮件的内容、主题和收件人。
7. 按下F5键或选择运行菜单中的运行子过程，以运行代码。

运行代码后，将使用默认的邮件客户端发送一封包含指定内容、主题和收件人的电子邮件。发送成功后，将显示一个消息框。