Dim mail As New MailMessage()
mail.From = New MailAddress(FromAddress)
mail.To.Add(ToAddress)
mail.Subject = subject
mail.BodyEncoding = System.Text.Encoding.ASCII
mail.Body = TheBody
mail.IsBodyHtml = isHTML
mail.Priority = MailPriority.High
Dim smt As New SmtpClient("HostName")
smt.Credentials = New NetworkCredential("mailid", "password")
smt.Send(mail)
I use the above Code for sending mail but I got the below error..
A connection attempt failed because the connected party did not properly respond after a period of time, or established connection failed ...
Go to the complete details ...