SMTP-Mail zum 100sten mal

[MarkSE]

Sir Rufo, was Du sagtest, leuchtete ein und ich dachte die Lösung verstanden zu haben.

Habe auch den IOHandler und utUseImplizitTLS eingebaut (Port 465) ged aber trotzdem nix.

Delphi-Quellcode:

procedure TForm2.sendenClick(Sender: TObject);
var
   m: TIdMessage;
begin
       m := TIdMessage.Create(self);
       m.Clear;
       m.From.Address := '[e-mail]';
       m.Recipients.EMailAddresses := 'infoqyyyy.de';
       m.Subject := 'würscht';
       m.Body := Memo1.Lines;

       IndySMTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;  //  <<<<<<
       IndySMTP.UseTLS:=utUseImplicitTLS;                 //  <<<<<<

       //     if IndySMTP.Connected then
       //       IndySMTP.Disconnect;
     IndySMTP.Port := StrToInt('465');
     IndySMTP.Host :='smtp.strato.de';
     IndySMTP.Username := 'DasGleicheWieBeimFrom';
     IndySMTP.Password := edPW.Text;
     IndySMTP.AuthType  := TIdSMTPAuthenticationType.satDefault;

     IndySMTP.Connect('1000');  //hier erhalte ich Socket-fehler 11001  
                                //host nicht gefunden

     IndySMTP.Authenticate;

if IndySMTP.Connected then
   try
       IndySMTP.Send(m);

   except
      on E: Exception do
         Writeln(E.Classname+ ' - ' + E.Message);
   end;

end;
end.

bekomme immer Socket fehler 11001 Host nicht gefunden
Das ganze nun mit XE7
Bitte schau Dir das nochmal an