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


0