отправка файлов отдельным вложением

[yyyy]

Есть папка. в ней файлы. Надо каждый файл отправить отдельным вложением. Как можно последовательно взять из папки имя каждого файла?

Спасибо.

[yyyy]

Сорри Сама нашла Всем спасибо

Dim oFso As New FileSystemObject
Dim oFolder As Folder
Dim oFile As File

Dim sOldName As String
Dim sNewName As String
Dim iCtr As Long
Dim iDotPosition As Integer
Dim sWithoutExt As String
Dim sFolderName As String
sFolderName = FolderName

FolderName = "d:\b\sent\"

Set oFolder = oFso.GetFolder(FolderName)
For Each oFile In oFolder.Files
sOldName = sFolderName & oFile.Name
MsgBox sOldName
Next
Set oFile = Nothing
Set oFolder = Nothing
Set oFso = Nothing

[Luda_NSK]

а вы куда и как отправляете файлы?
я нашла как отправить текст с пмощью outlook,
а как отправить файл не могу найти.
Может быть вы подскажите?