SMTP Send Email Failed [Archive]

daniel50096230

April 12th, 2010, 10:43 PM

I have the following code to send email through SMTP:

Private Sub SendMailToAdmin()
Try
RecipientAddress = ""
Dim YesDate As String = Now.AddMonths(0).ToString("MMM yyyy")
Dim oMsg As New MailMessage()
oMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
oMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", SenderAddress)
oMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", SenderPassword)

oMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", MailServer)
oMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout", 10)
' oMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
oMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 587)
oMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", True)

oMsg.From = DisplayID
oMsg.To = strEmailErrorTo
oMsg.Cc = strEmailErrorCc
oMsg.Subject = "Testing Email "

oMsg.BodyFormat = MailFormat.Html

oMsg.Body = "<HTML><HEAD><style>.Bd1 { FONT-SIZE: 10pt; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-ALIGN: LEFT } "
oMsg.Body &= "</style></HEAD><BODY class=Bd1>"
oMsg.Body &= "Testing Email<br /><br />"
oMsg.Body &= "</BODY></HTML>"

SmtpMail.SmtpServer = MailServer
SmtpMail.Send(oMsg)

oMsg = Nothing
Catch ex As Exception
ErrorToAdmin("Billing: Failed To Send Out Testing Email " + ex.Message)
End Try

End Sub

I get the error when trying to send out email:

The transport failed to connect to the server.

Does anyone know the cause of it??