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