Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Envío de Mail con CDOSYS (Body con imagen de fondo)

21/09/2004 - 01:33 por Búho | Informe spam
Ayuda Hacer una pregunta
A través del OE(Outlook Express etc etc) se puede enviar correos, formato
HTML, con imagen de fondo...
La imagen se almacena en el mensaje y con la etiqueta:
<BODY background=cid:000a01c49f69$e9eb7040$01c8a8c0@xxxxx>
luego se muestra en el mensaje, como fondo.

Esto mismo quería yo hacer a través del CDOSYS (En realidad no es para una
ASP, es para un ejemplo de VBA)a traves de los
http://schemas.microsoft.com/cdo/co...ion/XXXXXX

Enviar el cuerpo del mensaje en formato hatml lo sé hacer
No sé si será posible mi pretensión. Lo pregunto aquí en el grupo ASP, ya
que el codigo de envío es muy similar en ASP al que se hace desde VBA o VB.
Gracias.-


Saludos desde Valladolid
Francisco Javier García Aguado
buhonews@mvp-access.com

http://www.mvp-access.com/buho
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
Mi Perfil de MVP en Microsoft:
http://tinyurl.com/6ysvu




Este correo ha sido testeado y no tiene virus (Al menos conocidos). Saludos
de Francisco Javier García Aguado (Buho)
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.766 / Virus Database: 513 - Release Date: 17/09/2004
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Sashka
21/09/2004 - 23:47 | Informe spam
Hola Paco :))
Para eso se usa AddRelatedBodyPart
http://msdn.microsoft.com/library/d...mlbody.asp

Un ejemplo...
... aca va la configuración
Set Flds = Nothing
With iMsg
Set .Configuration = iConf

Dim strHTML As String
strHTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
strHTML = strHTML & "<HTML>"
strHTML = strHTML & " <HEAD>"
strHTML = strHTML & " <TITLE>ejemplo</TITLE>"
strHTML = strHTML & " </HEAD>"
strHTML = strHTML & " <BODY background=""zebras.gif""><P>"
strHTML = strHTML & " background</P>"
strHTML = strHTML & " </BODY>"
strHTML = strHTML & "</HTML>"

.To = ""
.subject = "probando"
.HTMLBody = strHTML
.AutoGenerateTextBody = False
.AddRelatedBodyPart "C:/imagenes/zebras.gif", "zebras.gif",
cdoRefTypeLocation ' Si aca le pones el otro valor posible (cdoRefTypeId),
entonces se adjunta la imagen
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing

Sashka

"Búho" escribió en el mensaje
news:
Mostrar la cita
VB.
Mostrar la cita
Saludos
Mostrar la cita

Preguntas similares

 

Busqueda sugerida :