Как отправить один лист файла вложением

Этот пример демонстрирует, как можно отправить вложением один конкретный рабочий лист данных, а не всю книгу. 

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

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

2. Шаг 2 копирует указанный диапазон и вставляет значения и форматы во временный файл Excel. Макрос затем сохраняет этот временный файл, задав путь к файлу и имя файла. 

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

4. Шаг 4 строит профиль почтового сообщения. Он включает в себя получателей, получателей копии, получателей скрытой копии, тему, тело и вложения. Этот шаг отмечает, что получатели вводятся в кавычках, получателей нужно разделять точкой с запятой. В этом коде, мы указываем наш новый временный путь к файлу Excel в качестве вложения для электронной почты. Когда сообщение построено, мы используем метод .Display для просмотра электронной почты. Мы можем заменить .Display на .Send для автоматического запуска электронной почты без просмотра.

5. Чтобы не оставлять временные файлы, после отправки электронного письма Шаг 5 удаляет временный файл Excel, который мы создали. 

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

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

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