Visual Basic.NET - Agregar texto al cuerpo del mi correo

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

Agregar texto al cuerpo del mi correo

Publicado por Matt (75 intervenciones) el 20/01/2021 15:54:34
Hola buen día!!!
Estoy tratando de enviar un correo electrónico con su correspondiente text y una imagen embebida desde una aplicación en Visual Studio 2019, tipo Windows Form y usando VB.NET.
Hasta el momento mi correo se envia correctamente, la imagen se ve bien pero el texto del cuerpo del correo no llega, solo llega la imagen. se supone que el texto del correo proviene de una caja de texto llamada TextBox6.Text, la cual obviamente no esta vacia al momento de enviar mi correo.

cuando recibo el correo se ve de la siguiente manera, (agregue un par de comentarios a la imagen)
Captura-de-pantalla-2021-01-19-221737


El codigo que estoy usando es el siguiente

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Mail As New MailMessage
Mail.From = New MailAddress("[email protected].com", TextBox7.Text)
Mail.[To].Add(New MailAddress(Enviar_a_Correo))
Mail.Subject = TextBox7.Text
 
Dim img1 As LinkedResource = New LinkedResource("C:\Users\dante\Downloads\Black_Hole.jpg", MediaTypeNames.Image.Jpeg)
img1.ContentId = "Image1"
Mail.Body = Mail.Body & "<td><img src=cid:Image1 alt=></td>"
Dim av1 As AlternateView = AlternateView.CreateAlternateViewFromString(Mail.Body, Nothing, MediaTypeNames.Text.Html)
av1.LinkedResources.Add(img1)
Mail.AlternateViews.Add(av1)
Mail.IsBodyHtml = True
Mail.Body = TextBox6.Text
 
Using SMTP As New SmtpClient("smtp.gmail.com")
         SMTP.EnableSsl = True
         SMTP.Credentials = New Net.NetworkCredential("[email protected].com", "myPassword")
         SMTP.Port = "587"
         SMTP.Send(Mail)
End Using
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: 3.340
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Agregar texto al cuerpo del mi correo

Publicado por Phil Rob (1073 intervenciones) el 20/01/2021 20:45:03
Hola Matt,
¿No es suficiente de mover una línea de código ?

1
2
3
4
5
6
7
8
Mail.Body = TextBox6.Text ' escribir esta linea aqui
 
Mail.Body = Mail.Body & "<td><img src=cid:Image1 alt=></td>"
Dim av1 As AlternateView = AlternateView.CreateAlternateViewFromString(Mail.Body, Nothing, MediaTypeNames.Text.Html)
av1.LinkedResources.Add(img1)
Mail.AlternateViews.Add(av1)
Mail.IsBodyHtml = True
' ***********  Mail.Body = TextBox6.Text

...
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
Imágen de perfil de Matt
Val: 180
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Agregar texto al cuerpo del mi correo

Publicado por Matt (75 intervenciones) el 21/01/2021 01:41:25
Hola Mr. Phil!

Si eso era, ahora ya puedo ver el texto de la caja de texto [TextBox6.Text]

Muchas gracias.
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