отправка данных на e-mail

[Azazel9024]

у меня дельфи седьмой..

[Azazel9024]

ну так что?есть рабочий способ для дельфи7?

[Azazel9024]

остаётся только качать 2010 дельфи?

[niki2012]

Создаете объект idSMTP из вкладки indy clients,
полю AutheneficationType присваиваете atLogin,
создаете объект idMessage из вкладки indy misc,
кидаете на форму idAntiFreeze из той же вкладки,
а дальше

IdSMTP1.Port:=25;                       
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Username:='login';  
IdSMTP1.Password:='password';
IdMessage1.Subject:='тема сообщения';
IdMessage1.Recipients.EMailAddresses:='получатель@mail.ru';
idMessage1.From.text:='login@mail.ru';                      
IdMessage1.Body.Text:='Text';

idsmtp1.connect;
if idsmtp1.connected then
begin
  idsmtp1.send(idMessage1);
  idsmtp1.disconnect;
end;

[Winnerer]

остаётся только качать 2010 дельфи?

а какая разница?

niki2012, автор поста хотел сделать свой сервер smtp, а не использовать сторонний

я бы посоветовал гуглить

[Пепел Феникса]

niki2012, автор поста хотел сделать свой сервер smtp, а не использовать сторонний

а помоему всетаки клиент а не сервер

а какая разница?

разница в том что в Д2010 в отличие от Д7, String=UnicodeString, а не AnsiString

[Azazel9024]

вот такой код получился
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Port:=25;
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Username:='моёмыло@mail.ru' ;
IdSMTP1.Password:='пароль';
IdMessage1.Subject:='тема';
IdMessage1.Recipients.EMailAddresse s:='моёмыло@mail.ru';
idMessage1.From.text:='моёмыло@mail .ru';
IdMessage1.Body.Text:='Edit1.Text, Edit2.Text';

idsmtp1.connect;
if idsmtp1.connected then
begin
idsmtp1.send(idMessage1);
idsmtp1.disconnect;
end;

НО!
в самом файле вот такая ошибка
http://floomby.ru/content/2jFMEXHtGk/

[ZvEr_HaCkEr]

Качай рабочий исходник.

[Azazel9024]

снова всем привет
я уже по другой теме обращаюсь к вам..)
в общем я решил написать простейшую программу,там будет поле ввода и кнопка ОК,если код верный,приложение закрывается,если нет,то выводится соответств. сообщение.я сделал вот такой вот код

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '11' then
showmessage ('Правильно');
close;
else
showmessage ('Не правильно')

end;

end.

ну в общем ясно,да?мне надо,чтобы в случае того,если код введён верно,было показано нужное сообщение,затем только закрытие.вот в этом и проблема.showmessage в правильном случае так и не влазиет в код.помогите пожалуйста,что я не так делаю?заранее спасибо