Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
FileSendTo in 2007 | Excel Discussion (Misc queries) | |||
File, SendTo, MailRecipient code | Excel Programming | |||
Sendto | Excel Discussion (Misc queries) | |||
file/sendto/mailrecipient failure | Excel Discussion (Misc queries) | |||
i received a file that reads powerpoint document file file exten. | Excel Discussion (Misc queries) |