Наталья предложила заставить собирать отчёты Outlook автоматически.
- Первый раз слышу о такой настройке Outlook, которая бы позволяла сохранять файлы в папку автоматически - заявил Иван Сергеевич.
- Такой настройки и нет в Outlook, её нужно создать написав макрос - ответила Наталья - для этого откроем Outlook и нажмём сочетание клавиш Alt + F11.
Затем Наталья двойным кликом по элементу "ThisOutlookSession" открыла окно редактора кода.
- Сначала добавим пару констант нашего маленького макроса.
Private Const reportNamePrefix As String = "ДДС-"
Private Const reportStorePath As String = "D:\Мои документы\ДДС\"
Теперь создадим метод срабатывающий на каждое новое сообщение:
Private Sub Application_NewMail()
End Sub
Метод будет проходить по всем сообщениям и если сообщение не прочитано, то перебирает все вложения, проверяя каждое на наличие префикса в имени файла. Если префикс совпадает, то сохраняем файл в папку, имя которой дата в формате ГГГГ.ММ.ДД, так удобнее будет сортировать папки по имени.
- Теперь можно написать метод, который бы открывал каждый файл с отчётом, проверял его и выдёргивал цифры в сводную таблицу - с довольным видом сказала Наталья.
- Здорово - качая головой, удивлённо сказал Иван Сергеевич.
