Embedir Imagen en e-mail [VB.Net]

Embedir Imagen en e-mail [VB.Net]

Buenoooooo, en esta ocacion mostrare como embedir un archivo de imagen en un correo electronico, no es simplemente atachar en el correo, si no que desplegar dicha imagen en el cuerpo del correo, como que se tratase de una edicion de OutLook.

Comencemos....

' Espacio de nombres a importar
Imports System.Net.Mail

Private Sub EnviandoMailAt()

'Funcion de envio de correo

Dim SMTP As New System.Net.Mail.SmtpClient 'Variable con la que se envia el correo
Dim CORREO As New System.Net.Mail.MailMessage
CORREO.From = New System.Net.Mail.MailAddress(Desdemail, "Correo Electronico", System.Text.Encoding.UTF8)


Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString("Cuerpo del correo", Nothing, "text/html")
'Path de la imagen
Dim logo As New LinkedResource("IMG\LOGOLSAL.png")
logo.ContentId = "companylogo"
'Adicionando logo
htmlView.LinkedResources.Add(logo)

CORREO.To.Add("cliente@mail.com")
'Adicionando copia oculta
CORREO.Bcc.Add("cliente@mail.com")

CORREO.IsBodyHtml = True
CORREO.AlternateViews.Add(htmlView)

CORREO.Subject = "Confirmación de recarga - AutoMailer -"
SMTP.Host = "ServidorSMTP"
SMTP.Port = "Puerto"


Try
SMTP.Credentials = New System.Net.NetworkCredential("UsuarioSMTP", "PassSMTP")
SMTP.Send(CORREO)

Catch ex As System.Net.Mail.SmtpException
MessageBox.Show("Fallo el envio: " & ex.Message)
End Try