Отправка на e-mail

[bbk_serg]

Вот код например

procedure TForm1.Button1Click(Sender: TObject);
begin
  with IdSMTP1 do
   begin
     Host := 'smtp.ukr.net';
     Port:=465;
     AuthenticationType:=atLogin;
     Username:='****';
     Password:='****';
   end;

  with IdMessage1 do
    begin
      Body.Assign(Memo1.Lines);
      From.Text:='*****';
      Recipients.EMailAddresses:=Edit6.Text;
      Subject:=Edit1.Text;
   end;

IdSMTP1.Connect;
   try
     showmessage('Произошло подключение к серверу');
     IdSMTP1.Send(IdMessage1);
   finally
     IdSMTP1.Disconnect;
   end;
end;

[eval]

а зависает где?

[bbk_serg]

неизвестно... нажал отправить и все - висит, никаких ошибок, ничего((

[eval]

про точки останова, да и ваще про дебагер слышали?

[Кольша]

самый простой вариант messagebox или showmessage после каждой строчки кода.

[bbk_serg]

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

про точки останова, да и ваще про дебагер слышали?

нет не слышал

[bbk_serg]

походу виснет здесь

IdSMTP1.Connect;

[bbk_serg]

я нашел проблему))) нужно использовать SSL))) но как, незнаю(((

[Stilet]

http://www.programmersforum.ru/showthread.php?t=23049
Вообще у меня есть пример подключения SSL, но он для FTP. Могу в целом выложить, если поможет.