求教，根据EXCEL表格内数据，使用功能VBA发送邮件

wmw-minh

求教：
针对附件，把B:H列的内容作为附件内容（含首行标题），按照A列的邮箱地址发送给收件人，同一个邮箱发送一封邮件，请指教下，谢谢。

supermouse24

以下内容是网址找到的，如有侵权，请告知后删除。
1.首先需要在VBA后台设置引用。
   a) Alt+F11
   b) 工具 → 引用 → 把 关于 Microsoft outlook 的相关选项勾上。
2.粘贴以下代码运行即可。

Sub email()

     '要能正确发送并需要对Microseft　Outlook进行有效配置
     On Error Resume Next
     Dim rowCount, endRowNo
     Dim objOutlook As New Outlook.Application
     Dim objMail As MailItem

     '取得当前工作表与Cells(1,1)相连的数据区行数
     endRowNo = Application.WorksheetFunction.CountIfs(Range("A:A"), "<>")

     '创建objOutlook为Outlook应用程序对象
     Set objOutlook = New Outlook.Application

     '开始循环发送电子邮件，比如从第二行开始，第一行是标题
     For rowCount = 2 To endRowNo

         Set objMail = objOutlook.CreateItem(olMailItem)  '创建objMail为一个邮件对象
               
           With objMail

              .To = Cells(rowCount, 1).Value  '设置收件人地址（从Excel表的第一列"邮件地址"字段中获得）
              .Subject = Cells(rowCount, 2).Value   '设置邮件主题（从Excel表的第二列"邮件主题"字段中获得）
              .HTMLBody = Cells(rowCount, 3).Value & Signature  '设置邮件内容（从Excel表的第三列"邮件内容"字段中获得）
'              .Attachments.Add Cells(rowCount, 4).Value  '设置附件（从Excel表的第四列"附件"字段中获得）
              .Send

          End With

              Set objMail = Nothing     '销毁objMail对象

       Next

          MsgBox ("邮件全部发送完成！")
          Set objOutlook = Nothing    '销毁objOutlook对象
End Sub