16/06/2006, 15:05
|
| | | Fecha de Ingreso: marzo-2005
Mensajes: 123
Antigüedad: 19 años, 10 meses Puntos: 1 | |
| Enviar mail con servidor exchange
Hola
he visto muchos post pero aun no doy con la solucion mi codigo es el siguiente
Dim objEmail As New MailMessage
objEmail.To = txtDe.Text
objEmail.From = txtPara.Text
objEmail.Cc = txtCc.Text
objEmail.Subject = txtAsunto.Text
objEmail.Body = txtMensaje.Text
objEmail.Priority = MailPriority.High
SmtpMail.SmtpServer = "localhost" '10.15.1.2
Try
SmtpMail.Send(objEmail)
Response.Write("exito")
Catch exc As Exception
Response.Write("falla")
End Try
Al dejar SmtpServer = "localhost" me dice que salio exitoso pero reviso mi correo y no llega nada, sin embargo veo la carpeta c:\Inetpub\mailroot\Drop
y ahi estan los mail que mandé
Si pongo la ip del servidor exchange (SmtpServer = "10.15.1.2") me sale el mensaje "The transport failed to connect to the server."
alguien que me de una ayudita...
gracias: |