Home |
Search |
Today's Posts |
#1
|
|||
|
|||
send tomail all the context
I miss something, I need to send by mail all the context of the folder
something like "z:\transmission\*.*" but it doesn´t work like this, do I always have to write file by file? -- MG |
#2
|
|||
|
|||
Try this for the files in the folder C:\Data
Sub Mail_workbooks_Outlook() Dim FNames As String Dim MyPath As String Dim SaveDriveDir As String Dim OutApp As Object Dim OutMail As Object SaveDriveDir = CurDir MyPath = "C:\Data" '<----- Change this path ChDrive MyPath ChDir MyPath Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = " .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = "Hi there" FNames = Dir("*.xls") Do While FNames < "" .Attachments.Add MyPath & "\" & FNames FNames = Dir() Loop .display 'or use .Send End With Set OutMail = Nothing Set OutApp = Nothing ChDrive SaveDriveDir ChDir SaveDriveDir End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "mariagloria" wrote in message ... I miss something, I need to send by mail all the context of the folder something like "z:\transmission\*.*" but it doesn´t work like this, do I always have to write file by file? -- MG |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel should not delete document after trying to send email | Excel Discussion (Misc queries) | |||
How do I send an Excel file that isn't read-only? | Excel Discussion (Misc queries) | |||
Send to Outlook 2000 not Outlook Express | Excel Discussion (Misc queries) | |||
Cannot "Send to -> mail recipient (as attachment)" | Excel Discussion (Misc queries) | |||
Excel Send To function problem | Excel Discussion (Misc queries) |