Sending Email

[TShelt]

Hey guys, I got this to work for a single email address. Could someone help me out on the code for sending to multiple email addresses. This is my code so far, but i want it to multiple email addresses. Thanks so much

Please Login or Register  to view this content.

[Kyle123]

just but them like this

Please Login or Register  to view this content.

[TShelt]

Thanks, knew it was something simple, just couldnt find it.

[SDBoca]

How do you attach a file to the outgoing email? Thanks, Sharon

[Kyle123]

like this:

Please Login or Register  to view this content.

[SDBoca]

Thanks for the information. Perhaps I'm not doing something correct. The email goes but without the attachment. All the code is listed below. We use Outlook 2003.

Sharon


Sub EmailApps()
Dim OutApp As Object
Dim OutMail As Object

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

On Error Resume Next
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "TEST - Emailing a file"
.Body = "This is a test email"
.Attachments.Add "C:\My Documents\stores.txt"
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

[SDBoca]

Oops! User error! It works! Sharon