by Dim
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Добрый день. Подскажите пожалуйста. В оутлуке 16 зарегистрировано несколько почтовых ящиков. Необходимо с разных ящиков выгружать вложения в разные директории. Нашел скрипт для выгрузки вложений на жесткий диск,
Цитата: Public Sub saveAtt(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment 'переменная для работы с вложениями
Dim saveFolder As String 'переменная для пути к папке сохранения
Dim sDateMail As String 'переменная для даты письма
'сохраняем в правильном формате время создания сообщения
sDateMail = Format(itm.CreationTime, "hh-mm-ss_dd.mm.yyyy")
'задаем путь к папке сохранения
saveFolder = "d:\!3\2020\mail\"
For Each objAtt In itm.Attachments
'сохраняем вложение в папку под именем: дата письма + название файла вложения
objAtt.SaveAsFile saveFolder & "\" & sDateMail & "_" & objAtt.FileName
Set objAtt = Nothing
Next objAtt
End Sub |
применяю скрипт для выгрузки вложений с одного ящика, но как как сделать выгрузку с нескольких ящиков не догоняю, в оутлуке не могу создать несколько сценариев для работы со всеми ящиками. |
Всего записей: 122 | Зарегистр. 19-11-2002 | Отправлено: 01:10 15-12-2020 | Исправлено: by Dim, 01:12 15-12-2020 |
|
