На данный момент имею макрос для отправки почты списку адресатов находящихся на Лист3. Использую его для отправки сразу всем адресатам(в моём случае менеджерам в компании), которые находятся в столбце А. Но появилась новая потребность,как реализовать пока идей нет, сделал только один макрос для отправки почты за всё время.
Суть следующая:
На Лист1 есть ФИО менеджеров и признак, который показывает надо ли отправлять ему задачу или нет. Далее формулами они перетягиваются к их емайлам на Лист3. Суть такова - Необходимо сформировать отдельное письмо на каждый емаил, если признак не пустой, в нашем случае это слово Да. Текст в теле и т д я сам спокойно поправлю. Но как сделать два таких цикла понятию не имею. Буду благодарен за помощь, пожалуйста распишите комменты к циклу, потом буду подстраивать под себя в случае чего.
Спасибо.
P.S. письмо всегда с одинаковым текстом отправляется.
Всем добрый вечер!
На данный момент имею макрос для отправки почты списку адресатов находящихся на Лист3. Использую его для отправки сразу всем адресатам(в моём случае менеджерам в компании), которые находятся в столбце А. Но появилась новая потребность,как реализовать пока идей нет, сделал только один макрос для отправки почты за всё время.
Суть следующая:
На Лист1 есть ФИО менеджеров и признак, который показывает надо ли отправлять ему задачу или нет. Далее формулами они перетягиваются к их емайлам на Лист3. Суть такова - Необходимо сформировать отдельное письмо на каждый емаил, если признак не пустой, в нашем случае это слово Да. Текст в теле и т д я сам спокойно поправлю. Но как сделать два таких цикла понятию не имею. Буду благодарен за помощь, пожалуйста распишите комменты к циклу, потом буду подстраивать под себя в случае чего.
Спасибо.
P.S. письмо всегда с одинаковым текстом отправляется.Ofkoz
_Boroda_, Добрый день, попробовал код, к сожалению выдают ошибку, когда пытается вставить емаил адресата,а если убираем точку перед .To = Cells(i, 1), то создается только одно письмо.
_Boroda_, Добрый день, попробовал код, к сожалению выдают ошибку, когда пытается вставить емаил адресата,а если убираем точку перед .To = Cells(i, 1), то создается только одно письмо.
_Boroda_, Добавил .To = Sheets("Лист3").Cells(i, 1). Ошибка исчезла, я так понимаю начали ссылаться на наш лист.
Но по порежнему создаётся только одно письмо с последним адресатом в столбце. При создании письма видно, что перебирает остальных адресатов, но для них отдельные письма не генерит.
Я писал, Необходимо сформировать отдельное письмо на каждый емаил. Или может мы друг друга не поняли?)
_Boroda_, Добавил .To = Sheets("Лист3").Cells(i, 1). Ошибка исчезла, я так понимаю начали ссылаться на наш лист.
Но по порежнему создаётся только одно письмо с последним адресатом в столбце. При создании письма видно, что перебирает остальных адресатов, но для них отдельные письма не генерит.
Я писал, Необходимо сформировать отдельное письмо на каждый емаил. Или может мы друг друга не поняли?)Ofkoz
А Вы попробуйте отправить. Могу предположить, что они просто затирают друг дружку
Доброе утро, я воспользовался вашим макросом и да, как и пишет Ofkoz
Цитата
Но по порежнему создаётся только одно письмо с последним адресатом в столбце. При создании письма видно, что перебирает остальных адресатов, но для них отдельные письма не генерит.
Я писал, Необходимо сформировать отдельное письмо на каждый емаил. Или может мы друг друга не поняли?)
Формируется 1 письмо, последнему адресату. Кстати, как сразу отправлять письмо, чтобы оно автоматически уходило, т.е. чтобы в окне outlook не нажимать кнопку "отправить"?
А Вы попробуйте отправить. Могу предположить, что они просто затирают друг дружку
Доброе утро, я воспользовался вашим макросом и да, как и пишет Ofkoz
Цитата
Но по порежнему создаётся только одно письмо с последним адресатом в столбце. При создании письма видно, что перебирает остальных адресатов, но для них отдельные письма не генерит.
Я писал, Необходимо сформировать отдельное письмо на каждый емаил. Или может мы друг друга не поняли?)
Формируется 1 письмо, последнему адресату. Кстати, как сразу отправлять письмо, чтобы оно автоматически уходило, т.е. чтобы в окне outlook не нажимать кнопку "отправить"?duckky
Сообщение отредактировал duckky - Четверг, 27.04.2017, 07:03