VBA to email a list of recipients

[MOB]

I've looked at Ron de Bruin's various options and they don't quite do what I need (I think).

I have a simple list on a spreadsheet like this;

Email address / Message
abc@gmail.com / Hello
def@gmail.com / Goodbye
...........and so on

I need some code that emails "hello" in the body of the email to abc, then "goodbye" to def and so on

I don't think Ron's code examples do exactly what I need, and I'm not good enough to be able to create something myself

Does anyone have any suggestions that would work?

TIA

 

[jkpieterse]

What exactly have you tried so far?

 

[MOB]

This is the closest I could get;

Sub Test1()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Office 2000-2016
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo cleanup
    For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
           LCase(Cells(cell.Row, "C").Value) = "yes" Then

            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "Reminder"
                .Body = "Dear " & Cells(cell.Row, "A").Value _
                      & vbNewLine & vbNewLine & _
                        "Please contact us to discuss bringing " & _
                        "your account up to date"
                'You can add files also like this
                '.Attachments.Add ("C:\test.txt")
                .Send  'Or use Display
            End With
            On Error GoTo 0
            Set OutMail = Nothing
        End If
    Next cell

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

I just want the body to be the message from the spreadsheet instead - I'm sure its simple, but not for me

 

[jkpieterse]

Adjust this part:

 .Body = "Dear " & Cells(cell.Row, "A").Value _
                      & vbNewLine & vbNewLine & _
                        "Please contact us to discuss bringing " & _
                        "your account up to date"

To this:

 .Body = Cells(cell.Row, "B").Value

 

[MOB]

Many thanks, got it working

 

[cwstudio2020]

I think this might be what you need: How to Quickly Distribute Report Files to Each Recipient Individually