Friday, 15 February 2013

Send mail Server
Catch Error
Public Sub SendAlertMail(ByVal ex As Exception) Dim msg As New MailMessage msg.From = New MailAddress("frommailid") msg.To.Add("multiple mailid") msg.Subject = "" msg.Body = ex.ToString() Dim client As New SmtpClient("ServerIP address") client.Send(msg) End Sub

No comments:

Post a Comment