SendTo CSV file

[Guest]

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: (e-mail address removed), (e-mail address removed)

Thanks so much for the help.

 

[Ron de Bruin]

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 = "(e-mail address removed), (e-mail address removed)"
.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