TESTSMTP - Enviar imagem???

[MGA]

Estou usando o FWH802\SAMPLES\TESTSMTP.PRG para enviar uma imagem, porem ao abrir o email, a imagem vem em forma de caracter não como arquivo JPG que enviei???


function SendMail()

local oOutMail, cIP

oWnd:SetMsg( "Sending Internet email..." )

WSAStartup()
oOutMail := TSmtp():New( cIP := GetHostByName( "smtp.fivetechsoft.com" ) )
MsgInfo( cIP )

oOutMail:bConnecting = { || oWnd:SetMsg( "Connecting to smtp.fivetechsoft.com..." ) }
oOutMail:bConnected = { || oWnd:SetMsg( "Connected" ) }
oOutMail:bDone = { || oWnd:SetMsg( "Message sent successfully" ) }

oOutMail:SendMail( "alinares@fivetechsoft.com",; // From
{ "alinares@fivetechsoft.com" },; // To
"It is working!!!",; // Msg Text
"Testing FiveWin Class TSmtp enhancements",; // Subject
{ "imagem.jpg" } ) // attached files

return nil