Indy10, SSLPalin, SMTP, "Authentification required"

[hoika]

Hallo #,

ich beziehe mich mit meiner Frage auf folgenden Thread

Der Fehler heisst "Authentication error", nicht wie es oben steht.

http://www.delphipraxis.net/174452-x...nt-senden.html

Ich muss einem Mailserver über SSL (Plain) eine Mail schicken.
Code sieht so aus.
Man sieht am Code, ich probier verzweifelt alles aus ...

Delphi-Quellcode:

procedure TForm1.ButtonMailClick(Sender: TObject);
var
  SMTP: TIdSMTP;
  Msg: TIdMessage;
begin

  IdUserPassProvider1.Username := EditNutzerName.Text;
  IdUserPassProvider1.Password := EditPassWort.Text;

  IdSASLLogin1.UserPassProvider := IdUserPassProvider1;

  SMTP := TIdSMTP.Create(nil);
  Msg  := TIdMessage.Create;
  try
    SMTP.PipeLine := True;



//    SMTP.AuthType := satDefault;
    SMTP.ValidateAuthLoginCapability := False;

    SMTP.IOHandler := CreateSSLHandler(SMTP); // siehe unten

//     SMTP.AuthType := satDefault;
    SMTP.AuthType := satSASL;

//    SMTP.SASLMechanisms.Add.SASL := IdSASLLogin1;

    SMTP.SASLMechanisms.Add.SASL := IdSASLPlain1;

    SMTP.UseTLS := utUseImplicitTLS;
    SMTP.Host := EditServer.Text;
    SMTP.Port := StrToInt(EditPortSMTP.Text);
    SMTP.Username := EditNutzerName.Text;
    SMTP.Password := EditPassWort.Text;
    SMTP.Connect;

    Msg.From.Address:= EditSourceMail.Text;
    with Msg.Recipients.Add do
    begin
      Address := EditTargetMail.Text;
    end;
    Msg.Subject:= 'Test';

    SMTP.Send(Msg);  <<-- Exception

    SMTP.Disconnect;
  finally
    Msg.Free;
    SMTP.Free;
  end;
end;

Hangel ich mich durch den Code, komme ich hier hin

unit IdSMTPBase

Delphi-Quellcode:

procedure TIdSMTPBase.SendNoPipelining(AMsg: TIdMessage; const AFrom: String; ARecipients: TIdEMailAddressList);
var
  LCmd: string;
begin
  LCmd := MAILFROM_CMD + '<' + AFrom + '>';    {Do not Localize}
  if FUseVerp then begin
    if Capabilities.IndexOf(CAPAVERP) > -1 then begin
      LCmd := LCmd + ' VERP';                   {Do not Localize}
    end else begin
      LCmd := LCmd + ' XVERP';                  {Do not Localize}
    end;
    if FVerpDelims <> '' then begin
     LCmd := LCmd + '=' + FVerpDelims;          {Do not Localize}
    end;
  end;
  SendCmd(RSET_CMD);

//// hier knallts im SendCmd


  SendCmd(LCmd, MAILFROM_ACCEPT);  
end;

function TForm1ClickTest.CreateSSLHandler(Owner: TComponent): TIdSSLIOHandlerSocketOpenSSL;
begin
  Result := TIdSSLIOHandlerSocketOpenSSL.Create(Owner);
  Result.OnVerifyPeer := SSLVerifyPeerEventHandler;
  Result.SSLOptions.Method := sslvSSLv3;
  Result.SSLOptions.VerifyMode := [sslvrfClientOnce];
end;

Das PerformSASLLogin ist bereits erfolgreich verlaufen.

Was kann ich noch tun ?

Danke


Heiko

[sx2008]

Vor dem "FROM"-Command muss das Kommando "HELO" (ohne User/PW) bzw. "EHLO" (Anmeldung mit User + PW) stattgefunden haben.
In deinem Fall brauchst du "EHLO" = Extended Hello (erweiterte Anmeldung)

Setze mal einen Breakpoint auf das

Delphi-Quellcode:

Connect

und prüfe ob "EHLO" verwendet wird.
Es müsste auch das

Delphi-Quellcode:

Property UseEhlo

geben, das per default = True sein sollte. (so zumindest in Indy 9)

Nach deiner Beschreibung scheint die SSL-Verbindung korrekt aufgebaut zu sein, aber der Client ist nicht sauber am Mailserver angemeldet.
Ausserdem noch einen Breakpoint auf die Methode

Delphi-Quellcode:

Authenticate

setzen.
Dort müsstest du sehen wie der Befehl "AUTH LOGIN " mit UserName + Passwort den den Server geschickt wird.

[hoika]

Hallo,

das UseEhlo ist True,
das PerformSASLLogin ist Teil des Authenticate und wird erfolgreich, also ohne Fehler durchlaufen.

Ich habe im ersten Eintrag das CreateSSLHandler noch eingetragen.

Fehler liegt bei hier knallts im SendCmd .


;(

Danke


Heiko

[sx2008]

Wie schaut's denn aus, wenn du dich mit einem ausgereiften EMail - Client (Mozilla Thunderbird) mit dem SMTP-Server verbindest?

[hoika]

Hallo,

Thunderbird geht.
Outlook nicht, das wollen sie noch ändern.

Mit Outlook sie ähnlich aus,
Connect (Verbindung) klappt
das Senden der Testmail war nicht erfolgreich.


Heiko

[hoika]

Hallo,

Vor dem "FROM"-Command muss das Kommando "HELO" (ohne User/PW) bzw. "EHLO" (Anmeldung mit User + PW) stattgefunden haben.
In deinem Fall brauchst du "EHLO" = Extended Hello (erweiterte Anmeldung)

Ich habe jetzt EHLO=True und HeloName meinen Benutzernamen.
Den HeloName hatte ich glatt vergessen !.
Er meldet sich mit OK AUTH PLAIN.

Ich habe allerdings kein Passwort angegeben.
Laut Internet steht dort nur EHLO "Sender", Sender=Mail-Adresse.
Wie muss denn der String mit Nutzenamen und Passwort aussehen ?

Danke


Heiko

[sx2008]

Zitat:

Zitat von hoika (Beitrag 1213319)

Er meldet sich mit OK AUTH PLAIN.

Der Client muss/darf sich dann mit

Code:

AUTH PLAIN xxxxxxxxxxxxxxxxxxxxxxxxxxxx=

anmelden.
Die xxxxxx stehen für Username und Passwort die mit BASE64 kodiert werden.
Genauere Info gibt es z.B. hier:
http://www.freebsdwiki.net/index.php...UTH_via_telnet

[hoika]

Hallo,

ja genauso wird es gemacht.
Und der Server sagt auch OK.


Heiko