Как разослать письма с добавлением адресов в наш список контактов

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

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

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

2. Шаг 2 указывает привязывает к переменной MyContacts диапазон ячеек, в которых находится наши адреса. Этот диапазон ячеек макрос перебирает для добавления адресов электронной почты в наш список контактов. 

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

4. Шаг 4 создает профиль нашего почтового отправления. Мы перебираем каждую ячейку в диапазоне MyContacts и добавляем содержимое (адреса электронной почты) в BCC. Мы используем свойство BCC вместо To или CC, чтобы каждый получатель получал электронную почту так, как будто оно было отправлено только ему. Наши получатели не смогут увидеть ни одного из других адресов электронной почты, поскольку они были отправлены с помощью BCC (Blind Courtesy Copy). Обратите внимание, макрос использует метод .Display, который открывает электронное письмо для просмотра. Мы можем замените .Display на .Send для автоматического запуска электронной почты без проверки. 

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

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

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