Excel 自动发送邮件：根据单元格地址发送所在行内容

要在Excel中根据单元格中的邮件地址自动发送所在行的内容，您可以使用以下步骤：\n\n1. 打开Excel文件并选择包含邮件地址的单元格所在的工作表。\n2. 在工具栏中选择“开发人员”选项卡，如果没有显示，请右键单击工具栏并选择“自定义工具栏”，然后选择“开发人员”选项卡。\n3. 在“开发人员”选项卡中，点击“Visual Basic”按钮打开Visual Basic for Applications（VBA）编辑器。\n4. 在VBA编辑器中，选择“插入”菜单，然后选择“模块”以创建新模块。\n5. 在新模块中，输入以下VBA代码：\n\nVBA\nSub SendEmails()\n Dim OutApp As Object\n Dim OutMail As Object\n Dim rng As Range\n Dim row As Range\n \n ' 创建邮件对象\n Set OutApp = CreateObject("Outlook.Application")\n Set OutMail = OutApp.CreateItem(0)\n \n ' 设置发送邮件的范围\n Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)\n \n ' 循环遍历每一行\n For Each row In rng.Rows\n ' 获取邮件地址和内容\n Recipient = row.Cells(1, "A").Value\n EmailContent = row.Cells(1, "B").Value\n \n ' 创建邮件\n Set OutMail = OutApp.CreateItem(0)\n With OutMail\n .To = Recipient\n .Subject = "自动发送邮件"\n .Body = EmailContent\n .Send\n End With\n \n ' 清除邮件对象\n Set OutMail = Nothing\n Next row\n \n ' 清除Outlook对象\n Set OutApp = Nothing\n \n ' 显示提示消息\n MsgBox "邮件发送完成。"\nEnd Sub\n\n\n6. 在代码中，根据您的实际情况进行调整。例如，如果邮件地址在列A中，内容在列B中，您需要将代码中的Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)更改为包含您的邮件地址的单元格范围。\n7. 保存并关闭VBA编辑器。\n8. 返回Excel工作表，选择要发送的邮件地址所在的单元格范围。\n9. 在“开发人员”选项卡中，点击“宏”按钮。在弹出的对话框中选择“SendEmails”宏，然后点击“运行”按钮。\n10. 程序将自动发送邮件给每个单元格中的邮件地址，并将该行的内容作为邮件的内容。\n\n请注意，此方法要求您的计算机上安装了Microsoft Outlook，并且Outlook处于活动状态。