automatically save attachments

К сожалению, почтовый клиент MS Outlook нельзя через правила заставить сохранять вложения. Поэтому необходимо прописать через VBA следующий скрипт и назначить его правилу.
 
 
Public Sub saveAttachtoDisk (itm As Outlook.MailItem)
   Dim dateFormat
            dateFormat = Format(Now, "yyyy-mm-dd HH-mm-ss")
   Dim objAtt As Outlook.Attachment
   Dim saveFolder As String
saveFolder = "C:\Temp\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub 

Другие записиrecent posts

  •  
  • Регистрация
  •  
  •  
    Обратите внимание, что поля, с символом * обязательны к заполнению.


    Максимальный размер: 120 Кб.

     

DESiNet.Ru

сайты дизайн кодинг верстка хостинг
системное администрирование
сопровождение продвижение
поддержка баннеры визитки
ремонт компьютеров
аутсорсинг