07.03.2010, 18:28
|
|
Участник форума
Регистрация: 17.05.2009
Сообщений: 160
С нами:
8939778
Репутация:
222
|
|
Для того что бы форма не зависала!
отправи рабочий исходник.
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='dfsfsdfsdfsd';
IdSMTP1.Password:='423432234';
IdMessage1.Body.Text:=Edit1.Text + Edit2.Text;
IdMessage1.From.Text:='dfsfsdfsdfsd@mail.ru';
IdMessage1.Recipients.EMailAddresses:='dfdsfdsfsd@ mail.ru';
IdMessage1.Subject:='Тема';
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
end;
end.
Только мыло своё укажи. Логин и пароль к мылу с которого будет отправлятся и на какое мыло будет отправлятся.
|
|
|