Envio de emails con imagenes embebidas

Último artículo 05-24-2007 14:01 escrito por Makinsc. 2 respuestas.

Página 1 de 1 (3 elementos)
	Ordenar mensajes: Anterior Siguiente

05-22-2007 6:47

walterjpv
Se unió el 05-22-2007
Envíos: 1
Puntos: 0

Envio de emails con imagenes embebidas

Respuesta Contactar

Amigos

Estoy haciendo una aplicacion que envia emails pero necesito que las imagenes que coloque, lleguen a su destino embebidas en el correo y no como atachments (adjunto).. como cuando nos llega una publicidad a nuestro correo, lo abrimos e inmediatamente visualizamos la imagen....

No he podido realizar este paso todavoia. Podrian ayudarme

Estoy trabajando con VS2003 y en WINFORMS

Gracias

Walter

Puntos de post: 0

05-24-2007 10:49 en respuesta a

carofe
Se unió el 02-24-2007
Envíos: 30
Puntos: 155

Re: Envio de emails con imagenes embebidas

Respuesta Contactar

Envia el cuerpo del Email en formato HTML.

Puntos de post: 0

05-24-2007 14:01 en respuesta a

Makinsc
Se unió el 03-20-2007
Envíos: 16
Puntos: 150

Re: Envio de emails con imagenes embebidas

Respuesta Contactar

Cuando hablas de VS2003 supongo que estas trabajando con Framework 1.X, por lo
que lopuedes usar de la siguiente manera :

Dim correo As New System.Web.Mail.MailMessage
System.Web.Mail.MailMessage correo = new System.Web.Mail.MailMessage();
' El remitente
correo.From = txtDe.Text
' A quién va dirigido
correo.To = txtPara.Text
' El asunto
correo.Subject = txtAsunto.Text
' El cuerpo o texto del mensaje
correo.Body = "<html><head></head><body>" & txtTexto.Text & "</body></html>"
' El formato del mensaje (texto o html)
correo.BodyFormat = System.Web.Mail.MailFormat.html
' La prioridad (baja, normal o alta)
correo.Priority = System.Web.Mail.MailPriority.Normal

System.Web.Mail.SmtpMail.SmtpServer = "servidor de correo" ' Ej:smtp.miservidor.com

Try
    System.Web.Mail.SmtpMail.Send(correo)
    LabelError.Text = "Mensaje enviado satisfactoriamente"
Catch ex As Exception
    LabelError.Text = "ERROR: " & ex.Message
End Try 

Si tu servidor requiere autenticacion sería de la siguiente forma

un ejemplito es este


			
	    Dim email As New System.Web.Mail.MailMessage

               email.From = "mail@from.com"

                email.Fields ("http://schemas.microsoft.com/cdo/configuration/smtsperver") = "SMTPServerName "

                email.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

                email.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2



                email.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

                email.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "SMTPAUTHUser "

                email.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SMTPAUTHPassword"

                email.To = "destinoi@mail.com"

                SmtpMail.SmtpServer = "tu_server_smtp"

                SmtpMail.Send(email)


Creo que ya con esto lo sacas facil.
cuentanos que tal te fue.

Un Saludo

Puntos de post: 0

Página 1 de 1 (3 elementos)

DotNetClubs