Макрос отправки книги с помощью электронной почты с заданной темой

Sub Mail_workbook_1()

Dim wb As Workbook
Dim i As Long

Set wb = ActiveWorkbook

On Error Resume Next
For i = 1 To 3
wb.SendMail "", _
"Тема письма"
If Err.Number = 0 Then Exit For
Next i
On Error GoTo 0
End Sub

 

Рубрики: Метки: , , , , ,

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход /  Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход /  Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход /  Изменить )

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.