[Aless]

Доброго времени суток!Написал программу-почтовый клиент, к- рая должна отправлять сообщение с файликом.Вот код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  idSMTP1.Host :='www.mail.ru';
  idSMTP1.Username := 'почтовый ящик@mail.ru';
  idSMTP1.Password := '000000';
  idSMTP1.Connect(60000);
  idMessage1.CharSet := 'UTF - 8';
  idMessage1.Subject := AnsiToUTF8('yes!!!');
  idMessage1.Recipients.EMailAddresses := 'zxxzzxxz08@mail.ru';
  idMessage1.From.Name := AnsiToUTF8('i');
  idMessage1.From.Address:= 'pjankoffs@mail.ru';
  idMessage1.Body.Add(AnsiToUTF8(Edit1.Text));
  idMessage1.LoadFromFile(Edit2.Text);
  idSMTP1.Connected;
    try
  ShowMessage('OOOOOOOOOOOOOOOOOOOK!!!');
  idSMTP1.Send(idMessage1);
    finally
  idSMTP1.Disconnect;

Admin: Учимся пользоваться тегами!

Компилирую, Дельфи не ругается.Когда пытаюсь отправить письмо, на несколько секунд виснет и выдает ошибку."Project Project1.exe raised exception class EIdConnectTimeout with message 'Connect timed out'.Project stopped.Use step of Run continue."Помогите разобраться в чём здесь дело.

[lmikle]

Неправильный хост. Тебе нужен адрес SMTP-сервера, а не web-страницы.

[Aless]

Imikle, я вот подставляю в idSMTP1.Host := 'smtp.mail.ru' таже фигня - не коннектится, но в ошибке пишет типа Socket№10010 не найден и timeout.Вот.Если и это не то как тогда получить smtp - адрес мыла???

[RusMaXXX]

исправь так:

idSMTP1.Host :='smtp.mail.ru';
idSMTP1.Username := 'login';
idSMTP1.Password := 'password';

а остальное всё так же, на счет логина наверно понятно всё....