Visual Basic.NET - envio de emails con imagenes incrustadas

envio de emails con imagenes incrustadas

Publicado por walter (6 intervenciones) el 22/05/2007 06:04:55

Amigos.. necesito realizar un proceso que automaticamente envie mails. OJO. La apllicacion No es WEB. Estoy utilizando VS 2003
el tema es que he logrado enviar los mails incluso con el archivo adjunto, pero quiero enviarlos y que lleguen a su destino de la misma forma como llegan las propagandas publicitarias, o sea mostrando la figura, no adjunta sino abierta al usuario...

No lo pude lograr hasta ahora. por favor una ayuda en esto gracias

Walter

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:envio de emails con imagenes incrustadas

Publicado por Harold V (411 intervenciones) el 22/05/2007 19:46:45

Aqui tienes esto, esta OK...........................

remplaza 'tucorreo' por tu cuenta de correo

Imports System.Net.Mail
Imports System.Net.Mime.MediaTypeNames

Private Sub cmdSendMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendMail.Click

Dim htmlBody As String = "<html><body><h1>Picture</h1><br>" + _
"<img src=""cid:Pic1""></body></html>"

Dim avHtml As AlternateView = AlternateView.CreateAlternateViewFromString _
(htmlBody, Nothing, System.Net.Mime.MediaTypeNames.Text.Html)

Dim pic1 As LinkedResource = New LinkedResource("C:\Mis imágenes\Imágenes de muestra\Invierno.jpg", System.Net.Mime.MediaTypeNames.Image.Jpeg)
pic1.ContentId = "Pic1"
avHtml.LinkedResources.Add(pic1)

Dim textBody As String = "You must use an e-mail client that supports HTML messages"
Dim avText As AlternateView = AlternateView.CreateAlternateViewFromString _
(textBody, Nothing, System.Net.Mime.MediaTypeNames.Text.Plain)

Dim m As MailMessage = New MailMessage
m.AlternateViews.Add(avHtml)
m.AlternateViews.Add(avText)

m.From = New MailAddress("[email protected]")
m.To.Add("[email protected]")
m.Subject = "prueba email con imagen"
Dim client As SmtpClient = New SmtpClient("smtp.auna.com")
client.Credentials = New Net.NetworkCredential("[email protected]", "tupassword")

client.Send(m)

'probamos el envio
MsgBox("enviado")

'Revisa tu coreo y veras la imagen.........

End Sub

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

RE:envio de emails con imagenes incrustadas

Publicado por walter (6 intervenciones) el 31/05/2007 18:51:29

Mil gracias amigo... Si dio resultado

Mira, una cuestion adicional... En la ultima parte de tu codigo:

Dim client As SmtpClient = New SmtpClient("smtp.auna.com")
client.Credentials = New Net.NetworkCredential("[email protected]", "tupassword")

Estoy en mi trabajo y en la parte "smtp.auna.com", puse la direccion del servidor de correos de mi trabajo y me funciono.

El asunto es que quiero correrlo en casa, donde no tengo servidor de correos ni nada de nada, solo mi humilde PC conectada a Internet... que hago en ese caso... ???

Gracias por tu valiosa ayuda

Walter

Valora esta respuesta

Comentar

enviar emails con imagenes incrustadas

ProgressBar