Вот код кнопки. По идее она должна отправлять письмо. Но выходит ошибка.
- Код: Выделить всё
Private Sub SendMail(strServer$, strFrom$, strTo$, strSubject$, strBodyText$)
Dim x%
Dim SMTP As Object
Set SMTP = CreateObject("EasyMail.SMTP")
SMTP.MailServer = strServer$
SMTP.FromAddr = strFrom$
SMTP.AddRecipient "", strTo$, 1
SMTP.Subject = strSubject$
SMTP.BodyText = strBodyText$
x% = SMTP.Send
If x% = 0 Then
MsgBox "Доставлено!"
Else
MsgBox "Произошла ошибка. Код ошибки: " & CStr(x%)
End If
Set SMTP = Nothing
End Sub
Private Sub Command1_Click()
SendMail "smtp.mail.ru", "Test1@Mail.ru", "Test2@Mail.ru", "Тестовая тема", "Тестовое сообщение"
End Sub
