VBA code to send mass email

I have a data of stores and need to send a mass email to persons and need to customize each mail before sending like body of email need to filter by individual person.

I have a simple code. but need to customize it

Code is Sub sendmail() Dim olApp As Outlook.Application Dim olMail As Outlook.MailItem

For i = 2 To 4 Set olApp = New Outlook.Application 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 Set olApp = Nothing Next

Recent Questions...