Друзья, нашел вот такой код для этой же цели
Тоже хорошо и быстро работает, но...
Можете подсказать как модифицировать этот код?
Много писем от одного отправителя. Вложение с одним и тем же называнием. Но тема письма всегда разная.
Как можно этот скрипт изменить так что бы он сохранял вложения, переименовывая его по называнию темы письма?
Очень выручите от обезьяньего труда. Спасибо!
Код |
---|
Dim myobj As Object Dim att As Attachment For Each myobj In Application.ActiveExplorer.Selection If myobj.Class = olMail Then For Each att In myobj.Attachments att.SaveAsFile "D:\Attachments\" + att.FileName Next End If Next |
Можете подсказать как модифицировать этот код?
Много писем от одного отправителя. Вложение с одним и тем же называнием. Но тема письма всегда разная.
Как можно этот скрипт изменить так что бы он сохранял вложения, переименовывая его по называнию темы письма?
Очень выручите от обезьяньего труда. Спасибо!