How to send bulk emails using Excel Macro?


If you want to send bulk emails using a simple excel program then you are at right post. We can send emails using Outlook, SMTP and infact any of the mail serverice providers like gmail, yahoo etc. 

In this post you will learn how to use outlook for sending bulk emails using a simple excel macro.
1. Open VB editor in excel.

2. Put email ids, subject and message in a sheet for which you wish to trigger emails.


3. Create a module and paste this code.

Sub SendMail()

Dim olApp As Outlook.Application

Dim olMail As Outlook.MailItem

Set olApp = New Outlook.Application

For i = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

    Set olMail = olApp.CreateItem(olMailItem)

   

    With olMail

        .To = Cells(i, 1).Value

        .Subject = Cells(i, 2).Value

        .Body = Cells(i, 3).Value

        .Display

        ''.Send

    End With

   

    Set olMail = Nothing

Next

Set olApp = Nothing

End Sub

And that's All...

You can watch this video for complete tutorial.





Labels: , , , ,