отправка писем через Outlook по видимым адресам

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

отправка писем через Outlook по видимым адресам (Макросы/Sub)

ovechkin1973

Дата: Среда, 29.11.2017, 20:11 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Есть необходимость слать одним письмом через Outlook письмо на несколько адресатов.. (о нескольких до сотни). Есть файл с ФИО, предприятиями и электронными адресами. Хотелось в файле отфильтровав по нужным параметрам строки (оставив нужные) макросом запустить отправку почты через Outlook. Т.е. нужно создать письмо в Outlook без темы и текста, но чтобы в адресе были те адреса, что были в отфильтрованных строках. Допустим адреса в файле будут с столбце "J" с третьей строки. Пример не выкладываю, потому как адреса реальные выложить не могу.. Адреса в файле в столбце "J", как гиперссылки введены. Для каждой строки (ФИО) по одному адресу.

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Ответить

_Boroda_

Дата: Среда, 29.11.2017, 20:22 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16719

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Формирование и отправку письма найдите поиском - таких тем здесь очень много.
А создание массива из отфильтрованного 10-го столбца (J) можно вот так сделать
[vba]

Код

With ActiveSheet.AutoFilter.Range
ar = .Rows(2).Columns(10).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
End With

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

ovechkin1973

Дата: Воскресенье, 03.12.2017, 15:36 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Уважаемый _Boroda_, Макрос для оправки письма нашел, добавил в него ваш код.. не работает как надо. Точнее видимо я задачу не точно описал. Пришлось посмотреть видео про отладчик кода и увидел, что в переменную, в которую попадает только один адрес в том случае, если при фильтрации выбирать только одну строку с одним адресом. Если выбирать две строки и более, то в переменной значения адресов не появляются. Как сделать, чтобы адреса в эту переменную через точку с запятой брались, чтобы оутлук мог почту отправить?

К сообщению приложен файл: SendMail__.xlsm (19.1 Kb)

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Ответить

_Boroda_

Дата: Воскресенье, 03.12.2017, 16:31 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16719

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Зачем Вы массив объявили Стрингом?
Попробуйте вот так

К сообщению приложен файл: SendMail_1.xlsm (20.0 Kb)

Ответить

ovechkin1973

Дата: Воскресенье, 03.12.2017, 17:19 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 03.12.2017 в 16:31, в сообщении № 4 ()

ачем Вы массив объявили Стрингом?

Потому, что что неуч пока.
Попробовал ваш исправленный вариант- если отфильтрованные адреса (строки отфильтрованные) идут друг за другом, то все ОК (и то только почему то, если выбираешь не меньше двух строк (если только одну, то не работает). Если допустим отфильтровать первые две или больше строк и последнюю строку с адресами, то только в рассылку попадают только те первые адреса, которые идут друг за другом.