Выберите отдельный список адресов электронной почты из Excel и отправьте электронное письмо через макрос

У меня есть таблица Excel со многими идентификаторами электронной почты (также дубликаты). Нужен макрос, который может выбирать отдельные идентификаторы электронной почты из списка и отправлять электронную почту всем им в одном письме. Кроме того, тема письма должна содержать дату, например отчет о выпуске X датированный DD-MMM. Тело письма должно копировать диапазон ячеек из того же листа Excel. Может кто-нибудь, пожалуйста, помогите мне с макросом.


person user3800604    schedule 03.07.2014    source источник


Ответы (1)


Если у вас установлен клиент Outlook - взгляните на этот http://www.rondebruin.nl/win/s1/outlook/bmail2.htm. Похоже, что это почти готовый ответ, хотя вам все еще нужно немного вникнуть в него и настроить параметры почты в соответствии с вашим случаем.

Этот код в основном состоит из двух основных частей:
- основная процедура Mail_Selection_Range_Outlook_Body, которая устанавливает экземпляр приложения Outlook, создает электронное письмо, заполняет параметры (кому, cc, тема, тело ...) и отправляет электронное письмо
- служебная функция RangetoHTML, вызываемая основной процедурой, которая публикует диапазон данных Excel для отправки в HTML. Результат присваивается свойству HTMLBody - not Body - почтового элемента в основной процедуре для правильного рендеринга.

Перед запуском основной процедуры следует выбрать диапазон исходных данных.

В целях тестирования вы можете найти полезным заменить свойство почтового элемента «.send» на «.display» в первую очередь - это приведет к тому, что основной вспомогательный элемент будет отображать готовое к отправке письмо на экране, а не просто отправлять Это.

person IAmDranged    schedule 03.07.2014