Visual Basic.NET - Duda Envío Correo Visual Basic 2010

 
Vista:
sin imagen de perfil

Duda Envío Correo Visual Basic 2010

Publicado por waltermendez99 (5 intervenciones) el 28/07/2014 20:43:48
Buenos días,
De antemano gracias por su ayuda,
Mi duda es realmente sencilla, y lo gracioso es que no sé como resolverlo! acá les muestro el código que tengo para enviar un mensaje en VB10.NET

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Message As New System.Net.Mail.MailMessage()
Dim SMTP As New System.Net.Mail.SmtpClient
 
'CONFIGURACIÓN DEL STMP
'----------------------------------------------------'("cuenta de correo", "contraseña")
SMTP.Credentials = New System.Net.NetworkCredential("xxx@outlook.com", "xxx")
SMTP.Host = "smtp-mail.outlook.com"
SMTP.Port = 587
SMTP.EnableSsl = True
 
' CONFIGURACION DEL MENSAJE
Message.[To].Add(Me.Textbox1.Text.ToString) ' Acá se escribe la cuenta de correo al que se le quiere enviar el e-mail
'----------------------------------------------"Quien lo envía","Nombre de quien lo envía"
Message.From = New System.Net.Mail.MailAddress("xxx@outlook.com", "xxx", System.Text.Encoding.UTF8) 'Quien envía el e-mail
Message.Subject = Me.Textbox2.Text.ToString 'Motivo o Asunto del e-mail
Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
Message.Body = Me.Textbox3.Text.ToString 'contenido del mail
Message.BodyEncoding = System.Text.Encoding.UTF8
Message.Priority = System.Net.Mail.MailPriority.Normal
Message.IsBodyHtml = False

Mi duda es: Cómo reemplazar el Textbox3 por un mensaje predeterminado
Por ejemplo que el cuerpo de mi mensaje diga:
"Hola, espero que hayas recibido mi correo, Att. yo"

Quizás me diran que solamente escriba el mensaje que yo quiero de esta forma:

Message.Body = "Hola, espero que hayas recibido mi correo, Att. yo"

pero lo que realmente quisiera es encerrar ese mensaje en alguna variable o un Sub no sé... por ejemplo:

Message.Body = Me.TxtMensaje.Text.ToString 'contenido del mail

donde TxtMensaje lleva mi mensaje a enviar.

Realmente necesito esta ayudita, se los agradezco de antemano. Si algo se te ocurre no dudes en comentarmelo
Gracias Amigos!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder
sin imagen de perfil

Duda Envío Correo Visual Basic 2010

Publicado por Pico (167 intervenciones) el 28/07/2014 22:03:17
La propiedad Text de un TextBox ya es un string, con lo que no hace falta un ToString() para nada.

La propiedad Body del MailMessage también es un string, con lo que hay que pasarle un string, ya sea un TextBox3.Text, un "Eso te mando", o una variable definida como string con el texto que sea, o el return de una función que devuelva un string como

1
2
3
Public Function Texto() As String
    return "Esto es lo que mando"
End Function


¿Y el problema es?
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
sin imagen de perfil

Duda Envío Correo Visual Basic 2010

Publicado por waltermendez99 (5 intervenciones) el 29/07/2014 22:31:12
Hola Gracias, pero al final conseguí una solución no muy conforme,


al agregar una nueva variable

1
2
Public Class Form1
Dim TxtMensaje As New TextBox

ya pude poner mi variable con un mensaje predeterminado.

1
Message.Body = Me.TxtMensaje.Text.ToString

y utilice la variable por serparado

1
2
3
4
5
6
7
8
9
10
11
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox("Por favor complete los campos", vbInformation)
Else
TxtMensaje.Text = "Hola como estás " + TextBox1.Text + " " + TextBox2.Text + " te envío un fuerte abrazo!!!" 'contenido del mail
 
Call Correo()
 
Application.Exit()
End If
End Sub


Gracias por el consejo!!!!
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