Excel 自动发送邮件：使用 VBA 宏根据单元格地址发送邮件

要在Excel中根据单元格中的邮件地址自动发送邮件，可以使用VBA宏来实现。以下是一个简单的示例代码：\n\nvba\nSub SendEmail()\n Dim OutApp As Object\n Dim OutMail As Object\n Dim EmailAddress As String\n Dim Subject As String\n Dim Body As String\n \n ' 创建Outlook应用程序对象\n Set OutApp = CreateObject("Outlook.Application")\n Set OutMail = OutApp.createitem(0)\n \n ' 邮件地址在A1单元格\n EmailAddress = Range("A1").Value\n \n ' 邮件主题在B1单元格\n Subject = Range("B1").Value\n \n ' 邮件正文在C1单元格\n Body = Range("C1").Value\n \n ' 设置邮件的收件人、主题和正文\n With OutMail\n .To = EmailAddress\n .Subject = Subject\n .Body = Body\n .Send ' 发送邮件\n End With\n \n ' 释放对象\n Set OutMail = Nothing\n Set OutApp = Nothing\nEnd Sub\n\n\n要使用此代码，可以按照以下步骤操作：\n\n1. 打开Excel文件，按下ALT + F11打开VBA编辑器。\n2. 在左侧的“项目资源管理器”窗口中，双击“Sheet1”（或其他你想要在其中发送邮件的工作表）。\n3. 在代码窗口中，粘贴上述代码。\n4. 根据需求修改代码中的单元格引用（例如，A1，B1，C1）。\n5. 关闭VBA编辑器。\n6. 在Excel中，将要发送邮件的邮箱地址、主题和正文分别填入相应的单元格中。\n7. 按下ALT + F8，选择“SendEmail”并点击“运行”按钮。\n\n这样，Excel将会自动发送一封包含指定收件人、主题和正文的邮件。请注意，此代码将使用默认的邮件客户端（例如Outlook）来发送邮件。如果你使用的是其他邮件客户端，你需要进行相应的调整。