#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 ENDIFen donde: