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

[EducatedFool]

Через The bat письма остаются в исходящих

а дописать одну команду для отправки сложно?
http://programmersforum.ru/showpost....98&postcount=2

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

[kserems]

Доброго времени суток профессионалам в Microsoft Excel и VBA.
Прошу сильно не ругаться и по возможности оказать посильную помощь неопытному юзеру (то есть мне).

Увидел небольшой макрос для отправки страницы из книги по электронной почте посредством Microsoft Outlook:

Sub Send_ActiveBook()
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SendMail "moyapochta@mail.ru", "Тема сообщения"
ActiveWorkbook.Close False
End Sub

У меня задача стоит в автоматизации процесса отправки страницы из книги Microsoft Excel.
В книге 24 листа, письма с прикрепленным листом из книги отправляются на разные адреса (каждая страница отправляется на определённый адрес), у каждого письма должна быть своя тема сообщения.

Можно ли модифицировать указанный макрос так, что бы адреса отправки и тема сообщения брались из ячеек находящихся на отправляемом (активном) листе?

Буду очень благодарен за посильную помощь.

[Hugo121]

Попробуйте

Sub Send_ActiveBook()
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SendMail [a1].Value, [a2].Value
ActiveWorkbook.Close False
End Sub

В А1 - адрес, в А2 - тема.

Надёжнее так:

Sub Send_ActiveBook()
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SendMail ActiveWorkbook.ActiveSheet.[a1].Value, ActiveWorkbook.ActiveSheet.[a2].Value
ActiveWorkbook.Close False
End Sub

[kserems]

Hugo121 Спасибо огромное!!!

Испытал второй вариант, работает, но появился ряд вопросов.

1. Можно ли как то сделать отправку на несколько адресов одновременно (попытался забить 2 адреса в ячейку с адресами, не удалось, ошибка выскочила: Run-time error 1004:
Application -defined or object-defined error).

2. При выполнении макроса выскакивает окошко (видимо какая то служба безопасности) предупреждающее о том что программа пытается отправить сообщение), есть ли возможность как то её отключить?

3. После копирования и отправки листа, новая книга остается открытой.

4. Так же хотелось бы отправлять не весь лист, а диапазон столбцов со страницы, если можно это реализовать подскажите плиз.

[Hugo121]

Без проверки:
несколько адресов нужно взять в массив, и давать как адрес массив.

Sub Send_ActiveBook()
Dim arr
arr = Split(ActiveWorkbook.ActiveSheet.[a1].Value, ",")
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SendMail arr, ActiveWorkbook.ActiveSheet.[a2].Value
ActiveWorkbook.Close False
End Sub

В А1 - moyapochta@mail.ru,moyapochta2@mail .ru

С диапазоном думаю можно скопировать его на новый созданный лист и послать его.
Но возможно есть путь попроще.

"Служба безопасности" - не знаю. Экселевские предупреждения отключаются так:

Application.DisplayAlerts = False

Потом не забудьте включить назад!
Но это очевидно не экселевский аларм...

[kserems]

Hugo121 Ещё раз спасибо!

Работает, но несколько смущает предупреждение об отправке письма.
Порылся ещё в инете, нарыл макрос работающий без предупреждения, но как модифицировать под свои нужды (отправка диапазона ячеек в новой книге) пока не понимаю (знаний не хватает).

Окажите посильную помощь плиз.

Найденный в сети макрос:

Sub SendMail()  
    Dim OutApp As Object  
    Dim OutMail As Object  
    Dim cell As Range  
      
    Application.ScreenUpdating = False  
    Set OutApp = CreateObject("Outlook.Application")  
    OutApp.Session.Logon  
    On Error GoTo cleanup  
    Set OutMail = OutApp.CreateItem(0)  
    On Error Resume Next  
      
    With OutMail  
        .To = Range("A1").Value  
        .Subject = Range("A2").Value  
        .Body = Range("A3").Value  
        .Attachments.Add Range("A4").Value  
        'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой   
        .Send  
    End With  
  
    On Error GoTo 0  
    Set OutMail = Nothing  
  
cleanup:  
    Set OutApp = Nothing  
    Application.ScreenUpdating = True  
End Sub

[Hugo121]

Я пас - тестировать не на чем.

[kserems]

Hugo121 Спасибо, значит не судьба, может ещё кто поможет.

[Slavatron1984]

в ЕХЕЛЕ 2010 МОЖНО СТАНДАРТНОЙ ФУНКЦИЕЙ ОТПРАВИТЬ файл -- сохранить и отправить ОТПРАВИТЬ--отправить по электронной почте

[kserems]

На работе стоит Excel 2003, да и задача всё автоматизировать.
Прошу помощи профи.