Текущий архив: 2007.10.14;
Скачать: CL | DM;
Вниз
Сохранение вложений в 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
переложить оное на Делфи особого труда не составит.
Страницы: 1 вся ветка
Текущий архив: 2007.10.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c