Сохранение вложений в Outlook

← →
rda (2007-02-14 11:47) [0]

Как с помощю OLE организовать цикл по непрочитанным сообщениям в папке входящие и сохранять присоединенные файлы

← →
prisoner849 © (2007-02-17 14:21) [1]

хоть форум и по Делфи, но на VBA делаю так (кусок):
InChosen = InPath & ChosenFolder ArcInChosen = ArcInPath & ChosenFolder DateFolder = Format(Date, "yyyymmdd") & "\" "имя папки ArcInChosenDate = ArcInChosen & DateFolder "проверяем наличие папки-приемника, и если ее нет, то создаем Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(InChosen) = False Then fs.CreateFolder (InChosen) "а также проверяем наличие архивной папки входящих посылок If fs.FolderExists(ArcInChosen) = False Then fs.CreateFolder (ArcInChosen) "и наличие папки с датой в имени If fs.FolderExists(ArcInChosenDate) = False Then fs.CreateFolder (ArcInChosenDate) "сохраняем вложения в папку-приемник и в архивную папку входящих посылок Set atts = maItem.Attachments If atts.Count <> 0 Then For Each att In atts If Not fs.FileExists(InChosen & att.FileName) Then att.SaveAsFile InChosen & att.FileName Else att.SaveAsFile InChosen & AddDateTimeToFileName(att.FileName) End If If Not fs.FileExists(ArcInChosenDate & att.FileName) Then att.SaveAsFile ArcInChosenDate & att.FileName Else att.SaveAsFile ArcInChosenDate & AddDateTimeToFileName(att.FileName) End If Next att MsgBox atts.Count & " файл(а,ов) выгружены в:" & vbCrLf & vbCrLf & _ """ & InChosen & """ & vbCrLf & vbCrLf & _ """ & ArcInChosen & """ _ , vbOKOnly + vbInformation, App Else MsgBox "Вложения отсутствуют", vbOKOnly + vbExclamation, App End If

переложить оное на Делфи особого труда не составит.

Сохранение вложений в Outlook Найти похожие ветки