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

 

Реклама