Authentication rejected/ Autehnticaion failed

[Metallicwar]

Hallo zusammen, möchte mir selber eine Mail schreiben, aber erhalte beim Button Click immer eine Exception:

Exception-Klasse EIdSMTPReplayError mit Meldung 'Authentication rejected/ Autehnticaion failed.'

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  slText: TStringList;
begin
  IdSMTP1.Host := 'smtpmail.t-online.de';
  IdSMTP1.Username := '[e-mail]';
  IdSMTP1.Password := 'Beispielpasswort';

  IdMessage1.From.Text := '[e-mail]';
  IdMessage1.Sender.Text := 'TestEmail';

  IdMessage1.Recipients.EMailAddresses := '[e-mail]';

  IdMessage1.Subject := 'Hallo das ist ein Text';

  slText := TSTringList.Create;
  slText.Add('Hier steht auch ein Text.');

  IdMessage1.Body := slText;
    try
       IdSMTP1.Connect;
       IdSMTP1.Authenticate;
       IdSMTP1.Send(IdMessage1);
       IdSMTP1.Disconnect();
    except
      ShowMessage('EMail konnte nicht gesendet werden');
    end;
  slText.Free;
end;

end.

Habe auch die Suche Funktion verwendet, habe allerdings nichts zu diesem Problem gefunden.

[Mschmidt]

nun ja, die Fehlermeldung ist eindeutig. Entweder stimmt dein Passwort bzw. die
Kombination aus Username und Passwort nicht oder imho wird hier smtp after Post zwangsweise
vorgeschrieben.
:-m

[Metallicwar]

mhhm werd ich mir mal ankucken, sobald die doofe VM gestartet ist.

[GHorn]

Wann kommt denn der Fehler? Schon beim connect() oder erst
beim Send().
Wenn ich mich recht erinnere, muss beim idMessage.Sender(..) eine
gültige EMailadresse enthalten sein.

[Metallicwar]

Der Fehler tritt auf bei:

Delphi-Quellcode:

    
try
        IdSMTP1.Connect; // Connect wird ausgeführt
      IdSMTP1.Authenticate; // Beim Authenticate knallts dann
        IdSMTP1.Send(IdMessage1);
        IdSMTP1.Disconnect();

[GHorn]

Aus Hilfe:

Zitat:

Description
Authenticate is a Boolean function that performs account
authentication on the SMTP server. Authenticate returns True when
successful, or False if authentication failed.
You must specify the AuthType before calling the Authenticate
method. Authenticate should be called only once for a SMTP
session.

Send will call Authenticate before transmission of an E-Mail
message, if the SMTP session has not already been authenticated.

When AuthType is atSASL, Authenticate checks to ensure that
SASLMechanisms contains a valid authentication mechanism for the
server.

Nimm das Authenticate mal raus, da es beim Send eh ausgeführt
wird wenn noch nicht geschehen. Der Port müsste passen, da der
connect geht. Alternativ kannst auch mal den Port 587 testen.
Welchen AuthType hast Du gesetzt? Steht der auf atDefault bzw.
auf DEF_SMTP_AUTH?

[Metallicwar]

danke erstmal bis dahin.

folgende Erkenntnis: hab des Authenticate rausgenommen --> selbe Meldung.

AuthType steht auf: satDefault

soo und beim Port, den habe ich mal auf 587 geändert da scheint er eine ganze weile zu Arbeiten, jedoch bekomm ich dann wieder eine Fehlermeldung: Socket Error # 10060 Connection Time Out

[GHorn]

Hast Du im idMessage.Sender(..) eine gültige EMailadresse? (s.#4)

[Hansa]

Bei mir sieht das so aus :

Delphi-Quellcode:

SMTP.Connect;
try
  SMTP.Send(IdMsgSend);
finally
  SMTP.Disconnect;
end;

Das stammt wohl auch ursprünglich aus den Indy-Beispielen (läuft allerdings schon bei mir in einem Programm). Vermutlich verhindert das direkte Disconnect ohne den Try/finally Block, dass alles abgearbeitet wird. Das ist bei allen solchen DSL, email,Modem etc. Programmen zu beobachten : Zeit ist entscheidend. Zu schnell : es kracht irgendwo. Zu langsam : Timeout und weiss der Teufel was noch.

[Metallicwar]

mein bisheriger Code:

Delphi-Quellcode:

procedure TForm1.btnEinloggenClick(Sender: TObject);
var
  slText: TStringList;
begin
  IdSMTP1.Host := 'smtpmail.t-online.de';
  IdSMTP1.Username := 'EmailAdresse';
  IdSMTP1.Password := 'EmailPasswort';

  IdMessage1.Sender.Name := 'EmailAdresse';
  IdMessage1.Sender.Address := 'EmailAdresse';
  IdMessage1.From.Text := 'EmailAdresse';
  IdMessage1.Sender.Text := 'EmailText';

  IdMessage1.Recipients.EMailAddresses := 'EmailAdresse';

  IdMessage1.Subject := 'Hallo Ich';

  slText := TSTringList.Create;
  slText.Add('Hier werden die Daten später stehen');

  IdMessage1.Body := slText;

  IdSMTP1.Connect;
  try
    IdSMTP1.Send(IdMessage1);
  finally
    IdSMTP1.Disconnect();
  end;
  slText.Free;
end;

scheppert bei:     IdSMTP1.Send(IdMessage1); kommt aber weiterhin noch die selbe Fehlermeldung... -.- :X :X



zu Hast Du im idMessage.Sender(..) eine gültige EMailadresse? (s.#4) : IdMessage.Sender erwartet ein TidAdressEMailItem...

Use the following properties to get or set the values for the TIdEMailAddressItem:

Sender.Text
Sender.Name
Sender.Address

die hab ich ja auch alle angegeben. Aber wie kann ich jetzte idMessage.Sender nen Wert zuweisen?