Нужна помощь в настройке скрипта или поиска иной проблемы в сохранении вложений в папку на компьютере. Бюджет 500 руб. при условии поиска проблемы. Код который не хочет работать и не сохраняет вложения с приходящих писем от определенного адресата 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 = "C:\zzz\"
'перебираем все вложения в письме For Each objAtt In itm.Attachments 'сохраняем вложение в папку под именем: дата письма + название файла вложения objAtt.SaveAsFile saveFolder & "\" & sDateMail & "_" & objAtt.FileName 'очищаем переменную с вложением Set objAtt = Nothing Next objAtt