E-mail and Excel

[Want2Learn]

In Excel I want to select one or more cells that have e-
mail addresses in them and crate a new e-mail using the
selected addresses as the e-mail addresses. Can it be
done?

 

[Frank Kabel]

Hi
see:
http://www.rondebruin.nl/sendmail.htm

 

[Want2Learn]

I tried that and it doesn't seem to have the option I
want....

 

[Ron de Bruin]

Hi Want2Learn

With a macro you can do this
Do you want to use SendMail code or the Outlook object model ?
What do you want to send?

 

[Want2Learn]

Thanks for responding....

I want to create new Outlook e-mails using addresses
stored in a spreadsheet...

Make sense?

W2L.

-----Original Message-----
Hi Want2Learn

With a macro you can do this
Do you want to use SendMail code or the Outlook object model ?
What do you want to send?



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


"Want2Learn" <[email protected]> wrote

in message news:[email protected]...

 

[Ron de Bruin]

Try this

Sub Mail_test()
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String
Dim cell As Range
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

For Each cell In Selection
If cell.Value Like "*@*" Then
strto = strto & cell.Value & ";"
End If
Next
If strto = "" Then GoTo Eind
strto = Left(strto, Len(strto) - 1)

With OutMail
.To = strto
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Display
End With
Eind:
Set OutMail = Nothing
Set OutApp = Nothing
End Sub