Email with Attachment using Excel VBA

One of my friend ask me, is it possible to send multiple emails with attachments using Excel VBA. I said YES, everything is possible. Below is just small code that can help you to do it.

Note: Before you apply following code you need to add reference of OutLook Private Sub SendEmailWithAttachment() Dim outlookApp As Outlook.Application Dim eMail As Outlook.MailItem Dim sourceFile, toEmail as String Set outlookApp = New Outlook.Application Set eMail = outlookApp.CreateItem(olMailItem) For i = 2 To 10 ' this is a loop where you will fatch the data from excel rows sourceFile = Cells(i, 2) ' getting path of the file you added in your sheet eMail.Attachments.Add sourceFile toEmail = Cells(i, 1) & ";" eMail.To = toEmail eMail.Subject = "Add your Fix Subject Line or you can get data from the excel" eMail.Body = "Hi," & vbNewLine & "This is your body area" & vbNewLine & "Thanks" eMail.Send Next i End Sub

Happy Coding :)