Имеется код, который сохраняет вложения по условию в Outlook 2016.

Хотелось бы внести в него два условия, но больших знаний в этом нет, поэтому прошу помощи.

Первое условие.

Сделать автоматическое сохранение вложений. Сейчас, для того, чтобы осуществить сохранение нужно сделать определенные манипуляции, зайти в правило и применить его к определенной папке и только после этого идет сохранение в папку: “F:\Главный энергетик\Планерка\2022\Сохранение”.

Второе условие.

Правило создано так, чтобы сохранить ежедневные отчеты с темой письма "Энергобаланс" с двумя файлами в формате xls:

1. Расход энергоресурсов за 2022г.

2. Анализ выработки пара в 22

Нужно чтобы эти два файла сохранялись под другими именами:

1. Э 2022

2. Пар 2022

и обновляли уже имеющиеся в папке “F:\Главный энергетик\Планерка\2022\Сохранение” файлы.

Код.

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 = "F:\Главный энергетик\Планерка\2022\Сохранение"

   'перебираем все вложения в письме

   For each objAtt in itm.Attachments

   'сохраняем вложение в папку под именем: дата письма + название файла вложения

   objAtt.SaveAsFile saveFolder & "\" & sDateMail & "_" & objAtt.FileName

   'очищаем переменную с вложением

   Set objAtt = Nothing

   Next objAtt

   End Sub

Бюджет 500 руб.