ExcelBanter - email to multiple

hi geebee

see
http://www.rondebruin.nl/mail/tips2.htm

--

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

"geebee" (noSPAMs) wrote in message
...
hi,

I have code to send an email to one person, but I want to change this to
go
to many people, like the addresses I list. Is there a way to separate
email
addresses by commas or something?

Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String
Dim strsub As String, strbody As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strto = "
strcc = ""
strbcc = ""
strsub = Subject

Thanks in advance,
geebee