Ошибка при отправке E-Mail

[POPOV]

Здравствуйте имеется небольшая программа на Delphi, которая отправляет E-Mail определённом пользователю при нажатии на кнопку.

Вот код кнопки:

procedure TForm1.BitBtn1Click(Sender: TObject);
//var msg:TIdMessage;
begin
  if Edit1.Text='' then
    ShowMessage('Ââåäèòå Âàøó ôàìèëèþ è èìÿ')
  else
  if Edit2.Text='' then
    ShowMessage('Ââåäèòå Âàø òåëåôîí')
  else
  if Edit3.Text='' then
    ShowMessage('Ââåäèòå Âàø àäðåñ')
  else
  if RichEdit1.Text='' then
    ShowMessage('Ââåäèòå îïèñàíèå çàÿâêè')
  else
  {if saveDialog1.Execute Then
    RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);}
  begin
    IdSMTP1.AuthenticationType:=atLogin;
    IdSMTP1.Host:='smtp.gmail.com';
    IdSMTP1.Port:=25;
    IdSMTP1.Username:='mymail@gmail.com';
    IdSMTP1.Password:='mypass';
    IdMessage1.CharSet := 'UTF-8';
    IdMessage1.ContentTransferEncoding := '8bit';
    IdMessage1.ContentType:='text/plain';
    with idmessage1 do
    begin
      Body.Text:='Список групп';
      From.Text := 'mymail@gmail.com';
      Recipients.EMailAddresses := 'pochtafriend@mpt.ru';
      Subject := 'Список групп';
    idSMTP1.Connect;
    idSMTP1.Send(IdMessage1); 
    idSMTP1.Disconnect; 
    end;
  end;
end;

Проблема заключается в том, что при нажатии кнопки появляется ошибка "5.7.0 Must issue a STARTTLS command first":


В чем причина?? Кстати, при отправки с яндекса или на яндекс пишет ошибку про спам.

[Slym]

gmail.com говорит что хочет шифроваться используя STARTTLS метод
подключай шифрульку IdSSLIOHandlerSocketOpenSSL к idSMTP1
и врубай TLS idSMTP.UseTLS

[POPOV]

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

gmail.com говорит что хочет шифроваться используя STARTTLS метод
подключай шифрульку IdSSLIOHandlerSocketOpenSSL к idSMTP1
и врубай TLS idSMTP.UseTLS

Теперь пишет: "Could not load SSL library".

Кстати, забил на gmail и попробовал на yandex. Там ошибка про SPAM.

[Slym]

http://programmersforum.ru/showthread.php?t=195561

[POPOV]

Всё понял, спасибо