Ron,

Thanks!

That sets up the message in an Outlook message. I then have to click
on the Send manually. Can I
automate that final step? I wouldn't mind doing it manually if I
wanted to but all recipients in
the same message. However, since there will be about 150 addresses I'm
a little afraid
it will be treated as Spam by someone along the way.... or I might
even be fingered as a spammer
and get put on a blackhole list! If I can automate the send I could
put it in a loop and send out
15 messages each to 10 people. What do you think?

Ed

"Ron de Bruin" wrote in message
...
Hi Ed

Try this example

http://www.rondebruin.nl/mail/folder3/smallmessage.htm
If you use Example 2 you can add the text in a text file

Change the To line to .To = strto

And add the code below to the macro to send to all the addresses in
Column C in "Sheet1"

Dim cell As Range
Dim strto As String
For Each cell In ThisWorkbook.Sheets("Sheet1") _
.Columns("C").Cells.SpecialCells(xlCellTypeConstan ts)
If cell.Value Like "?*@?*.?*" Then
strto = strto & cell.Value & ";"
End If
Next
strto = Left(strto, Len(strto) - 1)



--
Regards Ron de Bruin
http://www.rondebruin.nl