c0smyn Posted January 2, 2009 Report Share Posted January 2, 2009 1. Adaugati pe form un Idsmtp, Idmessage, Memo si un button.2. Dam 2click pe button si punem acest codwith IdMessage1 do beginFrom.Address := 'fake_address@yahoo.com';From.Name := 'fake_name';Subject := 'Subject';Sender.Address := 'fake_address@yahoo.com';Sender.Name := 'fake_name';ReplyTo[0].Address := 'fake_address@yahoo.com';ReplyTo[0].Name := 'fake_name';Recipients[0].Address := 'VICTIM_MAIL@yahoo.com';ReceiptRecipient.Address := 'VICTIM_MAIL@yahoo.com';Body := memo1.lines; end;with IdSMTP1 do beginHost := 'mail.hotmail.com';UserName := 'your_user@hotmail.com';Password := 'your_password';Port := 25;Connect;{Send Mail}IdSMTP1.Send(IdMessage1);if connected = true then Disconnect;ShowMessage('Mesaj Trimis!');{Send Mail} end;Trebuie sa folositi indy 10 pentru a putea compila proiectu.Enjoy Quote Link to comment Share on other sites More sharing options...