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>&nbsp;</p>"+;
           "<table width='600' border='0'>"+;
           vtabla+;
           "</table><p>&nbsp;</p><p>"+ALLTRIM(vpiecorreo)+"</p>"
           .SendMail()
       ENDWITH
    ELSE
      WITH obj
            .subject = ALLTRIM(vasunto)
            .body = "<p>"+ALLTRIM(vcontenido)+"</p><p>&nbsp;</p>"+;
            "<table width='600' border='0'>"+;
            vtabla+;
            "<tr><td><img src="+alltrim(vrutalogo)+"/></td></tr></table><p>&nbsp;</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.