Хочу рассылать сообщения- вот тут такая проблема: использую компонент TIdsmtp(Indy)
незнаю как отослать сообщения ненахожу методов PostMessage.Body ,PostMessage.ToAdress.Add
 Хотя такие методы были у компонента TNSMTP в Delphi 5. Может кто занет как это c Indy компонентами реализовать? 
| Код |
procedure ConnectInternet;
begin
Form1.IdSMTP1.Host:='10.234.12.100';
form1.IdSMTP1.Port:=25;
form1.IdSMTP1.Connect;
end;
|
| Код |
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
table1.First;
while not table1.Eof do
begin
if table1.FieldbyName('оператор').AsString='UMC' then
begin
Tel:=Table1.FieldByName('Номер').AsString;
ConnectInternet;
// дальше не знаююююююю
end;
|
|