Enviar correo VB 10
Publicado por waltermendez99 (5 intervenciones) el 24/07/2014 23:13:23
Buenos días Programadores expertos,
Siendo un novato aún en la programación .net, quiero hacerles una consulta: Necesito enviar un correo a traves de un boton, El asunto es que necesito enviar un mensaje de texto ya predeterminado.
Les voy a mostrar como tengo el código del boton
La función que envía el correo lo tengo así
Siendo un novato aún en la programación .net, quiero hacerles una consulta: Necesito enviar un correo a traves de un boton, El asunto es que necesito enviar un mensaje de texto ya predeterminado.
Les voy a mostrar como tengo el código del boton
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
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox4.Text = "" Then
MsgBox("Ingresa un nombre de usuario", vbInformation)
TextBox4.Focus()
ElseIf TextBox5.Text = "" Then
MsgBox("Ingresa una contraseña", vbInformation)
TextBox5.Focus()
ElseIf TextBox6.Text = "" Then
MsgBox("Ingresa la confirmación tu contraseña", vbInformation)
TextBox6.Focus()
ElseIf TextBox7.Text = "" Then
MsgBox("Ingresa tu nombre", vbInformation)
TextBox7.Focus()
ElseIf TextBox8.Text = "" Then
MsgBox("Ingresa tu correo electrónico", vbInformation)
TextBox8.Focus()
ElseIf ComboBox2.Text = "" Then
MsgBox("Elige un tipo de cuenta")
ComboBox2.Focus()
ElseIf TextBox5.Text = TextBox6.Text Then
-----------> ESTE ES EL MENSAJE PREDETERMINADO txtMensaje.text = "Bienvenido al Sistema. Tu correo electrónico es:" + TextBox8.Text + ", tu nombre de usuario es:" + TextBox4.Text + ", tu contraseña es:" + TextBox5.Text + ", Tu clave generada es: xxx. Todos estos datos son importante para que puedas iniciar sesión, por tanto si tienes problemas al iniciar sesión, por favor comunícate con el administrador del software.")
'Tocaría llamar una funcion Sub Correo
MsgBox("Una nueva cuenta se creó y fué enviada al correo: " + TextBox8.Text + ", todos estos datos son necesarios para que puedas iniciar sesión!", vbInformation)
Call LimpiarCamposDondeSeCreanCuentas()
Timer2.Enabled = True
Else
MsgBox("La confirmación de tu contraseña no coincide!", vbInformation)
End If
End Sub
La función que envía el correo lo tengo así
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Correo()
Dim Message As New System.Net.Mail.MailMessage()
Dim SMTP As New System.Net.Mail.SmtpClient
'CONFIGURACIÓN DEL STMP o sea el servidor saliente de alguna cliente correo por ejemplo gmail, outlook.com, yahoo etc.
'SMTP.Credentials = New System.Net.NetworkCredential("cuenta de correo", "contraseña")
SMTP.Credentials = New System.Net.NetworkCredential("aquimicorreo@outlook.com", "Mi contraseña")
SMTP.Host = "smtp-mail.outlook.com"
SMTP.Port = 587
SMTP.EnableSsl = True
' CONFIGURACION DEL MENSAJE
Message.[To].Add(Me.TextBox8.Text.ToString)
Message.From = New System.Net.Mail.MailAddress("aquimicorreo@outlook.com", "Aqui Mi nombre", System.Text.Encoding.UTF8)
Message.Subject = "Mi asunto"
Message.SubjectEncoding = System.Text.Encoding.UTF8
Message.Body = txtMensaje.text 'contenido del mail -----> acá necesitaría decirle al programa que me jale la variable de arriba, pero adivinen? no se como es que puedo enviar este mensaje predeterminado, o sea el mensaje que está arriba en negrita
Message.BodyEncoding = System.Text.Encoding.UTF8
Message.Priority = System.Net.Mail.MailPriority.Normal
Message.IsBodyHtml = False
End Sub
Valora esta pregunta
0
