[EleGant]

На данный момент у меня такой код:

Код:

procedure TForm2.Button3Click(Sender: TObject);
begin
  TIdAttachment.Create(IdMessage1.MessageParts, 'c:\text.txt');
   IdSMTP1.Host:='http://smtp.site.ru'; // сервер исходящей почты (SMTP)
   IdSMTP1.Port:=25;    // порт SMTP сервера
   IdSMTP1.Username:='****';  // ваш логин
   IdSMTP1.Password:='****';     // ваш пароль
   IdSMTP1.Authenticate;
       with IdMessage1 do
               begin
               Body.Assign(Memo1.Lines);    // текст письма
               From.Text := 'name@site.ru'; //  ваш e-mail адрес
               Recipients.EMailAddresses := 'name1@site.ru';     // адрес получателя
               Subject := 'test1';  // тема сообщения
               end;

IdSMTP1.Connect;
       try    
         showmessage('Conneted');
         IdSMTP1.Send(IdMessage1);
       finally
         IdSMTP1.Disconnect;
       end;    end;

Выдает ошибку...что то про Socket 11004