Отправляем Excel-файл почтой

Эту задачу можно выполнить с помощью автоматической отправки писем по электронной почте. В примере кода показано, как активная рабочая книга отправляется на адрес электронной почты в качестве вложения. С помощью команды Sendmail, вы можете отправлять простые сообщения электронной почты непосредственно из Excel. Тем не менее, команда SendMail не столь надежна, как автоматизация Outlook. SendMail не позволяет прикреплять файлы или использовать CC и BCC поля в электронной почте.

Поскольку этот код запускается из Excel, необходимо установить ссылку на библиотеку объектов Microsoft Outlook. Мы можем установить ссылку, открыв редактор Visual Basic в Excel и выбрав Tools➜References. Прокрутите вниз, пока не найдете запись Microsoft Outlook XX Object Library, где XX— это ваша версия Outlook. Установите флажок рядом с записью.

1. Шаг 1 сначала объявляет две переменные. OLApp — это объектная переменная, которая предоставляет приложение Outlook. OLMail — это объектная переменная, которая содержит почтовый элемент. 

2. Шаг 2 активирует Outlook и начинает новый сеанс. Обратите внимание, что мы используем OLApp.Session. Войдите в систему, чтобы войти в текущий сеанс MAPI (Messaging Programming Interface Application) с учетными данными по умолчанию. Он также создает почтовое сообщение. Это эквивалентно выбору кнопки «Новое сообщение» в Outlook. 

3. Шаг 3 строит профиль нашего почтового отправления. Это включает в себя CC, BCC получателей, предмет, тему и вложение. Этот шаг отмечает, что получатели вводятся в кавычках, чтобы ввести несколько получателей, добавьте их через точку с запятой. Стандартным синтаксисом для вложения является Attachments.Add «Путь к файлу». В этом коде, мы указываем путь к файлу текущей рабочей книги с помощью синтаксиса ActiveWorkbook.Fullname. Это устанавливает текущую рабочую книгу как вложение для сообщения электронной почты. Когда сообщение было сформировано, мы используем метод .Display для просмотра электронной почты. Мы можем заменить .Display на .Send  - это позволит автоматически отправлять письмо без просмотра. 

4. Последним шагом мы очищаем память объектов, присвоенных нашим переменным. Это снижает вероятность каких-либо проблем, вызванных объектами, которые могут остаться открытыми в памяти. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.