Как отправить письмо

[Роман-вб]

Пишу так:

Код: Выделить всё

Imports System.web.Mail
________________________________________
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m As New MailMessage
        m.From = "a@narod.ru"
        m.To = "05sapr@yandex.ru"
        m.Subject = "Тема"
        m.Body = ""
        m.BodyFormat = MailFormat.Text
        SmtpMail.SmtpServer = "smtp.narod.ru"
        SmtpMail.Send(m)
        MessageBox.Show("O.K.")
    End Sub
_________________________________________

Пишет: ошибка:

Не удалось отправить сообщение на SMTP-сервер. Код ошибки транспорта: 0x80040217. Отклик сервера: not available

А как правильно? Заранее спасибо.

[Sebas]

System.Net.Mail

[Роман-вб]

Sebas
Ага А как им пользоваться?
Там наверное немного поменять надо (за искл.System.web.Mail на System.Net.Mail). Если не затруднит, смени.

[Sebas]

почитай про ObjectBrowser или просто.... запусти и посмотри на него.

[Sebas]

Imports System.Net.Mail
________________________________________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim m As New MailMessage ("a@narod.ru" ,"05sapr@yandex.ru" )
m.Subject = "Тема"
m.Body = ""
m.IsBodyHtml=False

Dim sc as new SmtpClient("smtphost",25)
sc.Send(m)
MessageBox.Show("O.K.")
End Sub