enviar un email con imagenes

leophp · #1 (**permalink**) 20/02/2004, 15:39

Hola

Como hay que hacer para enviar un email con formato html y ademas de texto unas imagenes.

Pera el envio de correo uso cdonts

Saludos

pdjazr · #2 (**permalink**) 20/02/2004, 17:27

Lo que debes hacer es enviar el mail en formato html y te enviara las imagenes tambien.....

<html>

<%@ Language=VBScript %>


<body>

<%
'Option Explicit
'----Declaro variables
Dim sDestinatario, sAsunto, sCuerpo, emattach
Dim ObjetoCDO, emailista, I, J
Dim Ob_Conn, Ob_RS, SQL
Dim Nombre, Email, Alta, dsn, remitente, ANEXO
on error resume next
'************************************************* *********************************************
'ESCRIBIR DENTRO DE LAS COMILLAS("...") *
dsn = "mercurio" 'Nombre de la conexion DSN que hayas pedido a tu proveedor de web hosting. *
remitente = "[email protected]" 'La direccion de Email del Remitente. *
'************************************************* *********************************************
'----Obtengo el Formulario
sAsunto = Trim(CStr(Request.Form ("asunto")))
sCuerpo = Trim(CStr(Request.Form ("mensaje")))
'----Fuerzo la ejecucion del script a 4 minutos
Server.ScriptTimeout = 999999
'----Abro la conexión
SQL="SELECT * FROM Mitabla"
'set Ob_Conn = Server.CreateObject ("ADODB.Connection")
'oConn.Open "correo" '----Nombre de la conexion DSN
'----Obtengo la tabla con las direcciones de Email en GetRows, y libero la BD.
set oRS = oConn.Execute(SQL)

'---- Le asigno los nombre a los ejes de la matriz, y empiezo a recorrerla
'para mandar cada uno de los e-mails cargados en la BD.
'Nombre = 1
'Email = 2
'Alta = 3
Response.Write(emailista)
Response.Write("<center>")
Response.Write("<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""550"">")
Response.Write("<TR>")
Response.Write("<TD><B><p align=""center""><font size=""3"" face=""Verdana"" width=""200"">Los Emails fueron enviados con exito a :</B></TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("</center>")

Do while not oRs.EOF

sDestinatario = oRs("email").value

'--------------------------
'Creamos una instancia del objeto CDO
Set ObjetoCDO = Server.CreateObject("CDONTS.NewMail")

Anexo = Session("Anexo")
'Anexo = Server.MapPath(".") & anexo

Response.Write(anexo)

'Anexo = "c:\documentos\xx.jpg"

'Asignamos las propiedades al objeto
ObjetoCDO.From = "[email protected]"
ObjetoCDO.To = sDestinatario
ObjetoCDO.Subject = sAsunto
ObjetoCDO.Body = sCuerpo
ObjetoCDO.BodyFormat = 1
ObjetoCDO.MailFormat = 1
ObjetoCDO.AttachFile Anexo
'Enviamos el e-mail
ObjetoCDO.Send
'-----------------------
Response.Write("<center>")
Response.Write("<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""250"">")
Response.Write("<TR>")
Response.Write("<TD><font size=""2"" face=""Verdana"" width=""200"">"&sDestinatario&"<br></TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("</center>")

oRS.movenext

Loop

'----Cierro la conexión.
oRs.Close
oConn.Close
set oRs=nothing
set oConn=nothing

'----Cierro la conexión
Response.Write("<center>")
Response.Write("<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""550"">")
Response.Write("<TR>")
Response.Write ("<TD><p align=""center""><a href="& Request.ServerVariables("HTTP_REFERER") & "><font size=""3"" face=""Verdana"" width=""200"" ><b><br>Volver<br></b></a></p></TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("</center>")

%>

</body>
</html>