aspmail e imagen en hotmail

Engormix · #1 (**permalink**) 27/03/2002, 07:41

Antes utilizaba cdonts y enviaba mis mails con un atach .jpg y hacia referencia a él en el codigo html y me aparecia correctamente en hotmail. Ahora uso aspemail hago lo mismo pero el jpg me aparece graficado como adjunto abajo del cod html y no inserto en el mismo como antes. La visualización de mis mails es muy distinta ahora.
Alguien sabe como hacer?? No me es posible tampoco poner toda la ruta de la imagen... www.misitio.com/rt.jpj porque vuelvo a locos a los que tienen casillas pop3 pidiendo reconexion para ver la imagen.
saludos

caam · #2 (**permalink**) 27/03/2002, 16:28

Hola, puedes utiliar cdo.message en ves de cdnots o aspmail, anteriormente tenia ese problema pero la manera aunque mas laboriosa de hacerlo fue realizar un upload de archivos de modo tal que al subir cualquier archivo, sea imagen, texto, etc, descompones la direccion donde lo estas almacenando en el servidor creando una cookie que te guarde el nombre de tu archivo, despues ese valor de cookie se lo vas a pasar como una cadena a una variable que va tener la direccion de tu directorio donde estas almacenado los archivos que suben, solo le anexas a esa direccion el valor de la cookie, para completar de forma correcta la ruta y asi cualquier imagen o archivo que sea utilizando cuaquier version de iis funciona, es maqs o menos algo asi:

en la pagina de tu upload pones:
ruta=server.mappath("\la ruta de tus archivos que subes" & FileName &"")
response.cookies("archivo")=ruta
donde FIleName es el nombre de tu archivo

despues en la pagina de donde se envia el correo pones:
archivo=Request.cookies("archivo")
Dim objCDO

Set objCDO = Server.CreateObject("CDO.Message")

With objCDO

.To = strto
.From = strfrom
.Subject = strsubject
.HtmlBody = strbody
.AddAttachment archivo

.Send
End With
Set objCDO = Nothing

y listo cualuier duda me escribes.

ashketchum · #3 (**permalink**) 27/03/2002, 18:49

Es bastante raro, ocupo el ASPeMail sin ningún problema y tambien envio correo en HTML a ver, te mando este código comparalo con el tuyo y me cuentas -_- :

Código:

 Set Mail = Server.CreateObject(&quot;Persits.MailSender&quot;)
Mail.Host = &quot;[email protected]&quot;
Mail.FromName = &quot;tunombre&quot;
Mail.AddAddress Request.Form(&quot;campo&quot;)
Mail.Subject = &quot;Titulo del mail&quot; 
Mail.Body = &quot;&lt;HTML&gt;&lt;BODY BGCOLOR=#FFFFFF&gt;&lt;table width=100% border=0 class=all&gt;&lt;tr&gt;&lt;td&gt;&lt;img src=http://www.tusitio.com/images/imagen.gifwidth=192 height=137&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td bgcolor=#000000&gt;&amp;nbsp;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Estimado(a): Usuario&lt;/td&gt;&lt;/tr&gt;  &lt;tr&gt;&lt;td&gt;A continuaci&amp;oacute;n encontrar&amp;aacute;s la informaci&amp;oacute;n de acceso a tu curr&amp;iacute;culum vitae&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td class=Fondo&gt;&lt;div align=center&gt;Usuario: &lt;font color=#000099&gt;&quot;&amp;usuario&amp;&quot;&lt;/font&gt;&lt;br&gt;Password: &lt;font color=#000099&gt;&quot;&amp;contrasena&amp;&quot;&lt;/font&gt;&lt;/div&gt;    &lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;&amp;nbsp;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;&lt;font color=#FF0000&gt;Departamento de sistemas de informaci&amp;oacute;n&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td bgcolor=#000000&gt;&lt;div align=center&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&lt;/BODY&gt;&lt;/HTML&gt;&quot;
Mail.IsHTML = true
'Aqui pongo los errores que lleguen a salir, espero que funcione ok?
On Error Resume Next
Mail.Send ' ó Mail.SendToQueue
If Err &lt;&gt; 0 Then
Response.Write &quot;An error occurred: &quot; &amp; Err.Description 
End If

es más hasta ocupo CSS y si funciona, checa que tienes mal y si no me dices y te ayudo

saludos y suerte

@sh (Maestro Pokémon trajo esto para tí) :-p <br> Fomentando el concepto "INTERNET"