SendTo CSV file
 

I would to create a simple macro that will send a CSV file to several emai
accounts.

CSV file name and path is : C:\temp\monthcal.CSV

email accounts: ,

Thanks so much for the help.

SendTo CSV file
 

Hi Dean

Example if you use Outlook
For more code visit my site

Sub Test_Outlook()
' Is working in Office 2000-2007
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
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"

On Error Resume Next
With OutMail
.To = , "
.CC = ""
.BCC = ""
.Attachments.Add "C:\temp\monthcal.CSV"
.Subject = "This is the Subject line"
.Body = strbody
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


--

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


"Dean P." <Dean wrote in message ...

I would to create a simple macro that will send a CSV file to several emai
accounts.

CSV file name and path is : C:\temp\monthcal.CSV

email accounts: ,

Thanks so much for the help.