Автоматизация отправки писем один-к-одному.

Описание

Задание:
Есть папка с pdf-файлами. Файлы это счета на оплату. Надо разослать счета потребителям.
Название файла содержит номер. Есть справочник (на листе Excel) соответствия этого номера адресу электронной почты. Количество потребителей не больше 200, адреса в нём могут меняться, но очень редко.
Реализация на VBA в приоритете.
Нужен просто макрос в модуле книги, который запускается. Отправляет письма с вложениями (берет из папки счёт на оплату) по списку (на листе) и выводит на лист лог содержащий информацию о том, какие счета отправлены, а какие остались в папке не отправленными. Можно ещё те счета, которые отправленные переложить во вложенную папку (Отправлено), то есть оставить в папке только те счета, которые надо отправить руками.

Презентация проекта