Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/отправка писем через Outlook по видимым адресам - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » отправка писем через Outlook по видимым адресам (Макросы/Sub)
отправка писем через Outlook по видимым адресам
ovechkin1973 Дата: Среда, 29.11.2017, 20:11 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 180
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - ovechkin1973
Дата добавления - 29.11.2017 в 20:11
_Boroda_ Дата: Среда, 29.11.2017, 20:22 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11852
Репутация: 4911 ±
Замечаний: 0% ±

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
 
Ответить
СообщениеФормирование и отправку письма найдите поиском - таких тем здесь очень много.
А создание массива из отфильтрованного 10-го столбца (J) можно вот так сделать
[vba]
Код
With ActiveSheet.AutoFilter.Range
    ar = .Rows(2).Columns(10).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
End With
[/vba]

Автор - _Boroda_
Дата добавления - 29.11.2017 в 20:22
ovechkin1973 Дата: Воскресенье, 03.12.2017, 15:36 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 180
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Уважаемый _Boroda_, Макрос для оправки письма нашел, добавил в него ваш код.. не работает как надо. Точнее видимо я задачу не точно описал. Пришлось посмотреть видео про отладчик кода и увидел, что в переменную, в которую попадает только один адрес в том случае, если при фильтрации выбирать только одну строку с одним адресом. Если выбирать две строки и более, то в переменной значения адресов не появляются. Как сделать, чтобы адреса в эту переменную через точку с запятой брались, чтобы оутлук мог почту отправить?
К сообщению приложен файл: SendMail__.xlsm(19Kb)


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

Автор - ovechkin1973
Дата добавления - 03.12.2017 в 15:36
_Boroda_ Дата: Воскресенье, 03.12.2017, 16:31 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11852
Репутация: 4911 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Зачем Вы массив объявили Стрингом?
Попробуйте вот так
К сообщению приложен файл: SendMail_1.xlsm(20Kb)


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

Автор - _Boroda_
Дата добавления - 03.12.2017 в 16:31
ovechkin1973 Дата: Воскресенье, 03.12.2017, 17:19 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 180
Репутация: 0 ±
Замечаний: 0% ±

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

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


Плохо когда не знаешь, да еще забудешь.
 
Ответить
Сообщение
ачем Вы массив объявили Стрингом?

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

Автор - ovechkin1973
Дата добавления - 03.12.2017 в 17:19
_Boroda_ Дата: Воскресенье, 03.12.2017, 17:39 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11852
Репутация: 4911 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Ну да, правильно. Вот так посмотрите
К сообщению приложен файл: SendMail_2.xlsm(20Kb)


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

Автор - _Boroda_
Дата добавления - 03.12.2017 в 17:39
ovechkin1973 Дата: Воскресенье, 03.12.2017, 19:36 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 180
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ну да, правильно. Вот так посмотрите

То, что доктор прописал! Отлично работает!


Плохо когда не знаешь, да еще забудешь.
 
Ответить
Сообщение
Ну да, правильно. Вот так посмотрите

То, что доктор прописал! Отлично работает!

Автор - ovechkin1973
Дата добавления - 03.12.2017 в 19:36
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » отправка писем через Outlook по видимым адресам (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!