>Este es mi código en visual foxpro en donde envio el correo.
>
>
>#DEFINE CrLf Chr(13)+Chr(10)
>LOCAL obj
>
>obj = CreateObject("Tsmtp", cServer, cSender, cRecipient)
>IF VARTYPE(obj) <> "O"
> =MessageB("No se puede inicializar objeto Tsmtp. " + Chr(13) +;
> "Compruebe Nombre del Servidor, Remitente, Destinatario y los parámetros. ", 48, " Error")
> RETURN(.f.)
>ELSE
> IF EMPTY(vrutalogo)
> WITH obj
> .subject = ALLTRIM(vasunto)
> .body = "<p>"+ALLTRIM(vcontenido)+"</p><p> </p>"+;
> "<table width='600' border='0'>"+;
> vtabla+;
> "</table><p> </p><p>"+ALLTRIM(vpiecorreo)+"</p>"
> .SendMail()
> ENDWITH
> ELSE
> WITH obj
> .subject = ALLTRIM(vasunto)
> .body = "<p>"+ALLTRIM(vcontenido)+"</p><p> </p>"+;
> "<table width='600' border='0'>"+;
> vtabla+;
> "<tr><td><img src="+alltrim(vrutalogo)+"/></td></tr></table><p> </p><p>"+ALLTRIM(vpiecorreo)+"</p>"
> .SendMail()
> ENDWITH
>ENDIF
>
>
>
>en donde:
>vrutalogo = Es la variable en donde coloco la ubicación de la imagen sea en un servidor web, o en el disco duro del Pc´s.
>vcontenido = Es la variable en donde se escribe el contenido del cuerpo del E-mail.
>vasunto = Es la variable en donde se coloca el asunto del E-mail.
>vpiecorreo = Es la variable en donde se escribe el contenido del final del E-mail.
>
>
>Cuando coloco en la variable "vrutalogo" que la imagen se encuentra en un servidor web si funciona, pero cuando le coloco que la ubicacion de la imagen está en el Pc´s No funciona.
>
>Por favor hay una solución para esto.
>
>Muchas Gracias de Antemano.
Mira este articulo de
www.PortalFox.com, alli esta el metodo para embeber imagenes en un correo electronico desde un archivo de la PC:
-- Mas sobre el envio de mensajes de correo electrónico desde Visual FoxPro --
http://www.portalfox.com/article.php?sid=2626
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de
www.PortalFox.comNada corre como un zorro
________________________________