Visual Basic.NET - Error al enviar correo

 
Vista:
Imágen de perfil de Miguel
Val: 321
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error al enviar correo

Publicado por Miguel (183 intervenciones) el 27/02/2019 18:45:33
Tengo un programa para enviar correo de Gmail y el caso que al hacer el envío me da el siguiente mensaje.
El Servidor SMTP requiere una conexión segura o el cliente no se autenticó.
La respuesta del Servidor fue 5.5.1 se requiere autenticarse.

En el tema de comunicaciones no tengo ni idea, he bajado este programa de la red por ser el más completo que he visto. Así que agradecería cualquier orientación sobre el error para tratar de subsanarlo.

Muchas gracias y un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 2.160
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error al enviar correo

Publicado por Phil Rob (531 intervenciones) el 27/02/2019 21:03:30
Hola,

El codigo pode enviar Mail con gmail.com.
Perdone para los nombres de los variables en francés ...

Espero que esto te ayudará ...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub BEnvoi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BEnvoi.Click
 
        Dim Mail As MailMessage
        Dim smtp As SmtpClient
        Dim Expediteur As String
        Dim Destinataire As String
 
 
        Try
            Mail = New MailMessage
            Mail.SubjectEncoding = UTF8Encoding.UTF8 ' Forma de codigo del objecto
            Mail.BodyEncoding = UTF8Encoding.UTF8 ' Forma de codigo del mensaje
            Mail.Subject = TObjet.Text  ' el objecto del mensaje en un TextBox
            Mail.Body = RTBMessage.Text ' el mensaje en un RichTextBox
 
            smtp = New SmtpClient("smtp.gmail.com") ' servidor SMTP permitido en el ordinador
 
            Expediteur = "scxster@gmail.com"
            Mail.From = New MailAddress(Expediteur) 'el remitente
 
            Destinataire = "scx@belgacom.net"
            Mail.To.Add(New MailAddress(Destinataire)) ' el destinatario
 
            smtp.Port = "587"
            smtp.Credentials = New System.Net.NetworkCredential("scxster", "Password")  'scxster es el nombre del usuario
            smtp.EnableSsl = True
 
            For Each S As String In LBAttachement.Items  ' Nombres de los archivos a adjuntar
                Dim Attache As New Attachment(S)
                Mail.Attachments.Add(Attache)
            Next
 
            smtp.Send(Mail) ' Enviar mensaje
 
            Mail.Dispose()
 
        Catch ex As ApplicationException
            MessageBox.Show(ex.Message)
        Finally
            smtp = Nothing
            Try
                Mail.Dispose()
            Catch
            End Try
            Mail = Nothing
        End Try
 
    End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Miguel
Val: 321
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error al enviar correo

Publicado por Miguel (183 intervenciones) el 27/02/2019 21:41:43
Merci beaucoup.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar