Access 2007
Долго искал, но поиски не дали результатов.
В БД есть таблица с полями необходимыми для отправки письма, в том числе и поле "ВЛОЖЕНИЕ" (может быть несколько файлов)
после сохранения записи одной функцией вложенные файлы сохраняются на диск
Второй функцией формируется письмо и цепляется к нему файл
Так вот у меня получается подцепить только один файл (с циклами у меня туго)
Как подправить код чтобы цеплялись все ранее сохраненные файлы?
А в идеале хотелось бы обойти сохранение на диск и брать файлы прямо из поля "вложение"

Надеюсь я четко изложил свой вопрос.
Код:

Public Function mail()
Dim olApp As Outlook.Application
Dim outMail As Outlook.MailItem
Dim inNameSpace As Outlook.NameSpace
Dim InFolder As Outlook.MAPIFolder
Dim strS As String, strB As String
'начало определения файла
Dim path
Dim fil
Dim filp
path = "C:\SedMO\TEMP\OutPut\files\"
fil = Dir(path)
filp = path & fil
'конец определения файла
Set olApp = New Outlook.Application
Set inNameSpace = olApp.GetNamespace("MAPI")
Set InFolder = inNameSpace.GetDefaultFolder(olFolderInbox)
strS = Forms!frm_mail!resipient_mail
If strS <> "" Then GoSub Add_Mail
Exit Function
Add_Mail:
Set outMail = olApp.CreateItem(olMailItem)
With outMail
.Subject = Forms!frm_mail!topic
.Body = Forms!frm_mail!content
.Recipients.Add strS
If fil = "" Then GoTo f
.Attachments.Add filp = filp  
f:
.Send
End With
Return
End Function

http://www.sql.ru/forum/1092455/otpravka-attachments-s-otnositelno-neogranichennym-kolichestvom-faylov