Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/01/2008, 12:11
abelinobarajas
 
Fecha de Ingreso: octubre-2007
Mensajes: 107
Antigüedad: 16 años, 7 meses
Puntos: 1
envio de email

Hola amigos

Estoy intentando enviar un email desde .net, pero:
- a veces desde localhost si los envia a hotmail, yahoo, etc. a veces no.
- nunca he podido que me funcione cuando monto la pagina para accesarla desde internet.

Este es el codigo que estoy utilizando

Dim var_email As New System.Net.Mail.MailMessage
Dim var_smtp As New Net.Mail.SmtpClient


var_email.From = New Net.Mail.MailAddress("[email protected]")

var_email.To.Add("[email protected]")
var_email.Headers.Add("reply_to", "[email protected]")

var_email.Subject = "DE: abelino"
var_email.Body = "Has recibido un email"
var_email.IsBodyHtml = False
var_email.Priority = Net.Mail.MailPriority.Normal

var_smtp.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
var_smtp.Timeout = 60
var_smtp.Port = 25
var_smtp.Host = "correo.dominio.com"
var_smtp.EnableSsl = False
var_smtp.Credentials = New System.Net.NetworkCredential ("[email protected]", "clave")

Try
var_smtp.Send(var_email)
Session("mensaje") = CType(Session.Item("mensaje"), String) & " " & "email enviado con exito" & vbCrLf
Catch ex As Exception
Session("mensaje") = CType(Session.Item("mensaje"), String) & " " & "ERROR: FALLO al ENVIAR el email." & ex.StackTrace & vbCrLf
Finally
var_email.Dispose()
var_smtp = Nothing
End Try