Всем день добрый!
Кто работал с Outlook, подскажите пожалуйста.
На просторах интернета найден нижеприложенный код,
который читает письма во входящих и показывает для примера свойства писем.
В том числе и наименования вложений. (строка OL_Attachment.FileName).
Все работает прекрасно, но...
Как мне получить сам файл? Что бы его залить, предположим INSERT'ом, в таблицу.
Сохранить файл на диск, а потом подцепить его в таблицу, можно, но как-то не красиво. ))
Какие методы и свойтва у Outlook.Application я проглядел?
Спасибо.

Function ListOLInbox()
'Список писем в папке "входящие"
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderMail As Outlook.MAPIFolder
Dim OL_ItemMail As Outlook.MailItem
Dim OL_Attachment As Outlook.Attachment
' получаем объект Outlook
Set OL_App = CreateObject("Outlook.Application")
'получаем Namespace
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
' получаем ссылку на папку Входящие
Set OL_FolderMail = OL_NameSpace.GetDefaultFolder(olFolderInbox)
' перебираем все письма в папке
For Each OL_ItemMail In OL_FolderMail.Items
With OL_ItemMail
'выводим тему
  Debug.Print "Tema: " & .Subject
' если есть вложения выводим названия вложенного файла
  If .Attachments.Count > 0 Then
   Debug.Print "Вложения: "
     For Each OL_Attachment In .Attachments
        Debug.Print OL_Attachment.FileName
     Next
  End If
End With
Next
End Function

http://www.sql.ru/forum/1279914/vlozheniya-outlook