Thread: Sending to Multiple Email Addresses From Cells

I found that the fiorst example on this link was the closest http://www.rondebruin.nl/mail/folder3/message.htm The only change I did was remove the ".Send" and change to ".Display" so I could edit the email prior to sending. This works great for heaps of emails that get sent one at a time. I want a group type email.

If I want to bring up ONE blank email with all the recipients in the "To" field. And the recipient email addresses were all contained in a range (Say E2:E30), what would I need to midify for the above code to work?

Thanks again - I'm nearly there

SOLVED - Thank you old chippy!

This works a treat. Here's the finished code. It's not tidy as it's a mish mash of bits but it works!!

Sub EmailGroup()

Dim cell As Range
Dim strto As String
For Each cell In ThisWorkbook.Sheets("Sheet1").Range("B2:B100")
If cell.Value Like "?*@?*.?*" Then
strto = strto & cell.Value & ";"
End If
Next cell
If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)

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

On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = strto
.Subject = "Enter subject here"
.Body = "" ' EMPTY FOR NOW
'USE THIS FOR ENTERING NAMES OF RECIPIENTS IN BODY TEXT "here"
'"Dear" & Cells(cell.Row, "A").Value _
& vbNewLine & vbNewLine & _
"Enter body text " & _
"here"
'You can add files also like this
'.Attachments.Add ("C:\test.txt")
'.Send 'Or use Display
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub

Is there a way to make that work with gmail?