отправка письма!

[Тутонхамон]

Всем доброе утро!
отправка письма!

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

помогите с кодом

procedure TForm1.Button1Click(Sender: TObject);
begin



    IdSMTP1.Port:=25;                               ///порт
    IdSMTP1.Host := 'smtp.mail.ru';            
    IdSMTP1.AuthenticationType:=atLogin;            //что то не понятное
    IdSMTP1.Username:='jeka6365@mail.ru';  ///login отправителя
    IdSMTP1.Password:='пароль';                 //pass отправителя
    IdMessage1.Subject:='тема сообщения';
    IdMessage1.Recipients.EMailAddresses:='jeka6365@mail.ru';        //кому
    IdMessage1.From.Address:='jeka6365@mail.ru';                       //от кого
    IdMessage1.Body.Assign(Memo1.Lines);                           //текст письма
    try
       try
          IdSMTP1.Connect(5000);
          IdSMTP1.Send(IdMessage1);
       except on E:Exception do
          Memo.Lines.Insert(0, 'ERROR: ' + E.Message);
       end;
    finally
      if IdSMTP1.Connected then  IdSMTP1.Disconnect;      
    end;

Memo.Lines.Insert(0,'ok');

end;

[Sparkman]

Изучал недавно эту отправку писем через SMTP:

uses IdSMTP,IdMessage, IdBaseComponent;
function SendMail (mHost,mFrom,mUser,mPass,mTo,mSubj,mBody,mAttach:string; mPort:integer):string;
var SMTP : TIdSMTP;
    MailMessage:TIdMessage;
begin
     result:='Mail sended';
     SMTP := TIdSMTP.Create(nil);
     SMTP.Host := mHost;
     if mPort>0 then
     SMTP.Port := mPort;
     SMTP.Username := mUser;
     if Length(mPass)>0 then
     SMTP.Password := mPass;
     MailMessage := TIdMessage.Create(nil);
     MailMessage.From.Address := mFrom;
     MailMessage.Recipients.EMailAddresses := mTo;
     MailMessage.Subject := mSubj;
     MailMessage.Body.Text := mBody;
     if FileExists(mAttach) then TIdAttachment.Create(MailMessage.MessageParts, mAttach) ;
     try
        try
           SMTP.Connect(1000);
           SMTP.Send(MailMessage);
        except on E:Exception do
           Result := 'ERROR: ' + E.Message;
        end;
     finally
        if SMTP.Connected then SMTP.Disconnect;
        SMTP.Free;
        MailMessage.Free;
     end;
end;

Может у вас тут ошибка:

IdSMTP1.Username:='jeka6365';  ///login отправителя

[Тутонхамон]

spasibo =)
pomogli

[Lord_Rufus]

а как отправить нескольким адресам если домены разные?

[Sparkman]

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

а как отправить нескольким адресам если домены разные?

MailMessage.Recipients.EMailAddresses := 'email1@domen1.ru;email2@domen2.ru;email3@domen3.ru';

[megostudent]

гы)
помоему не получается из-за того что ты отправляешь письмо на тот-же адрес, тоесть сам себе. А так можно?=)