- Код: Выделить всё
Dim msg As Net.Mail.MailMessage
msg = New Net.Mail.MailMessage()
msg.From = New Net.Mail.MailAddress("seoweb-pro@yandex.ru", "Алекс")
msg.To.Add("site100info@yandex.ru")
msg.Subject = "Тема письма"
msg.Body = "Текст самого письма"
msg.IsBodyHtml = True
Dim smtpclient As New Net.Mail.SmtpClient("stmp.yandex.ru", 25)
smtpclient.Credentials = New Net.NetworkCredential("seoweb-pro", "pssqwerly")
smtpclient.Send(msg)
msg.Dispose()
Но при отправке выводится ошибка с текстом:
Подробная информация об использовании оперативной
(JIT) отладки вместо данного диалогового
окна содержится в конце этого сообщения.
************** Текст исключения **************
System.Net.Mail.SmtpException: Сбой при отправке сообщения электронной почты. ---> System.Net.WebException: Невозможно соединиться с удаленным сервером ---> System.Net.Sockets.SocketException: Сделана попытка выполнить операцию на сокете при отключенной сети 213.180.204.242:25
в System.Net.Sockets.Socket.DoConnect(EndPoint endPointSnapshot, SocketAddress socketAddress)
в System.Net.ServicePoint.ConnectSocketInternal(Boolean connectFailure, Socket s4, Socket s6, Socket& socket, IPAddress& address, ConnectSocketState state, IAsyncResult asyncResult, Int32 timeout, Exception& exception)
--- Конец трассировки внутреннего стека исключений ---
в System.Net.ServicePoint.GetConnection(PooledStream PooledStream, Object owner, Boolean async, IPAddress& address, Socket& abortSocket, Socket& abortSocket6, Int32 timeout)
в System.Net.PooledStream.Activate(Object owningObject, Boolean async, Int32 timeout, GeneralAsyncDelegate asyncCallback)
в System.Net.PooledStream.Activate(Object owningObject, GeneralAsyncDelegate asyncCallback)
в System.Net.ConnectionPool.GetConnection(Object owningObject, GeneralAsyncDelegate asyncCallback, Int32 creationTimeout)
в System.Net.Mail.SmtpConnection.GetConnection(ServicePoint servicePoint)
в System.Net.Mail.SmtpTransport.GetConnection(ServicePoint servicePoint)
в System.Net.Mail.SmtpClient.GetConnection()
в System.Net.Mail.SmtpClient.Send(MailMessage message)
--- Конец трассировки внутреннего стека исключений ---
в System.Net.Mail.SmtpClient.Send(MailMessage message)
в WindowsApplication1.Form1.Button1_Click(Object sender, EventArgs e) в c:\documents and settings\алексей\мои документы\visual studio 2010\Projects\WindowsApplication1\WindowsApplication1\Form1.vb:строка 23
в System.Windows.Forms.Control.OnClick(EventArgs e)
в System.Windows.Forms.Button.OnClick(EventArgs e)
в System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
в System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
в System.Windows.Forms.Control.WndProc(Message& m)
в System.Windows.Forms.ButtonBase.WndProc(Message& m)
в System.Windows.Forms.Button.WndProc(Message& m)
в System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
в System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
в System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
