Buscar en Google

Busca en Todo Vb-Net

Búsqueda personalizada

miércoles, 2 de junio de 2010

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

4 comentarios:

  1. hola, le he pasado los parametros pero cuando voy a enviar el mail me dice "fallo el envio: error al enviar correo". alguna idea de que puede ser? Saludos y gracias.

    ResponderEliminar
  2. ppkapo, revisa las credenciales del servidor SMTP, ahí puede estar el problema, pues el mensaje que mensionas es el que captura la función pues no tiene salida del mensaje, otro inconveniente puede ser con tu antivirus intenta desactivarlo o configurarlo para que deje salir el puerto SMTP

    ResponderEliminar
  3. Hola. He probado tu código y el correo se envía correctamente, pero la imagen no se ven en el correo, aparece como un adjunto con la extensión.dat.
    Alguna idea..?
    Gracias por tu aportación

    ResponderEliminar
  4. Lo mismo me pasa logro enviar el correo pero no me aparece la imagen y en l abandeja me muestra un adjunto pero al abrir el correo no muestra nada de imagen

    ResponderEliminar