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)
El codigo que estoy usando es el siguiente
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)
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("sistemadecontrolmorelia@gmail.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("myMail@gmail.com", "myPassword")
SMTP.Port = "587"
SMTP.Send(Mail)
End Using
Valora esta pregunta
0
