I've done some research and found this code:
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo cleanup
For Each cell In Sheets("email").Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value) = "yes" Then
Set OutMail = OutApp.CreateItem(olMailItem)
.To = cell.Value
.Subject = "hello"
.Body = "Attention:" & cell.Offset(0, -1).Value & vbNewLine & vbNewLine & _
"Please contact me via email asap"
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
but this isn't exactly what I'm looking for. This code opens an individual message for each recipient that contains a yes beside the email. All I need is a code that emails all recipients in the list (column b) using one message rather than an individual message for each recipient. I don't need it to display a subject or have a greeting as I can add that once the message is displayed.
Thanks for the help in advance.