Нужна помощь в настройке скрипта или поиска иной проблемы в сохранении вложений в папку на компьютере.
Бюджет 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

   End Sub