Bem já ando às voltas com esta questão. Bolas!
percorri esta zona do forúm e não encontrei nada parecido, por isso faço este post.
Já forma utilizados imensos objectos de envio de email, já forma alteradas as configurações no IIS. Enfim um sem fim de situações que já não sei por onde ir.
Estou a tentar enviar um e-mail (um simples e-mail, que em asp, em asp.net framework 1.1 faço às carradas...) e vai ser dar a um situação de erro.
Não sei se é a configuração relativamente ao servidor de e-mail, se é alguma falha no código. Algo que pode estar mal na configuração do serviço SMTP.
Deixo aqui o código que estou a utilizar. Se alguém tiver uma sugestão agradecia a ajuda.
------------------------------------------------------Código Utilizado ------------------------------------
namespce utilizados
<%@ Import Namespace="System.Net.Mail"%>
<%@ Import Namespace="System.Net.Mail.SmtpClient"%>
Dim objEmail As New System.Net.Mail.MailMessage()
'remetente do e-mail
objEmail.From = New MailAddress("[email protected]")
'destinatários do e-mail
objEmail.To.Add("[email protected]")
objEmail.To.Add(LblEmail.Text)
'título do e-mail
objEmail.Subject = "Teste"
'prioridade do e-mail
objEmail.Priority = System.Net.Mail.MailPriority.Normal
'formato do e-mail HTML (caso não queira HTML alocar valor false)
objEmail.IsBodyHtml = True
'corpo do e-mail
objEmail.Body = "texto"
' Para evitar problemas de caracteres "estranhos", configuramos o charset para "ISO-8859-1"
objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
objEmail.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
'cria objeto com os dados do SMTP
Dim objSmtp As New SmtpClient("servidor de e-mail")
'alocamos o endereço do host para enviar os e-mails
objSmtp.Host = "servidor de e-mail"
Dim instance As SmtpPermission
instance.AddPermission(objSmtp)
'enviamos o e-mail através do método .Send()
objSmtp.DeliveryMethod = SmtpDeliveryMethod.Network
objSmtp.Credentials = New System.Net.NetworkCredential("username", "pasword")
objSmtp.UseDefaultCredentials = True
Try
objSmtp.Send(objEmail)
Response.Write("E-mail enviado com sucesso !")
Catch ex As Exception
Response.Write("Ocorreram problemas no envio do e-mail. Error = " & ex.Message)
End Try
excluímos o objeto de e-mail da memória
objEmail.Dispose()
---------------------------- Fim código utilizado ----------------------------------
Bem vai sempre parar à frase: Ocorreram problemas no envio do e-mail. Error = " & ex.Message
percorri esta zona do forúm e não encontrei nada parecido, por isso faço este post.
Já forma utilizados imensos objectos de envio de email, já forma alteradas as configurações no IIS. Enfim um sem fim de situações que já não sei por onde ir.
Estou a tentar enviar um e-mail (um simples e-mail, que em asp, em asp.net framework 1.1 faço às carradas...) e vai ser dar a um situação de erro.
Não sei se é a configuração relativamente ao servidor de e-mail, se é alguma falha no código. Algo que pode estar mal na configuração do serviço SMTP.
Deixo aqui o código que estou a utilizar. Se alguém tiver uma sugestão agradecia a ajuda.
------------------------------------------------------Código Utilizado ------------------------------------
namespce utilizados
<%@ Import Namespace="System.Net.Mail"%>
<%@ Import Namespace="System.Net.Mail.SmtpClient"%>
Dim objEmail As New System.Net.Mail.MailMessage()
'remetente do e-mail
objEmail.From = New MailAddress("[email protected]")
'destinatários do e-mail
objEmail.To.Add("[email protected]")
objEmail.To.Add(LblEmail.Text)
'título do e-mail
objEmail.Subject = "Teste"
'prioridade do e-mail
objEmail.Priority = System.Net.Mail.MailPriority.Normal
'formato do e-mail HTML (caso não queira HTML alocar valor false)
objEmail.IsBodyHtml = True
'corpo do e-mail
objEmail.Body = "texto"
' Para evitar problemas de caracteres "estranhos", configuramos o charset para "ISO-8859-1"
objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
objEmail.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
'cria objeto com os dados do SMTP
Dim objSmtp As New SmtpClient("servidor de e-mail")
'alocamos o endereço do host para enviar os e-mails
objSmtp.Host = "servidor de e-mail"
Dim instance As SmtpPermission
instance.AddPermission(objSmtp)
'enviamos o e-mail através do método .Send()
objSmtp.DeliveryMethod = SmtpDeliveryMethod.Network
objSmtp.Credentials = New System.Net.NetworkCredential("username", "pasword")
objSmtp.UseDefaultCredentials = True
Try
objSmtp.Send(objEmail)
Response.Write("E-mail enviado com sucesso !")
Catch ex As Exception
Response.Write("Ocorreram problemas no envio do e-mail. Error = " & ex.Message)
End Try
excluímos o objeto de e-mail da memória
objEmail.Dispose()
---------------------------- Fim código utilizado ----------------------------------
Bem vai sempre parar à frase: Ocorreram problemas no envio do e-mail. Error = " & ex.Message