[DELPHI] smtp клиент

что делаю не так?

PHP:

begin 
   IdSMTP1.Host:='smtp.mail.ru';
   IdSMTP1.Port:=25;
  IdSMTP1.Username:='io';
   IdSMTP1.Password:='*****';
   IdSMTP1.AuthenticationType:=atLogin;
   with IdMessage1 do
      begin
        Body.Assign(Edit1.text);
        From.Text := 'ddd';
        Recipients.EMailAddresses := 'dd';
        Subject := '==';

        end;

      IdSMTP1.Connect;
         try
      showmessage('Ïðîèçîøëî ïîäêëþ÷åíèå ê ñåðâåðó');
      IdSMTP1.Send(IdMessage);
         finally
           IdSMTP1.Disconnect;
         end;

ошибка в строчке

PHP:

 Body.Assign(Edit1.text);

 

Body.Add(Edit1.text);

Когда то давно кодил: пример посылки письма с аттачем

Параметры только нужные передай функции SendMail

 

у тебя типы не совподают там не string, а TStrings

Code:

var
 bodytext: TStringList;
begin
 bodytext:=TStringList.Create;
 bodytext.Add(Edit1.text);
 IdSMTP1.Host:='smtp.mail.ru';
 IdSMTP1.Port:=25;
 IdSMTP1.Username:='io';
 IdSMTP1.Password:='*****';
 IdSMTP1.AuthenticationType:=atLogin;
 with IdMessage1 do
  begin
   IdMessage1.Body.Assign(bodytext);
   From.Text := 'ddd';
   Recipients.EMailAddresses := 'dd';
   Subject := '==';
  end;
 IdSMTP1.Connect;
 try
  showmessage('I?iecioei iiaee??aiea e na?aa?o');
  IdSMTP1.Send(IdMessage);
 finally
  IdSMTP1.Disconnect;
 end;

 

Спасибо! но теперь компилиться нормально а при нажатии на кнопку отправки пишит
Syntactically invalid HELO argument(s)
Что это может быть?

 

В delphi не шарю, но серверу нужно скзазать helo

IdSMTP1.Helo;

если не ошибаюсь, то сказать надо сразу после connect'a.

 

Да-да... вроде надо)

 

написал
IdSMTP1.Helo;
пишит
[Error] Unit3.pas(50): Undeclared identifier: 'Helo'

Пошарился в гугле все примеры без этой строчки...
как же ее правильно написать..

 

deleted

 

а при idHttp1.Send('helo')
[Error] Unit3.pas(61): Incompatible types: 'TIdMessage' and 'String'

 

ладно, спасибо всем, понел что это тупит mail.ru на рамблере не просит не каких хело..

 

Ну и молодец!

 

кодер блин...