Quantcast
Channel: Envío de emails con VB
Viewing all articles
Browse latest Browse all 7

Envío de emails con VB

0
0

Buenas tardes.

Estoy intentando enviar correos desde una aplicación de Visual Basic y estoy teniendo problemas para hacerlo... Mi código es:

Dim correo As New MailMessage
        Dim smtp As New SmtpClient()

        correo.From = New MailAddress("XXX@gmail.com", "XXX", System.Text.Encoding.UTF8)
        correo.To.Add("XXX")
        correo.SubjectEncoding = System.Text.Encoding.UTF8
        correo.Subject = "Test Mail"
        correo.Body = "This is for testing SMTP mail from GMAIL"
        correo.BodyEncoding = System.Text.Encoding.UTF8
        correo.IsBodyHtml = False
        correo.Priority = MailPriority.High

        smtp.Credentials = New Net.NetworkCredential("XXX", "XXX")
        smtp.Port = 465
        smtp.Host = "smtp.gmail.com"
        smtp.EnableSsl = True
        smtp.UseDefaultCredentials = False
        smtp.Send(correo)

El error que me aparece es: 

Excepción no controlada del tipo 'System.Net.Mail.SmtpException' en System.dll
Información adicional: Se excedió el tiempo de espera de la operación.

¿Qué estoy haciendo mal?


Viewing all articles
Browse latest Browse all 7

Latest Images





Latest Images