ENVIAR EMAIL SMTP

LEOCFLAT 07/08/2016 21:00:12
#465602

Olá tenho um formulario de contato com o código abaixo, sempre funcionou corretamente mas de 2 dias pra ca ele envia o email so na maquina ou seja no visual studio, ja no servidor com o site no ar, ao clicar no botão enviar ele roda roda e recarrega a página mas o email nao vem. é como se estivesse demorando tanto que perde tudo. O que poderia ser?

Sub SendActivationEmail()

Dim caminho As String = cryptocredentials.Crypto.Decrypt(dec.Mail)
Dim valor As String = cryptocredentials.Crypto.Decrypt(dec.Acesso)
Dim mm As New MailMessage( caminho, caminho)
mm.Subject = [Ô]Nova Mensagem enviada através do formulário de contato por:[Ô] & Txtnome.Text.Trim()

Dim body As String = ([Ô]Mensagem enviada por: [Ô])
body += String.Format([Ô]: {0},[Ô], Txtnome.Text.Trim())
body += String.Format([Ô] [Ô] & [Ô]E-mail: {0},[Ô], Txtmail.Text.Trim())
body += String.Format([Ô] [Ô] & [Ô]Assunto: {0},[Ô], Txttel.Text.Trim())
body += String.Format([Ô] [Ô] & [Ô]Mensagem: {0},[Ô], Txtmessage.Text.Trim())
body += String.Format([Ô] [Ô] & [Ô]Arquivos para análise: {0},[Ô], Txtlink.Text.Trim())
mm.Body = body
mm.IsBodyHtml = True
Dim smtp As New SmtpClient() With {.Host = [Ô]mail16.redehost.com.br[Ô]}
Dim NetworkCred As New NetworkCredential(caminho, valor )
smtp.UseDefaultCredentials = True
smtp.Credentials = NetworkCred
smtp.Port = 587
smtp.Timeout = 2000
Try

smtp.Send(mm)

Catch ex As Exception
ClientScript.RegisterStartupScript([GetType](), [Ô]alert[Ô], (Convert.ToString([Ô]alert([ô][Ô]) & [Ô]Não foi possível enviar o e-mail entre em contato direto através do e-mail comunicacao@codigoflat.com.br[Ô]) + [Ô][ô]);[Ô], True)
Finally

ClientScript.RegisterStartupScript([GetType](), [Ô]alert[Ô], (Convert.ToString([Ô]alert([ô][Ô]) & [Ô]E-mail enviado com sucesso. Aguarde contato.[Ô]) + [Ô][ô]);[Ô], True)
Response.Redirect([Ô]http://www.codigoflat.com.br[Ô])
End Try