Отправка макросом почты из Excel

[VictorM]

а не подскажеш как в цыкле прокрутит ето?)

Да хотя бы так:
Для начала нужно внести нужные адреса.
раз уж мы работаем в книге Excel, мне удобнее сделать это на листе.
Например Лист1, яч. A1:A15.
Далее, дописываем в коде

If Len(sPass) = 0 Then MsgBox "Не вказаний пароль", vbInformation, "www.Excel-VBA.ru": Exit Sub 'Ваш код
    'дописываем
    n = 1
    For i = 1 To 10
        Адрес_из_списка = Sheets("Лист1").Cells(n, 1)
        sTo = Адрес_из_списка    'Кому
.....
далее опять Ваш код
.....
MsgBox sMsg, vbInformation, "Повідомлення Надіслане!"
        'дописываем
        n = n + 1
    Next i

После каждого отправленного письма будет выводиться окно "Повідомлення Надіслане!".
Жмем ОК и отправляется следующее.
Можно и без этого, поместите строку MsgBox sMsg, vbInformation, "Повідомлення Надіслане!" в самом конце, тогда сообщение появится когда будут отправлены ВСЕ письма.
p.s. Все это Вам уже говорилось и показывалось в Ваших предыдущих темах. Что сделать и где.

[Romka12345]

спосибо) очень помог

[doober]

Немного поправлю код Виктора.
Рассылку сразу на несколько адресов можно сделать одной посылкой
Зачем CDO лишний раз напрягать

    Адрес_из_списка = Sheets("Лист1").Cells(1, 1)
        sTo = Адрес_из_списка 
     For n= 2 To 10
        Адрес_из_списка = Sheets("Лист1").Cells(n, 1)
        sTo =sTo & "," &  Адрес_из_списка
    Nexti

[VictorM]

Зачем CDO лишний раз напрягать

Да, все правильно, недоглядел. (или поторопился)
спасибо за поправку.

[Hugo121]

Я по мейлам не специалист, но можно отправлять списку (как doober уже сказал) и массиву.
Не знаю только, работает ли это с CDO, но с LotusNotes работает примерно так:

Also for multiple email addresses you just set MailDoc.sendto to an array of variants each of which will receive the message. So

Dim recip(25) as variant
recip(0) = "emailaddress1"
recip(1) = "emailaddress2" e.t.c

maildoc.sendto = recip

[VictorM]

Думаю, ТС это уже неинтересно)))
После всего что мы ему тут написали/насоветовали, он создал идентичную тему на соседнем форуме))))))))

[Hugo121]

Не ради ТС писал - он это всё равно использовать не сможет
Но ведь на одного ТС может быть 10 других ищущих будет...