Home |
Search |
Today's Posts |
#1
|
|||
|
|||
send to mail all the context
I need to send by mail all the context of a folder
something like "z:\transmission\*.*" but it doesn´t work like this. I nned to do this becouse not always are the sema names for the files, they can change, but I always have to send them no matters the name they have. |
#2
|
|||
|
|||
Try this for thr 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 need to send by mail all the context of a folder something like "z:\transmission\*.*" but it doesn´t work like this. I nned to do this becouse not always are the sema names for the files, they can change, but I always have to send them no matters the name they have. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
send tomail all the context | Excel Discussion (Misc queries) | |||
mail merge from excel | Excel Discussion (Misc queries) | |||
Extract Data for Mail Merge | Excel Discussion (Misc queries) | |||
Cannot "Send to -> mail recipient (as attachment)" | Excel Discussion (Misc queries) | |||
Excel Send To function problem | Excel Discussion (Misc queries) |