Enviar Mail

Fernando_net · #1 (**permalink**) 08/06/2010, 03:32

Buenas a todos.

Una pregunta.

Desde mi aplicación desearía poder enviar correos electronicos a gente que necesite la información del formulario que tiene en pantalla.

El caso es que tengo el siguiente código:

Código Visual Basic .NET:

Ver originalImports System.Web.Mail
 
Module correo
    Public Sub correo()
        Dim mensaje As MailMessage = New MailMessage()
 
        mensaje.From = "[email protected]"
        mensaje.To = "[email protected]"
        mensaje.Subject = "prueba correo"
        'mensaje.BodyFormat = MailFormat.Html
        mensaje.Body = "<html><body><b>Esto es una prueba</b><br><b>Continuo probando</b></body></html>"
 
        SmtpMail.SmtpServer = "SMTP de la empresa"
        SmtpMail.Send(mensaje)
        mensaje = Nothing
        mensaje = Nothing
    End Sub
End Module

Y cuando apreto el botón para enviar, me sale el siguiente error:

"Error de transporte en la conexión al servidor"

Será porqué faltan datos de autenticación del SMTP de la empresa o algo? Porque por lo demás está todo correcto (supongo

)

Gracias por la ayuda.

Un saludo :)

XDMerinoM · #2 (**permalink**) 08/06/2010, 08:40

Puede ser que te falten datos en el SMTP, revisa tambien las politicas de correo de tu empresa por cualquier asunto de bloqueo de envios o tipos de correo. Revisa tambien la configuracion de seguridad de tu cliente de correo, eso tambien puede estar dandote algun problema.

Salu2

Fernando_net · #3 (**permalink**) 08/06/2010, 09:18

Y en caso de que necesite autenticación en el STMP...

Como pongo esos datos? Pongo alguna variable o algo?

Saludos XDMerinoM ;)

XDMerinoM · #4 (**permalink**) 08/06/2010, 12:09

Por que comentas el BodyFormat? Cual es tu cliente de correo? Por tu cliente de correos actual puedes enviar correos normalmente?

Fernando_net · #5 (**permalink**) 08/06/2010, 14:18

Buenas.

Pues comento el BodyFormat pensando que era error de eso, que al tener algo de HTML pues que no lo admita o pete por eso ¬_¬

Pero a pesar de no comentarlo sigue dando el mismo error.

¿Cliente de correo? Utilizo el Outlook y se me configuró automáticamente con la configuración de la empresa cuando lo ejecuté por primera vez.

He intentado de implementar la biblioteca de Outlook pero no lo entiendo mucho, el código es muy espeso para la simpleza que quiero (ya ves, enviar un correo simple y llanamente)

Fernando_net · #6 (**permalink**) 09/06/2010, 02:03

Buenas.

He probado esto pero no tengo respuesta sobre si me lo ha enviado o no y en la bandeja de entrada no lo veo.

Es otra forma de hacerlo, como la veis?

Código Visual Basic .NET:

Ver originalImports System.Net.Mail
 
Module correo
    Public Sub correo()
        Dim correo As SmtpClient = New SmtpClient()
 
        correo.Host = "SMTP de la empresa"
 
        Dim desde As MailAddress = New MailAddress("[email protected]")
 
        Dim para As MailAddress = New MailAddress("[email protected]")
 
        Dim mensaje As MailMessage = New MailMessage(desde, para)
 
        mensaje.Body = "Esto es una prueba"
        mensaje.BodyEncoding = System.Text.Encoding.UTF8
        mensaje.Subject = "Correo enviado"
        mensaje.SubjectEncoding = System.Text.Encoding.UTF8
 
        correo.SendAsync("[email protected]", "[email protected]", mensaje.Subject = "Prueba de correo", mensaje.Body = "Esto es una prueba")
    End Sub
End Module

Saludos

Fernando_net · #7 (**permalink**) 09/06/2010, 03:53

Saludos a todos.

He logrado que envie correos, al fin :D

Pego el código fuente para alguien que tenga el mismo problema:

Código Visual Basic .NET:

Ver originalImports System.Net.Mail
 
Module correo
    Public Sub correo()
        Dim correo_enviar As SmtpClient = New SmtpClient()
 
        correo_enviar.Host = "SMTP de la empresa"
        correo_enviar.Credentials = New System.Net.NetworkCredential("[email protected]", "contraseña")
 
        Dim desde As MailAddress = New MailAddress("[email protected]")
 
        Dim para As MailAddress = New MailAddress("[email protected]")
 
        Dim mensaje As MailMessage = New MailMessage(desde, para)
 
        mensaje.Body = "Esto es una prueba"
        mensaje.BodyEncoding = System.Text.Encoding.UTF8
        mensaje.Subject = "Correo enviado"
        mensaje.SubjectEncoding = System.Text.Encoding.UTF8
 
        correo.Send(desde.ToString, para.ToString, mensaje.Subject, mensaje.Body)
    End Sub
End Module

El único problema es que me sale en el buzón de "Correo no deseado" :(

Saludos

XDMerinoM · #8 (**permalink**) 09/06/2010, 08:06

Veo que cambiaste el metodo, ya no usas cliente Web.Mail de correo sino SmtpClient con Net.Mail, que te sirve de buena manera en tu caso. Si me dices que va spam, tu direccion origen debe estar en una lista de contactos indeseados. Pidele a tu administrador de correos que revise ese detalle.

Salu2 y me cuentas como va

Fernando_net · #9 (**permalink**) 10/06/2010, 04:44

Hola XDMerinoM

Pues al final ya está solucionado. Era problema que el correo de destino (de Gmail), marcaba como SPAM el correo de la empresa, con lo cual le dije a Gmail que no es SPAM y ya está.

Todo solucionado.

Muchisimas gracias por la ayuda.

Un cordial saludo :D