[DELPHI] smtp клиент

[Ant1Player]

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

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;
ошибка в строчке Body.Assign(Edit1.text);

[Dosia]

Body.Add(Edit1.text);

Когда то давно кодил: пример посылки письма с аттачем (http://dump.ru/file/3295699)

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

[RumShun]

Body.Assign(Edit1.text); у тебя типы не совподают там не string, а TStrings
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;

[Ant1Player]

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

[e4key]

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

IdSMTP1.Helo;

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

[!nik!]

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

IdSMTP1.Helo;

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

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

[Ant1Player]

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

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

[Vlad3d]

[Error] Unit3.pas(50): Undeclared identifier: 'Helo'
эта ошибка потому что нет "idSTMP1.Helo"
idHttp1.Send('helo') или как то так...не помню

[Ant1Player]

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

[Ant1Player]

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

[HakaR]

Ну и молодец!:)

[RumShun]

а при idHttp1.Send('helo')
[Error] Unit3.pas(61): Incompatible types: 'TIdMessage' and 'String' кодер блин...