Не могу отправить письмо

[seoanalyzer]

Вот код

procedure TMain.sSpeedButton1Click(Sender: TObject);
var SearchRec:TSearchRec;
    s,s1:shortstring;
    attach:TidAttachmentfile;
    msg:tidmessage;
    i:integer;
begin
Main.idSMTP1.AuthType:= atdefault;
Main.idSMTP1.Username:='seoanalyzer@yandex.ru';
Main.idSMTP1.Password:='пароль';
Main.idSMTP1.Host:='smtp.yandex.ru';
Main.IdSMTP1.Port:=25;
msg:=TIdMessage.Create(nil);
msg.Body.Add('test');
msg.Subject:='test mail';
msg.From.Address:='12367stp@yandex.ru';
msg.From.Name:='ываыа';
msg.Recipients.EMailAddresses:='hunter_zx@mail.ru';
msg.IsEncoded:=true;
attach:=TIdAttachmentfile.Create(msg.MessageParts,'C:\base.txt');
Main.idSMTP1.Connect();
if main.IdSMTP1.Connected then
  begin
Main.idSMTP1.Send(msg);
showmessage('Файлы отправлены');
  end else  showmessage('Sending complete...');
Main.IdSMTP1.Disconnect;

end;

Подскажите пожалуйста правильно ли я отправляю? Использую Indy 10

[Квэнди]

Что не получается ? где и какая ошбка возникает ?

[seoanalyzer]

Пишет autentification requed, необходиам авторизация, но у меня итак стоит authtype=atdefault

[Квэнди]

на сколько я помню в Yandex-е авторизация не адресу а именно по логину

Main.idSMTP1.Username:='seoanalyzer ';

[seoanalyzer]

Ну если я закомментирую строчку
//Main.idSMTP1.AuthType:= atdefault;
ничего не даст, тоже самое пишет

[seoanalyzer]

Причем код брал из MailClient'а (примера почтовика где собственно indy 10 используется), из него отправил норм, указывал в настройках авторизацию по логину и паролю. Письмо норм дошло.

[Квэнди]

Еще раз внимательно прочтите
http://programmersforum.ru/showpost....68&postcount=4

[seoanalyzer]

Так я не понял, мне как код поменять тогда?

[Квэнди]

Издеваетесь ?

на сколько я помню в Yandex-е авторизация не адресу а именно по логину

Main.idSMTP1.Username:='seoanalyzer';

[seoanalyzer]

Это вам так кажется, ну что поделать если я пока что нуб в делфи)
Поменял, но ничего не изменилось, логин и пароль правильный.