Want to send email through VBA

[kmishra3]

Hello Dear,

I want to send multiple emails using VBA i have a data in which column "A" contains email IDs column "B" contains subject and column "C" contains text that needs to be displayed on the email body.

Please help me.

 

[ParamRay]

.
.


Try something like this:

Sub SendEmails()
  'Requires reference to MS
  'Outlook object library
  
  Dim lngLastRow As Long
  Dim lngCounter As Long
  Dim objOlApp As Outlook.Application
  Dim objMItem As Outlook.MailItem
  
  lngLastRow = Cells(Rows.Count, 2).End(xlUp).Row
  Set objOlApp = New Outlook.Application
  
  For lngCounter = 2 To lngLastRow
    Set objMItem = objOlApp.CreateItem(olMailItem)
    With objMItem
      .To = Cells(lngCounter, 2).Value
      .Subject = Cells(lngCounter, 3).Value
      .Body = Cells(lngCounter, 4).Value
      .Display
    End With
  Next lngCounter
    
  Set objMItem = Nothing
  Set objOlApp = Nothing
End Sub

 

[kmishra3]

Hi Gpeacock thanks a lot for your reply could you tell me from starting how this programming is working?

I will be very grateful to you.