Доброе время суток.

Помогите пожалуйста.

Есть небольшой код отправки писем с вложением

Dim OutApp As Object
Dim OutMail As Object


Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "andrey@mail.ru"
.cc = ""
.BCC = ""
.Subject = "Invoice"
.Body = ""
.Attachments.Add ("C:\Databases\31.07.2009\941-25255.xls")


Что дописать, чтобы добавить в письмо все файлы из папки ?

Спасибо

а поподробнее можно?

Antonariy,


ТАК?


Sub gomailgo()
Dim OutApp As Object
Dim OutMail As Object
Dim fso As Object
Dim f As Variant

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
Set fso = CreateObject("Scripting.FilesystemObject")

With OutMail
.To = "andrey@mail.ru"
.cc = ""
.BCC = ""
.Subject = "Invoice"
.Body = ""

For Each f In fso.GetFolder("C:\Databases\").Files
.Attachments.Add f.Path
Next


End With
End Sub

Спасибо