Visual Basic.NET - ayuda para enviar correos electrónicos

 
Vista:
Imágen de perfil de Ale
Val: 11
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

ayuda para enviar correos electrónicos

Publicado por Ale (8 intervenciones) el 26/02/2019 04:26:35
Buenas noches quisera saber que tengo malo en mi codigo es una aplicacion en visualbasic.net para enviar correos electronicos pero no se porque no me caen lo estoy haciendo con texbox tanto el nombre como el correo

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
Public Class Form1
    Dim CORREO As New MailMessage
    Dim SMTP As New SmtpClient
 
    Public Sub envio(correo1 As String, cuerpo As String, subject As String)
        Dim CORREO As New MailMessage
        Dim SMTP As New SmtpClient
        SMTP.Host = "smtp.gmail.com"
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New NetworkCredential("vivii271996@gmail.com", "Alejandra19961901")
        CORREO.From = New MailAddress("vivii271996@gmail.com", "Vivian Paz", System.Text.Encoding.UTF8)
        'CORREO.To.Add("Bryandavidvilla@gmail.com")
        'CORREO.To.Add("vivii271996@gmail.com")
        'CORREO.To.Add("alexhr16@gmail.com")
        CORREO.Subject = ("Servicio de Correo")
        CORREO.SubjectEncoding = System.Text.Encoding.UTF8
        CORREO.Body = ("Datos Del Alumnos")
        CORREO.BodyEncoding = System.Text.Encoding.UTF8
        CORREO.Priority = MailPriority.Normal
        CORREO.To.Add(correo1)
        CORREO.Body = (cuerpo)
        SMTP.Send(CORREO)
    End Sub
 
 
    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        exito.Show()
        Dim nombre As String
        Dim em As String
 
        nombre = txtnombre.Text
        em = txtcorreo.Text
 
    End Sub
 
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label3.Text = DateTime.Now.ToLongTimeString
    End Sub
End Class
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
sin imagen de perfil
Val: 24
Ha disminuido su posición en 6 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

ayuda para enviar correos electrónicos

Publicado por Arturo (98 intervenciones) el 26/02/2019 10:29:37
Desde España Buenos días Ale.
En España el puertoSMTP para gmail es el 465 con SSL

Un saludo
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