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

[valerij]

Да, опять вынужден, обратится, ну когда порядки в стране будут, теперь завод изменил условия почты.
Нужно, что бы Лист1 шел на один @адрес, а Лист2 на другой @адрес.
Тока все сделал, скомпоновал.......
Выручайте!!!

[Тантана]

Здравствуйте!
А не поможете и мне в подобном вопросе?
На листе есть список сумм и список адресов электронной почты.
Возможно ли создать такой макрос, который бы отправлял сумму на соответствующий ей e-mail?
Пример прикрепляю.

[doober]

Берете этот макрос
И еще добавите этот код

 Sub Otpravka()
Dim txt  As String
Dim n As Integer

For n = 6 To 10 ' диапазон строк с адресами
  txt = "Сумма   " & Sheets("Лист1").Range("A" & n) & vbNewLine & Sheets("Лист1").Range("B2")
  
If Send_Mail(Sheets("Лист1").Range("B" & n), Sheets("Лист1").Range("B3"), Sheets("Лист1").Range("B1"), txt) Then
        MsgBox "Письмо успешно отправлено", vbInformation 'это можно убрать
    Else
        MsgBox "Не удалось отправить письмо", vbExclamation 'это можно убрать
    End If

Next

End Sub

Главное правильно заполнить данные сервера ,и свои

Sub SaveAccountData()    ' запускать один раз - для записи в реестр Windows параметров почтового аккаунта
    SaveSetting Application.Name, "mail", "smtpserver", "smtp.mail.ru"    ' Ваш SMTPServer
    SaveSetting Application.Name, "mail", "sendusername", "vasya_pupkin@mail.ru"    ' Ваша учетная запись
    SaveSetting Application.Name, "mail", "sendpassword", "pup123456"    ' Ваш  пароль
End Sub

[valerij]

Сообщение от doober

Берете этот макрос

***********

Сереж!
Это для моей проблемы или для Тантана?

[doober]

Для Тантана
Твой позже на почту вышлю.
Может проще купить пару голубей?

[valerij]

Сообщение от doober

Может проще купить пару голубей?

Не, проще страну сменить, жаль старый......

[Тантана]

doober, спасибо!
Попробую разобраться, о результатах потом отпишусь.

[doober]

Сообщение от valerij

Не, проще страну сменить, жаль старый......

Валера заспокойся
Где и кто нас ждут.
Кому мы нужны с нашим совдеповским миропониманием

[Eugenio]

Добрый вечер,
Пытаюсь отправить почту из excel с помощью CDO, но выскакивает ошибка run-time error -2147220973 не удается связаться с сервером. Windows 7, Офис 2010, CDO не подключал, smtp = smtp.mail.ru, использую код EducatedFool Есть возможность без установки почтовых программ посылать письма и как обойти эту ошибку? Спасибо.

[doober]

По соображениям безопасности с семерки не отправите.Если не ошибаюсь,этой библы там нет.На всякий случай гляньте в референсах ее наличие.если есть подключите/Попробуйте задать вопрос на ветке ОПЕРАЦИОННЫЕ СИСТЕМЫ