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.
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