Подбор адресатов электронного письма по условию

Пользователь

Сообщений: 9 Регистрация: 05.11.2022

21.11.2022 17:04:41

Доброго времени суток, уважаемые форумчане.

Исходная ситуация: имеется макрос с возможностью выбора шаблона письма (1, 2, 3) и ручного выбора электронных адресов посредством их выделения. В конечном итоге благодаря коду открывается готовый шаблон письма в Outlook с выбранными электронными адресами в качестве адресатов.

Возник теперь такой вопрос: каким образом можно настроить макрос так, чтобы при выборе шаблона письма (1, 2 или 3) код подбирал адресатов в зависимости от их роли? К примеру, если выбирается шаблон "1", то в качестве адресатов в шаблоне письма Outlook автоматически выбираются все электронные адреса сотрудников с Role "1". В таком случае отпала бы необходимость выбирать их вручную...

Прилагаю пример во вложении. Буду рад любому содействию, спасибо.

Прикрепленные файлы

Primer.xlsm (33.92 КБ)

webley

Пользователь

Сообщений: 2158 Регистрация: 01.01.1970

21.11.2022 18:18:41

Добрый день

Попробуйте заменить вот это:

Код
For Each xCell In xRg xCell.Interior.ColorIndex = 4 If xCell.Value Like "@" Then If xEmailAddr = "" Then xEmailAddr = xCell.Value Else xEmailAddr = xEmailAddr & ";" & xCell.Value End If End If Next

на что-то вроде этого:

Код

Dim r As Long 'объявление переменной - можно в начале модуля
 For r = 8 To Cells(Rows.Count, "A").End(xlUp).Row
    If Cells(r, "A") Like "*@*" And Cells(r, "B") = 1 Then 'для 1-ой роли
        xEmailAddr = xEmailAddr & IIf(xEmailAddr <> "", ";", "") & Cells(r, "A")
    End If
 Next r

Мартин Шмидт Пользователь Сообщений: 9 Регистрация: 05.11.2022	#3 22.11.2022 14:05:59 webley, спасибо огромное, работает хорошо! Единственное - возможно ли избежать необходимость ручного выделения почтовых адресов в столбце "А"? Скажем, чтобы xEmailAddr ориентировался на данные лишь в столбце "А".

webley Пользователь Сообщений: 2158 Регистрация: 01.01.1970	#4 22.11.2022 14:54:18 Так в моем коде и не используется выделение - перебираются все строки в столбце А с 8 до последней заполненной. А что-то при этом выделять - такой необходимости нет (хотя, это и не мешает:))

Мартин Шмидт Пользователь Сообщений: 9 Регистрация: 05.11.2022	#5 28.11.2022 13:54:00 webley, теперь принцип понятен, спасибо. К сожалению в списке адресатов так и не отображаются выбранные адреса, может я чего напортачил. Тем не менее очень признателен за помощь!