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