mail über indy...

[the_seed]

sry gibt zwar schon so viele threads über das versenden von mails über indy doch es klappt bei mir einfach nicht

warum funkt. das nicht ???

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 idsmtpserver1.active:=true;
 idmessage1.Recipients.EMailAddresses := '[e-mail]';
 idmessage1.sender.address  := '[e-mail]';
 idmessage1.Body.Text   := 'xyxyxyxyxyxyxy';
 idmessage1.ContentType := 'blabla';
 idsmtp1.Host           := '127.0.0.1'; 
 idsmtp1.Connect;
 try
 idsmtp1.Send(idmessage1);
 finally
 idsmtp1.disconnect;
end;

end;
end.

kurz darauf kommt eine fehlermeldung "Socket Fehler 10061 - Verbindung abgelehnt" ???????