Send Multiple Emails From Excel | Send Bulk Mail from Excel Sheet with Attachment in One Click

Send Multiple Emails From Excel | Send Bulk Mail from Excel Sheet with Attachment in One Click

Download VBA Code Notepad file - Click here

Download practic File - Clickhere

Copy Code here

Sub Send_email_fromexcel()
Dim edress As String
Dim subj As String
Dim message As String
Dim filename As String
Dim outlookapp As Object
Dim outlookmailitem As Object
Dim myAttachments As Object
Dim path As String
Dim lastrow As Integer
Dim attachment As String
Dim x As Integer
 x = 2
Do While Sheet1.Cells(x, 1) <> ""
    Set outlookapp = CreateObject("Outlook.Application")
    Set outlookmailitem = outlookapp.createitem(0)
    Set myAttachments = outlookmailitem.Attachments
    path = "C:\Users\Barb\Documents\statements\"
    edress = Sheet1.Cells(x, 1)
      
    subj = Sheet1.Cells(x, 2)
    filename = Sheet1.Cells(x, 3)
    attachment = path + filename
    
        outlookmailitem.To = edress
        outlookmailitem.cc = ""
        outlookmailitem.bcc = ""
        outlookmailitem.Subject = subj
        outlookmailitem.body = "Please find your statement attached" & vbCrLf & "Best Regards"
          
        myAttachments.Add (attachment)
        outlookmailitem.display
        outlookmailitem.send
            
        lastrow = lastrow + 1
        edress = ""
    x = x + 1
Loop
Set outlookapp = Nothing
Set outlookmailitem = Nothing
End Sub

Download VBA Code Notepad file - Click here

Download practic File - Clickhere