none
Como se puede enviar Email en una cuenta de office 365 via VB .net RRS feed

  • Pregunta

  • Buen dia, tengo problemas para el envio de un correo desde una app en vb .net, tengo el siguiente codigo:

     Public Sub EnvioMail()
            Dim correo As New MailMessage
            Dim smtp As New SmtpClient()
            Try
                correo.From = New MailAddress("xxxx@xxxx.com", "fulanito", System.Text.Encoding.UTF8)
                correo.To.Add("mjimenez02@xxxx.com")
                correo.To.Add("scano@xxxx.com")
                correo.SubjectEncoding = System.Text.Encoding.UTF8
                correo.Subject = "Test"
                correo.Body = "si jala"
                correo.BodyEncoding = System.Text.Encoding.UTF8
                correo.IsBodyHtml = True '(formato tipo web o normal: true = web)'
                correo.Priority = MailPriority.High
                smtp.Credentials = New System.Net.NetworkCredential("scano@XXXX.XXX", "XXXXX")
                smtp.Port = 587     '587
                smtp.Host = "smtp.lear.com"
                smtp.EnableSsl = True
                smtp.Send(correo)

            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

        End Sub

    El error que me envia es: failure sending email

    jueves, 6 de abril de 2017 18:31

Respuestas

  • Examina el InnerException dentro de la excepción ex. A veces te da más información acerca de qué motivo hubo para el error en el envío.

    ¿Estás seguro de que el valor que has puesto smtp.Host (smtp.lear.com) está bien? No parece que sea ninguno de los servidores smtp de office 365. De hecho, ni siquiera admite conexiones en el puerto 587.

    jueves, 6 de abril de 2017 20:42