>TRY > LOCAL lcSchema, loConfig, loMsg, loError, lcErr > lcErr = "" > lcSchema = "http://schemas.microsoft.com/cdo/configuration/" > loConfig = CREATEOBJECT("CDO.Configuration") > WITH loConfig.FIELDS > .ITEM(lcSchema + "smtpserver") = "smtp.gmail.com" > .ITEM(lcSchema + "smtpserverport") = 465 && ó 587 > .ITEM(lcSchema + "sendusing") = 2 > .ITEM(lcSchema + "smtpauthenticate") = .T. > .ITEM(lcSchema + "smtpusessl") = .T. > .ITEM(lcSchema + "sendusername") = "MY_USER@gmail.com" > .ITEM(lcSchema + "sendpassword") = "MY_PASSWORD" > .UPDATE > ENDWITH > loMsg = CREATEOBJECT ("CDO.Message") > WITH loMsg > .Configuration = loConfig > .FROM = "MY_USER@gmail.com" > .TO = "TO_USER@gmail.com" > .Subject = "Prueba desde Gmail " + TIME() > >*** Note: Remove the spaces below the symbol < to the tags p> /p> and img >*** I know no other way to put the correct HTML code :-( > > TEXT TO lcBody noshow PRETEXT 7 > < p>Ejemplo de imagen embebida< /p> > < p>< img src="cid:fox-image-bmp">< /p> > ENDTEXT > > .HTMLBody = lcBody > > *--- Embedded image file > loBP = .AddRelatedBodyPart( HOME(1) + "fox.bmp", "fox-image-bmp", 1) > WITH loBP > .FIELDS.ITEM("urn:schemas:mailheader:Content-ID") = "fox-image-bmp" > .FIELDS.UPDATE > ENDWITH > > .SEND() > ENDWITH >CATCH TO loError > lcErr = [Error: ] + STR(loError.ERRORNO) + CHR(13) + ; > [Linea: ] + STR(loError.LINENO) + CHR(13) + ; > [Mensaje: ] + loError.MESSAGE >FINALLY > RELEASE loConfig, loMsg > STORE .NULL. TO loConfig, loMsg > IF EMPTY(lcErr) > MESSAGEBOX("El mensaje se envió con éxito", 64, "Aviso") > ELSE > MESSAGEBOX(lcErr, 16 , "Error") > ENDIF >ENDTRY >