excel 批量发送电子邮件代码

Sub sendmail()

On Error Resume Next
Dim rowCount, endRowNo

Dim objOutlook As New Outlook.Application
Dim objMail As MailItem

endRowNo = Cells(1, 1).CurrentRegion.Rows.Count

Set objO = New Outlook.Application


For rowCount = 2 To endRowNo

   Set objMail = objOutlook.CreateItem(olMailItem)

   With objMail
   
      .To = Cells(rowCount, 1)
     .Subject = Cells(rowCount, 2)
     .Body = Cells(rowCount, 3)

      fj = "'" + Cells(rowCount, 4) + "'"
     .Display
     .Attachments.Add fj
    If Sheets("Sheet1").Cells(rowCount, 4).Value <> "" Then
        fj = "'" + Cells(rowCount, 4) + "'"
        .Display
        .Attachments.Add Sheets("Sheet1").Cells(rowCount, 4).Value