Sending to groups in outlook
 

I know how to send an email via an excel macro but is there a way fo
the macro to go out into my outlook and grab a group and send th
email?

I guess what I am asking is does anyone have an example of a simpl
email send that uses outlooks contact book

--
sungen9
-----------------------------------------------------------------------
sungen99's Profile: http://www.excelforum.com/member.php...nfo&userid=914
View this thread: http://www.excelforum.com/showthread.php?threadid=54253

Sending to groups in outlook
 

Try this

More info here
http://www.rondebruin.nl/sendmail.htm

Sub Mail_small_Text_Outlook()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With OutMail
.Recipients.Add ("yourlist")
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = strbody
.Send 'or use .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


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


"sungen99" wrote in message
...

I know how to send an email via an excel macro but is there a way for
the macro to go out into my outlook and grab a group and send the
email?

I guess what I am asking is does anyone have an example of a simple
email send that uses outlooks contact book?


--
sungen99
------------------------------------------------------------------------
sungen99's Profile: http://www.excelforum.com/member.php...fo&userid=9144
View this thread: http://www.excelforum.com/showthread...hreadid=542536