Enviar emails desde vb.net (no asp.net)

A lo mejor usando sockets

Salud

AJPB

Lo he intentado importando el
System.Web.Mail pero los mails nunca llegan, en cambio

desde aspnet si que

me llegan



Existe otro modo de hacerlo?



Gracias!



Xus.


.

hola:
1.Instala IIS, porque este trae un servidor smtp.
2. configura tu servidor smtp, el nombre del servidor por
defecto es el nombre de tu maquina.
3.pega este codigo:
Dim objeto_smtp As System.Web.Mail.SmtpMail
dim correo as system.web.mail.mailmessage
correo=new system.web.mail.mailmessage()
correo.from=systeminformation.computername
correo.subject="primer correo"
correo.to=""
correo.body="hola:"
correo.priority=web.mail.mailpriority.high
objeto_smtp.send(correo)

chau

Gracias, fucniona

Xus.


"ccalloquispe" escribió en el mensaje
news:109c01c47b43$32185fe0$

hola:
1.Instala IIS, porque este trae un servidor smtp.
2. configura tu servidor smtp, el nombre del servidor por
defecto es el nombre de tu maquina.
3.pega este codigo:
Dim objeto_smtp As System.Web.Mail.SmtpMail
dim correo as system.web.mail.mailmessage
correo=new system.web.mail.mailmessage()
correo.from=systeminformation.computername
correo.subject="primer correo"
correo.to=""
correo.body="hola:"
correo.priority=web.mail.mailpriority.high
objeto_smtp.send(correo)

chau

A mi con esto me funciona:





Imports System.Web.Mail



Public Sub CorreoEnviar()

Dim Correo As New MailMessage

Try

Correo.Body = _CorreoCuerpo

Correo.To = _CorreoDireccion

Correo.Subject = _CorreoAsunto

System.Web.Mail.SmtpMail.Send(Correo)

Catch ex As System.Web.HttpException

_MensajeSalida = "ERROR. CORREO NO ENVIADO"

Exit Sub

End Try

_MensajeSalida = "CORREO ENVIADO"

End Sub

"XusQ" escribió en el mensaje
news:

Lo he intentado importando el
System.Web.Mail pero los mails nunca llegan, en cambio desde aspnet si que
me llegan



Existe otro modo de hacerlo?



Gracias!



Xus.