ASP - Imagen embebida CDONT

   
Vista:

Imagen embebida CDONT

Publicado por Carina (3 intervenciones) el 04/06/2009 15:51:49
Hola a todos: tengo el siguiente codigo con el que mando mail, funciona de 10

Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Dim objBP

' Se configuran los parametros necesarios para el envío
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Se completan los datos del usuario y la contraseña necesarios para el envio
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = usuario_smtp iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
password_para_STMP
iConf.Fields.Update
' Se asignan las propiedades de configuración al objeto
Set oMail.Configuration = iConf
' Destinatario del correo
oMail.To = "xxxxxxxxxxx@hotmail.com"
' Remitente del correo
oMail.From = "xxxxxxxxxxx@hotmail.com"
' Subject o asunto
oMail.Subject = "prueba"
' Cuerpo del mensaje
oMail.htmlBody = strbody'"Este es un e-mail enviado desde la página de ejemplo de Ferozo Windows Edition"
Set objBP = oMail.AddRelatedBodyPart(Server.MapPath("imagenes/img_logo.gif"), "img_logo", CdoReferenceTypeName)

objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<img_logo>"
objBP.Fields.Update
' Se envía el correo
oMail.Send

El problema es que tengo que mostrar mas de una imagen y solo me toma la ultima que pongo, como hago para mostrar varias?

Muchas gracias
Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder