ник: Grinders80
Пожалуйста подскажите, возможно ли каким либо образом вытащить в ACCESS 2007 вложение из письма Outlook. А то при создании связанной таблици с папкой Outlook, в таблице показывает только что вложение имеется.
Помогите или подскажите пожалуйста (пока еще плохо разбираюсь).
В инете и на форуме уже все пересмотрел.
Нашел в инете следующее (немогу с этим рзобраться):
Вытаскивает вложение из сообщения с заданной темой и сохраняет его как файл с заданным именем
MySubject = "Обновление данных" 'Установка заданной темы
MyFilePath = "C:\Temp\new.mdb" 'Установка названия файла
Call GetMessage(MySubject, MyFilePath)
Function GetMessage(ByVal FindSubject As String, ByVal MyFilePath As String)
Dim MySubject As String
Dim myOlApp As Object
Dim myNameSpace As Object
Dim MyFolder As Object
Dim myItem As Object
Dim myAttachments As Object
Dim i As Long, x As Long
Dim OlNotRunning As Boolean
On Error Resume Next
Set myOlApp = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
OlNotRunning = True
Err.Clear
Set myOlApp = CreateObject("Outlook.Application")
End If
'=====================================================
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set MyFolder = myNameSpace.GetDefaultFolder(6)
x = MyFolder.Items.count
With MyFolder
For i = 1 To x
Set myItem = .Items(i)
MySubject = myItem.Subject
If MySubject = FindSubject Then
Set myAttachments = myItem.Attachments
'Сохранение с заданным именем файла вложения
myAttachments.Item(1).SaveAsFile MyFilePath
'...или c исходным именем вложения:
'myAttachments.Item(1).SaveAsFile myAttachments.Item(1).DisplayName
myItem.Delete
Exit For
End If
Next i
End With
Помогите начинающему советом.
Заранее всем спасибо!!!