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.

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.