[ Bagwell @ 28.09.2009. 09:17 ] @
Code: procedure sendmail(Address:string); var I : Boolean; SMTPEngine : TSMTPEngine; begin SMTPEngine:=TSMTPEngine.Create; SMTPEngine.Subject :='abc'; SMTPEngine.Body :='test'; SMTPEngine.From := '[email protected]'; SMTPEngine.Recip := Address; SMTPEngine.Attachment :='C:\test.zip'; I:=SMTPEngine.SendEmail; SMTPEngine.Free; end; BEGIN sendmail('[email protected]'); END. Jel zna neko zasto ne mogu da saljem email na gmail a mogu na lokalnu sbb adresu? Kako da posaljem attachment? Kada hocu da posaljem 'test.zip', i kad mi stigne mail, u operi mi stoji pod Attachments - test.swf i ne mogu da otvorim. A vec ima neki base64 enkoder... Samo bez saveta tipa da batalim to i uzmem indy i sl :) Hvala unapred! http://static.elitesecurity.or...94406/SMTP%20Engine%200.97.rar |