Послать почту

[Romuald]

Добрый день!!!
Подскажите, пожалуйста, как послать макросом почту, выбирая из списка или из формы ,где можно отметить адресс или сразу несколько адресов, куда ты хочешь послать письмо
У меня макрос с конкретным адресом .

Ромуальд

[SAS888]

Вы не указали, чем (какой программой) требуется отправлять e-mail. Если это Outlook, то посмотрите эти примеры.

[Romuald]

Добрый день!
Да, я отправляю Outlook-ом.
Во вложенном файле макрос "Posilaem poctu"
Outlook-ом отправляет на адрес, прописанный в коде VBA.
Можно ли сделать ,чтобы можно было выбирать любой адрес из списка и сразу одновременно несколько адресов из этого списка?
Заранее благодарю

[Romuald]

Макрос в первом сообщении

[SAS888]

Посмотрите пример во вложении. Написано "вслепую", т.к. у меня не установлен Outlook, поэтому проверить работоспособность кода не могу.

[novak_26]

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

Посмотрите пример во вложении. Написано "вслепую", т.к. у меня не установлен Outlook, поэтому проверить работоспособность кода не могу.

Письмо отправляется, но не Васе Пупкину, а реально существующим людям из каталога LDAP (Outlook, MS Exchange)...

и без вложения xls

[doober]

Отправка письма и файлов без установленного почтового клиента
В референсах добавить ссылку на
Microsoft CDO for Windows 2000 Library
Проверенно на своем опыте.

Sub My_send()
    Set cdoConfig = CreateObject("CDO.Configuration")
 
    With cdoConfig.Fields
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
     
       .Item(cdoSMTPAuthenticate) = 1
       .Item(cdoSMTPServer) = "mail.rambler.ru" ' Ваш SMTPServer
       .Item(cdoSendUserName) = "Vasja.Pupkin77" ' Ваша учетная запись
        .Item(cdoSendPassword) = "111111" ' Ваш  пароль
        .Update
    End With
 
    Set cdoMessage = CreateObject("CDO.Message")
 
    With cdoMessage
       On Error Resume Next
    
        Set .Configuration = cdoConfig
        .From = "Vasja.Pupkin77@rambler.ru"
        
        .To = "Vasja.Pupkin1@info.com,Vasja.Pupkin2@info.com,Vasja.Pupkin3@info.com,Vasja.Pupkin4@info.com"
        .Subject = "Здесь тема письма"
        .TextBody = "текст тела письма"
        .AddAttachment "c:\1.xls" ' Добавляем файл
         .AddAttachment "c:\12.xls"
         .AddAttachment "c:\123.xls"
        .Send
        
       
    End With
  If Err.Number = -2147220973 Then
        MsgBox ("Отсутствует связь с интернетом")
    End If
    If Err.Number = -2147220975 Then
           MsgBox ("SMTP сервер ответил отказом")
    End If
    Set cdoMessage = Nothing
    Set cdoConfig = Nothing

 If Err.Number = 0 Then
       MsgBox ("Письмо отправлено")
End If


End Sub

[Дмитрий Фукс]

Привет!
doober
Попробовал этот код, выскакивает MsgBox ("Отсутствует связь с интернетом")
Что проверить?

[doober]

Скорее всего не правильно указан Ваш SMTPServer
эта ошибка выскакивает,когда не возможно подключиться к серверу
Попробуйте еще порт указать

.Item(cdoSMTPServerPort) = 25

Не знаю какой ваш
Напишите в личку Ваш Emal

[doober]

Нюансы этого макроса.
Письмо нельзя отправить самому себе.
Нельзя отправить открытый файл