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

[romanzi]

Хочу отправлять на один и тот-же адрес э-майл. Вот код.

procedure TForm1.Button1Click(Sender: TObject);
begin
  SMTP.Host:='smtp.yandex.ru'; // адрес почтового сервера
   SMTP.Port:=110; // порт по которому будет осуществляться подключение
   SMTP.Username:='romanzi777'; // логин пользователя
   SMTP.Password:='пароль'; // пароль пользователя
   SMTP.AuthenticationType:=atLogin; // тип подключения к серверу - с авторизацией (пишет, что тут ошибка).
   with IdMessage do
      begin
        Body.Assign(Memo1.Lines); // передача данных из memo в компонент IdMessage, для последующей отправки
            From.Text := 'romanzi777@yandex.ru'; // майл отправителя письма
        Recipients.EMailAddresses := PChar('romanzi777@yandex.ru');
        Subject := Edit1.Text; // тема письма

        end;

      SMTP.Connect; // соединение с почтовым сервером
         try
      showmessage('Произошло подключение к серверу'); // сообщение о удачном подключении к серверу
      SMTP.Send(IdMessage); // отправка письма на сервер
         finally
           SMTP.Disconnect; // разрыв соединения
         end; end;

=(

[Stilet]

А какие ошибки то выдает?

[romanzi]

 SMTP.AuthenticationType:=atLogin;

[romanzi]

Ну, что?,

Кто-то знает в чём проблема?

[SKS]

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

 SMTP.AuthenticationType:=atLogin;

Здесь скорее всего ругается на авторизацию. поставь у IdSMTP1 параметр Authentication type значение atLogin вместо atNone

[simplewww]

Такая я же проблема была, теперь всё исправлю.

[bbk_serg]

А у меня просто виснет прога(( что это может быть?

[eval]

это так называемый прогазависон

[bbk_serg]

смешно))) но я пробовал разные варианты, и все время зависает при отправке

[eval]

кто о том знает что и как вы пробовали?