Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
2-1190037815
F@T@L_Err0r
2007-09-17 18:03
2007.10.14
Регулятор громкости


15-1189751075
tesseract
2007-09-14 10:24
2007.10.14
Ещё один бастион взят.


2-1190047625
Johnnnn
2007-09-17 20:47
2007.10.14
TidPop3


3-1180935795
ambhtr
2007-06-04 09:43
2007.10.14
Удаление дубликатов из таблиц


2-1190211725
azl
2007-09-19 18:22
2007.10.14
Как программно добавить новый пункт меню в PopupMenu?