Excel 自动发送邮件：使用 VBA 根据单元格地址发送指定内容

要根据Excel单元格中的邮件地址自动发送指定内容的邮件，您可以使用VBA编程来实现。下面是一个简单的示例代码：\n\nvba\nSub 发送邮件()\n Dim OutlookApp As Object\n Dim OutlookMail As Object\n Dim EmailAddress As String\n Dim EmailSubject As String\n Dim EmailBody As String\n \n ' 创建Outlook应用程序对象\n Set OutlookApp = CreateObject("Outlook.Application")\n \n ' 遍历每个单元格中的邮件地址\n For Each cel In Range("A1:A10") ' 假设邮件地址在A1:A10范围内\n EmailAddress = cel.Value\n EmailSubject = "邮件主题" ' 替换为您要发送的邮件主题\n EmailBody = "邮件内容" ' 替换为您要发送的邮件内容\n \n ' 创建新邮件\n Set OutlookMail = OutlookApp.CreateItem(0)\n \n ' 设置收件人、主题和内容\n With OutlookMail\n .To = EmailAddress\n .Subject = EmailSubject\n .Body = EmailBody\n .Send ' 发送邮件\n End With\n \n ' 释放对象\n Set OutlookMail = Nothing\n Next cel\n \n ' 释放对象\n Set OutlookApp = Nothing\nEnd Sub\n\n\n请注意，在运行此代码之前，您需要在Excel中添加对Outlook的引用。您可以在VBA编辑器的"工具"菜单中选择"引用"，然后勾选"Microsoft Outlook XX.X Object Library"。请确保选择的版本与您安装的Outlook版本相匹配。\n\n此代码将遍历A1:A10范围内的单元格，将每个单元格中的邮件地址作为收件人，指定的邮件主题和内容作为邮件的主题和内容，然后使用Outlook应用程序发送邮件。您可以根据您的需求修改代码中的单元格范围、邮件主题和内容等部分。