Сохранение вложений в Outlook [WinXP]
rda © (2007-02-14 11:47:00)
Как с помощю OLE организовать цикл по непрочитанным сообщениям
в папке входящие и сохранять присоединенные файлы
prisoner849 (2007-02-17 14:21:00) [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
переложить оное на Делфи особого труда не составит.
Наверх 
ЧАТ |
Орешник |
|
