Отправка почты из Excel - VBA

Формулировка задачи:

Добрый день! Нашел готовый способо отправки писем из Excel, вроде бы всё хорошо, только не могу вписать в макрос еще парочку получателей... Помогите. Спасибо!

                    Листинг программы
                
 
                        
                          
                    
Sub SendSheet()
'отправка текущего листа
    ThisWorkbook.Sheets(1).Copy
    With ActiveWorkbook
        .SendMail Recipients:="removed@mail.ru", _
                  Subject:="subj"
        .Close SaveChanges:=False
    End With
End Sub

Решение задачи: «Отправка почты из Excel»

textual
                            Листинг программы 
                        
Recipients:=Array("e@mail.com","e1@mail.com","e2@mail.com")

Оцени полезность:

14 голосов , оценка 4.071 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы