如何在VBA excel中将发件人添加到发送电子邮件的宏中

在VBA Excel中将发件人添加到发送电子邮件的宏中，可以通过以下步骤实现：

首先，需要在VBA编辑器中打开Excel文件。可以通过按下Alt + F11键来打开VBA编辑器。
在VBA编辑器中，找到并双击需要添加宏的工作表。
在工作表的代码窗口中，输入以下VBA代码：

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

在代码中的Recipient变量中，将"recipient@example.com"替换为实际的收件人邮箱地址。
在代码中的OutlookMail.Subject和OutlookMail.Body中，分别设置邮件的主题和内容。
运行宏。可以通过按下F5键或在VBA编辑器中点击运行按钮来运行宏。
运行宏后，将会自动打开Outlook应用程序，并创建一封包含指定收件人、主题和内容的电子邮件。用户可以在Outlook中进行进一步编辑和发送。

需要注意的是，上述代码中使用了Outlook应用程序来发送电子邮件。因此，需要确保计算机上已安装了Outlook并正确配置了电子邮件账户。

此外，腾讯云提供了云邮件推送（https://cloud.tencent.com/product/cep）和云通信（https://cloud.tencent.com/product/ims）等相关产品，可以用于在云计算环境中发送电子邮件和短信。但由于要求不能提及具体品牌商，无法给出腾讯云产品的链接地址。