Отправка почты Delphi 2009

[Aero1]

Подскажите пожалуйста как отправить письмо в delphi2009

вот код программы, выдает ошибку в аутентификации
нашел код но везде написано поставьте в свойстве компонента
IdSmtp AuthType на значение login но у меня только варианты
satdefault, satnone, satSASL

rocedure TForm1.Button1Click(Sender: TObject);
begin

idsmtp1.Host := 'smtp.mail.ru';
idsmtp1.Port :=  25;
idsmtp1.Username := 'pochta';
idsmtp1.Password := '123456';
idmessage1.Body.Text := 'проверка';
idmessage1.From.Text := 'pochta@bk.ru';
idmessage1.Recipients.EMailAddresses := 'pochta@bk.ru';
idmessage1.Subject:= 'тема';

idsmtp1.Connect;
if idsmtp1.Connected = true then

idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;

end;

[Lemo]

таже история http://programmersforum.ru/showthread.php?t=102463

[SERG1980]

Я вот так отправлял, всё работает

[Lemo]

IdSMTP1.AuthenticationType:=AtLogin;

.......... в первом посте..... А какая у Вас версия инди?

[Aero1]

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

IdSMTP1.AuthenticationType:=AtLogin;

.......... в первом посте..... А какая у Вас версия инди?

по умолчанию которая стоит в 2009-м, помоему 10-я, AtLogin пробовал не проходит выдает ошибку при компиляции

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

Я вот так отправлял, всё работает

да, так должно работать, но у меня видимо другая версия инди а там такое к сожелению не проходит а вот как в этой сделать ???

[SERG1980]

Это пример с инди 9, сейчас проверил с инди 10 тоже работает просто строку

IdSMTP1.AuthenticationType:=AtLogin;

удалите и всё
И просьба на отсылайте с моего примера больше мне письма на электронку

[Aero1]

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

Это пример с инди 9, сейчас проверил с инди 10 тоже работает просто строку

IdSMTP1.AuthenticationType:=AtLogin;

удалите и всё
И просьба на отсылайте с моего примера больше мне письма на электронку

Не проходит выдает "Incorrect Authentication Data" может это только для майла такая проблема а на яндекс можно и без Authentication ? сейчас попробую.

"И просьба на отсылайте с моего примера больше мне письма на электронку"
это не я, видимо кто то тоже эксперементирует

Да действительно на яндекс почта уходит без проблем, когда нет этой строки (IdSMTP1.AuthenticationType:=AtLogi n но на маил к сожалению так не получается, но всетаки уже хорошо, кстати если не трудно у кого инди той версии где работает AuthenticationType:=AtLogin попробуйте отправить письмо на маил интересно дойдет или нет ?

[Lemo]

Все работает, а вот как отправить сообщение если в приложении отсутствует форма?

uses idMessage, idSmtp....;  

Var
M: TIdMessage;
Begin
Try
 M:=TIdMessage.Create(Form1);   // ТУТ ПРОБЛЕМА
 M.Body.Assign(memo1.Lines);
 M.From.Text:=edit4.Text; //Отправитель
 M.Recipients.EMailAddresses:=edit5.Text; //Получатель
 M.Subject:=edit6.Text; //Тема письма

// IdSMTP1.AuthenticationType:=AtLogin;    // как правильно создать IdSMTP1? IdSMTP1:=TidSmtp.create(); разве норм?
 IdSMTP1.Host:=edit3.Text; //Хост
 IdSMTP1.Port:=587;
 IdSMTP1.Username:=edit1.Text; //Логин вашей почты
 IdSMTP1.Password:=edit2.Text; //Пароль
 IdSMTP1.Connect();
If IdSMTP1.Connected Then
Begin
 IdSMTP1.Send(M);
End;
IdSMTP1.Disconnect;
Except
End;

Там где эдиты можно и ручками вбить.

[Lemo]

Кто то может подсказать по предвидущему посту?..

[Пепел Феникса]

создавайте компоненты динамически(в конструктор ставим nil)
и все будет хорошо, компоненты Indy не нуждаются в форме.