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

[Pein95]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;

type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
idSmtp1.Host:='smtp.mail.ru';
idSmtp1.Port:=25 ; 
idSmtp1.Username:='xxx' ;
idSmtp1.Password:='xxx' ;
idMessage1.Body.Text:='test letter' ;
idMessage1.From.Text:='xxx;
idMessage1.Recipients.EMailAddresses:='xxx' ;
idMessage1.Subject:='????' ; 

idSmtp1.Connect();
if idSmtp1.Connected=true then;
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect
end;

end.

вот собственно код, прога компилируетса но когда нажымаю кнопку она зависает и потом появляетса такая ошыбка:

project project1.exe raised exception class eidsocketerror with message 'socket error#10060 connection time out.' process stoped. use step run to сontine
подскажыте как её исправить.

[veniside]

сменить провайдера

[Pein95]

а можете обеснить суть ошібки в чем тут проблема...

[veniside]

ошибка - таймаут коннекта
код выглядит корректно (хотя я на 100% не уверен, а проверять лень)
telnet у меня на smtp.mail.ru на порт 25 коннектится без проблем

Вывод: меняй провайдера. Многие закрывают 25 порт, чтобы спам не рассылали.

(да, перед сменой провайдера попробуй зайти телнетом на 25 порт. Может всё-таки в коде ошибка )

[Pein95]

ясно спс, у другой порт использовать можно?

[veniside]

Да, 465. Только там SSL сокеты, не знаю, вроде инди их поддерживает. Так же не в курсе, держит ли мейр.ру свой сервер на этом порту. Гугл точно держит.

[Pein95]

всё ясно держы +)