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 := 'the-seed@web.de';
idmessage1.sender.address := 'the-seed@web.de';
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" ???????