Fivewin and smtp

[jacquet philippe]

I try to send a mail with smtp and it works good only when a attach a file .
In place of receiving the file , the user receive this :

name="c:\dmedi\test.doc"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
filename="TEST.DOC"

here is the code FW25 Clipper 5.3
* ===
procedure VAMAIL()
local oOutM,oOutMail, cIP ,leficj

oOutM := TSmtp():New( cIP := GetHostByName( "smtp.ulg.ac.be" ) )
sysrefresh()
oOutMail := TSmtp():New( cIP := GetHostByName( "smtp.ulg.ac.be" ) )
MsgWait("Mailing ", cIP,1 )
oOutMail:bDone = { || MsgWait("Done","Mailing ",1 ) }

oOutMail:SendMail( "jacquet@tiscali.be",; // From
{ "jacquetlg@tiscali.be" },; // To
"Test mail " ,; // Msg Text
"Essai Mail depuis BMT " , ; // Subject
{"c:\dmedi\test.doc"} ) // attached files
sysrefresh()
RETURN

Thanks for any help .
Philippe Jacquet .

[Antonio Linares]

Philippe,

We have just tested samples\TestSmtp.prg modified like this:

Code: Select all  Expand view  RUN

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


and worked fine.

[jacquet philippe]

Antonio,
does it mean that it is not possible to attach a file ?

Thanks

Philippe Jacquet

[Antonio Linares]

Philippe,

Yes, you may attach a file. In fact samples\testsmtp.prg sends an attached file.

I may have missunderstood you, do you want to send an attached file ? If so, how big is the file ?

[R.F.]

Phillipe:

Fivewins's TSMTP doesn't support different file formats for attached files, all of them are handled like text.

You will need Luis Krause's modified TSMTP class that you can download from:

www.fivewin.info.