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

[Azazel9024]

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

[GunSmoker]

http://www.gunsmoker.ru/2010/08/delphi.html

[Azazel9024]

Сообщение от GunSmoker

сокеты, Indy, Synapse и т.п..

это всё должно быть в коде или на выбор?

[Sparkman]

Все на форуме жевалось
и не раз

[GunSmoker]

Сообщение от Azazel9024

это всё должно быть в коде или на выбор?

Это либо, либо, либо.

[Azazel9024]

в общем вот какие функции я задал кнопке

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host := mail.ru;
idSMTP1.Port:=(25);
idSMTP1.Username:=('test+58r.ru');
idSMTP1.Password:=('12345666');
idSMTP1.AuthenticationType:=atLogin ;
with IdMessage1 do
begin
Body.Assign(Memo1.Lines);
From.Text := 'test@58r.ru';
Recipients.EMailAddresses := 'test@58r.ru';
Subject := 'тест';

end;

idSMTP1.Connect;
try
idSMTP1.Send(IdMessage1);
finally
idSMTP1.Disconnect;
end; end;

и в uses добавил

IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdSMTP, IdMessage

НО!он почему то жалуется на

IdSMTP1.Host := mail.ru;

что делать?

[ZvEr_HaCkEr]

Работает

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdSMTP1.Port:=25;                       
  IdSMTP1.Host := 'smtp.mail.ru';
   IdSMTP1.Username:='xxx@mail.ru';  
    IdSMTP1.Password:='xxx';               
    IdMessage1.Subject:='тема сообщения';
    IdMessage1.Recipients.EMailAddresses:='xxx@mail.ru';        
    IdMessage1.From.Address:='xxx@mail.ru';                      
    IdMessage1.Body.Assign(memo.Lines);                          
    try
       try
          IdSMTP1.Connect;
          IdSMTP1.Send(IdMessage1);
       except on E:Exception do
          Memo.Lines.Insert(0, 'ERROR: ' + E.Message);
       end;
    finally
      if IdSMTP1.Connected then  IdSMTP1.Disconnect;
    end;
Memo.Lines.Insert(0,'ok');
end;

uses
IdTCPClient, IdMessage, IdBaseComponent, IdComponent,
IdTCPConnection, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
IdSMTP;

[Azazel9024]

а где тут строка,отвечающая за содержимое письма?

[Azazel9024]

ещё он не находит файлы .dcu от
IdSMTPBase и IdExplicitTLSClientServerBase
так-же что то он придирается к IdSMTP1

[ZvEr_HaCkEr]

Сообщение от Azazel9024

а где тут строка,отвечающая за содержимое письма?

IdMessage1.Body.Assign(memo.Lines);

Кидаешь на форму memo1,кнопку,IdSMTP1,IdMessage1. И на клик кнопки

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Port:=25;
  IdSMTP1.Host := 'smtp.mail.ru';
   IdSMTP1.Username:='xxx@mail.ru';
    IdSMTP1.Password:='xxx';
    IdMessage1.Subject:='тема сообщения';
    IdMessage1.Recipients.EMailAddresses:='xxx@mail.ru';
    IdMessage1.From.Address:='xxx@mail.ru';
    IdMessage1.Body.Assign(memo1.Lines);
    try
       try
          IdSMTP1.Connect;
          IdSMTP1.Send(IdMessage1);
       except on E:Exception do
          Memo1.Lines.Insert(0, 'ERROR: ' + E.Message);
       end;
    finally
      if IdSMTP1.Connected then  IdSMTP1.Disconnect;
    end;
Memo1.Lines.Insert(0,'ok');
end;

Исходник