VBA to send email

[Justin_M]

How would I turn this into looping through a list of email addresses contained in an excel worksheet? (same workbook)
How would I include the contents of a cell within the body of the email?

Public Sub CreateNewMessage()
Dim objMsg As MailItem
Dim Selection As Selection
Dim obj As Object

Set Selection = ActiveExplorer.Selection

For Each obj In Selection

Set objMsg = Application.CreateItem(olMailItem)

 With objMsg
  .To = obj.SenderEmailAddress
  .Subject = "This is the subject"
  .Categories = "Test"
  .Body = "My notes" & vbcrlf & vbcrlf & obj.Body 
  .Display
' use .Send to send it automatically 

End With
Set objMsg = Nothing

Next

End Sub

 

[Justin_M]

Also, each email address is going to populate specific information which needs to be saved in an .xls and added as an attachment in the email.

 

[Justin_M]

Sub SendEmail()

Dim Source As String
Dim EmailApp As Outlook.Application 'To refer to outlook application

Set EmailApp = New Outlook.Application 'To launch outlook application

Dim EmailItem As Outlook.MailItem 'To refer new outlook email

Set EmailItem = EmailApp.CreateItem(olMailItem) 'To launch new outlook email

EmailItem.To = "hi@gmail.com"
EmailItem.CC = "hi@gmail.com"
EmailItem.BCC = "hi@gmail.com"
EmailItem.Subject = "Test Email From Excel VBA"

EmailItem.HTMLBody = "Hi," & vbNewLine & vbNewLine & "This is an email from Excel" & _
                     vbNewLine & vbNewLine & _
                     "Regards," & vbNewLine & _
                     "VBA Coder" 'VbNewLine is the VBA Constant to insert a new line

Source = ThisWorkbook.FullName
EmailItem.Attachments.Add Source

'EmailItem.Send
EmailItem.Display


End Sub