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.:gruebel:

[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. :mrgreen:

[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:

Delphi-Quellcode:

    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? :( :)

[GHorn]

Es geht um diese Zeilen:

Delphi-Quellcode:

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

Mach daraus mal folgendes:

Delphi-Quellcode:

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

Also beide Einträge gleich im "From" und im "Sender".

[Metallicwar]

das "Problem" mit idMessage.Sender(..) eine gültige EMailadresse? (s.#4) hab ich behoben, kann man ja auch im Objektinspektor anpassen und ändern. TIdMessage --> From --> Address: [e-mail] den Rest füllt er dann ja selber.
--> Erhalte immer noch die Fehlermeldung.

Zitat:

Also beide Einträge gleich im "From" und im "Sender".

Delphi-Quellcode:

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

--> habe ich gemacht, kommt aber immer noch die Fehlermeldung -.-

[GHorn]

Wenn Du das im OI anpasst, aber im Quellcode wieder überschreibst,
greift letzteres. Zeig doch ggf. noch mal den aktuellen Code.

[Metallicwar]

Delphi-Quellcode:

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

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

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

  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;

im OI:
TIdMessage --> From:
Address: [e-mail]
Domain: t-online.de
Name: [e-mail]
Text: <[e-mail]>
User: mail

[GHorn]

Bemüh doch auch mal die Delphi-Hilfe und such nach
TIdEMailAddressItem

Zitat:

TIdMessage --> From:
Address: [e-mail]
Domain: t-online.de
Name: [e-mail]
Text: <[e-mail]>
User: mail

In Address steht nur die Email-Adresse
Domain leer lassen (Domain is a read-only String property that
indicates the host name)
In Name steht nur der Name (hier z.B. "John Mail")
Text leer lassen (wird aus address u. Name zusammengesetzt
zu "John Mail" <[e-mail]> )
User leer lassen (User is a Public read-only String property)

[Metallicwar]

Habe es so geändert, aber funktioniert immer noch nicht -.-
Hab gleich Feierabend, dann schau ich heute Abend vielleicht nochmal drüber.
Falls ihr noch Ideen habt, oder nen funktionierenden Code habt, ich freu mich :)

Code:

TIdMessage --> From:
Address: [e-mail]
Domain: t-online.de
Name: Mailname
Text: Mailname <[e-mail]>
User: Mail

[GHorn]

Im OI werden die Inhalte im "FROM"-Teil automatisch gesetzt.
In Deinem Fall sollte der "Name" aber leer bleiben. Es sei denn,
er wird tatsächlich benötigt.

Fällt mir nur noch ein, slText als TStrings zu deklarieren und
den Rest so zu lassen:

Delphi-Quellcode:

var
  slText: TStrings;

In meinen Anwendungen habe ich die idMessage nicht auf der Form
sondern erstelle sie im Quellcode:

Delphi-Quellcode:

var
  idMessage : TIdMessage;
begin
  ...
  idMessage := TIdMessage.Create();
  try
    idMessage.IsEncoded := True;
    idMessage.From.Text := FromAddr;          
    idMessage.Sender.Text := FromAddr;          
    idMessage.Recipients.Clear;
    for i := 0 to High(Main.aMy_Email)   // Array mit Empfängern 
      begin
        with idMessage.Recipients.Add do 
          begin
            Name := PChar('');
            Address := PChar(Main.aMy_Email[i]);
          end;
      end;
      idMessage.ContentType := 'multipart/mixed';
      // wichtig !!!
      idMessage.Encoding := meMIME;
      idMessage.AttachmentEncoding := 'MIME';
      idMessage.CCList.Clear; 
      // usw. ... 
  finally
    idMessage.free;
  end;

HTH

[Luckie]

Hast du denn, wie schon vorgeschlagen mal "POP before SMTP" ausprobiert? Also vorher die Mails abrufen, was eine Anmeldung erfordert und dann mit dieser Anmeldung die Mail zu verschicken?

[Metallicwar]

zu GHorn:
gibt noch ein paar sachen die beim Compilieren angemeckert werden.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  idMessage : TIdMessage;
  i: Integer;
begin
  cbSystem.Items.Add('.Punkt 1');
  cbSystem.Items.Add('.Punkt 2');
  cbSystem.Items.Add('.Punkt 3');
  btnEinloggen.Enabled := False;

  idMessage := TIdMessage.Create();
  try
    idMessage.IsEncoded := True;
    idMessage.From.Text := '[e-mail]';
    idMessage.Sender.Text := '[e-mail]';
    idMessage.Recipients.Clear;

    for i := 0 to High(Main.aMy_Email); // Array mit Empfängern --> Was mus ich in dieses MAin.aMy_Email reinschreiben?
      begin
        with idMessage.Recipients.Add do
          begin
            Name := PChar('');
            Address := PChar(Main.aMy_Email[i]); // --> auch hier, was muss ich reinschreiben?
          end;
      end;
      idMessage.ContentType := 'multipart/mixed';
      // wichtig !!!
      idMessage.Encoding := meMIME;  
      idMessage.AttachmentEncoding := 'MIME';
      idMessage.CCList.Clear;
      // usw. ...
  finally
    idMessage.free;
  end;
end;


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

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

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

  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;

zu Luckie:
Wo konnte man das nochmal einstellen? (: (: (POP statt SMTP) oder meinst du direkt mit ner POP3 Komponente?

[Luckie]

Genau, erst mit einer POP3-Komponente anmelden und dann die E-Mail verschicken.

[Metallicwar]

ah, ok, werd ich dann mal probieren.
also nochmal für die dummen :p
du meinst, ich soll soll mich mit der POP3 Komponente anmelden und dann mit der SMTP komponente verschicken?

[Luckie]

Tut mir leid, deutlicher kann ich es nicht erklären. Kann mir da bitte mal jemand helfen?

[BUG]

Zitat:

Zitat von Luckie (Beitrag 1052736)

Tut mir leid, deutlicher kann ich es nicht erklären. Kann mir da bitte mal jemand helfen?

Aber gerne doch :mrgreen:

Zitat:

Zitat von Metallicwar (Beitrag 1052735)

du meinst, ich soll soll mich mit der POP3 Komponente anmelden und dann mit der SMTP komponente verschicken?

Ja. (SMTP-After-POP)

[GHorn]

Zitat:

Zitat von Metallicwar (Beitrag 1052726)

zu GHorn:
gibt noch ein paar sachen die beim Compilieren angemeckert werden.

[DELPHI]
procedure TForm1.FormCreate(Sender: TObject);
var
idMessage : TIdMessage;
i: Integer;
begin
cbSystem.Items.Add('.Punkt 1');
cbSystem.Items.Add('.Punkt 2');
cbSystem.Items.Add('.Punkt 3');
btnEinloggen.Enabled := False;

idMessage := TIdMessage.Create();
try
idMessage.IsEncoded := True;
idMessage.From.Text := '[e-mail]';
idMessage.Sender.Text := '[e-mail]';
idMessage.Recipients.Clear;

for i := 0 to High(Main.aMy_Email); // Array mit Empfängern --> Was mus ich in dieses MAin.aMy_Email reinschreiben?
begin
with idMessage.Recipients.Add do
begin
Name := PChar('');
Address := PChar(Main.aMy_Email[i]); // --> auch hier, was muss ich reinschreiben?
end;
end;
idMessage.ContentType := 'multipart/mixed';
// wichtig !!!
idMessage.Encoding := meMIME;
idMessage.AttachmentEncoding := 'MIME';
idMessage.CCList.Clear;
// usw. ...
finally
idMessage.free;
end;
end;

Aaaalsoooo:

Im Array aMy_Email habe ich die Empfänger der Mail
hinterlegt. Es können ja auch durchaus mal mehr als
ein Empfänger sein. Wenn es nur ein Empfänger ist, hat
aMy_Email die Länge 1. Wenn Du immer nur einen Empfänger
hast, bruchst Du die FOR-Schleife nicht und schreibst
direkt z.B. folgendes

Delphi-Quellcode:

  s := '[e-mail]';    // var s: string;
  with idMessage.Recipients.Add do
    begin
      Name := PChar('');
      Address := PChar(s); 
    end;

Es ist immer hilfreich, wenn Du uns mitteilst, WAS der
Compiler anmeckert. Nehme an, dass es das (unbekannte)
Array war.

[Metallicwar]

danke, werd ich im Laufe des Tages mal ausprobieren.

[Metallicwar]

oooooh man.

Delphi-Quellcode:

procedure TForm1.btnEinloggenClick(Sender: TObject);
var
  slText: TStrings;
  s: String;
begin
  s := '[e-mail]';
  IdSMTP1.Host := 'smtpmail.t-online.de';
  IdSMTP1.Username := '[e-mail]';
  IdSMTP1.Password := 'Password';

  IdPOP31.Host := 'popmail.t-online.de';
  IdPOP31.Username := '[e-mail]';
  IdPOP31.Password := 'Password';

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

  with IdMessage1.Recipients.Add do
    begin
      Name := PChar('');
      Address := PChar(s);
    end;

  IdMessage1.Subject := 'Hallo Ich';

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

  IdMessage1.Body := slText;

  IdPOP31.Connect;
  try
    IDSMTP1.SendMsg(IdMessage1);
  finally
    IdPOP31.Disconnect();
  end;
  slText.Free;
end;

Springt mir bei IdPOP31.Connect raus und meint Ivalid Login
-.-

[franktron]

Also das Problem ist nicht Pop before SMTP sonder dein Mailserver (Benutzername und pw) es gibt außerdem ein extra PW für die Mail und je nachdem was für ein Mailserver von TOffline man nimmt gibts andere Usernamen und pw kombos.

Guck mal in Google nach T_online Outlook da gibts schon Hilfe und dann teste das nochmal.

[Luckie]

Braucht man bei T-Online nicht diese Benutzerkennung? Also diese lange Nummer.

[Hansa]

Ich denke mal, am besten wäre es, die Indy-Beispiele zu verwenden und nicht gross da rumzufummeln. 8-) Lediglich Passwort/email-Adresse abzuändern und fertig. Sonst wird das wohl nichts.

[Metallicwar]

Zitat:

Gestern, 22:39 by Hansa
Ich denke mal, am besten wäre es, die Indy-Beispiele zu verwenden und nicht gross da rumzufummeln. Lediglich Passwort/email-Adresse abzuändern und fertig. Sonst wird das wohl nichts.

da geb ich dir recht, dann werd ich`s mal mit den Indybeispielen versuchen und diese einfach anpassen.

Zitat:

Gestern, 16:44 by Luckie
Braucht man bei T-Online nicht diese Benutzerkennung? Also diese lange Nummer.

http://support.linogate.com/de/netwo...der/login.html

so etwas? Muss ich mal daheim rumstöbern, vll find ich die Nummer ja irgendwo :)

[GHorn]

Delphi-Quellcode:

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

Wie bereits geschrieben - aber nochmal:
Wenn Du in Sender.Name und/oder Sender.Address etwas
einträgst und anschließend Sender.Text änderst, überschreibst
Du .Name und .Adress. Probier mal im OI aus, wie die miteinander
"verwoben" sind. Das gilt auch für IdMessage1.From usw.

Das ist aber sicher nicht Dein primäres Problem. Deine Anmeldung
bei t-online scheint nicht zu klappen, weil die Authentifizierung
nicht stattfindet oder abgewiesen wird. Versuch doch erstmal
eine Mail an einen anderen Provider zu senden und benutze, wie
Hansa schon schrieb, die Indy-Beispiele. Wenn das klappt, suche
im Indernet nach Beispielen und Anleitungen für t-online. Die
haben ein "spezielles" Verfahren, um Spams abzublocken. Nur Du
kennst die Einstellungen deines Accounts. Sinnvoll ist auch, mit
dem Debugger im Einzelschritt durchzugehen und zu sehen, was die
Indys senden und zurückbekommen.


Gruß
Gerald

[Hansa]

Ja, mache das. Und gehe mal im Delphi-Treff gucken nach Tutorials. Die Indy-Beispiele sind aber in höchstens 1-2 Stunden einsatzbereit. Download, installieren, Programm machen mit paar Klicks, email-Adresse anpassen was noch ? Eigentlich nichts. :gruebel:

[Luckie]

Genau die meine ich.

[Hansa]

Zitat:

Zitat von GHorn (Beitrag 1052908)

Wenn das klappt, suche im Internet nach Beispielen und Anleitungen für t-online. Die haben ein "spezielles" Verfahren, um Spams abzublocken.

Was ? Die haben ein spezielles Verfahren ? :shock: Ich habe jedenfalls wegen kleinem email-Programmmodul und wohlgemerkt mit T-Online-Zugang aus dem Indy-Beispiel ruckzuck ein eigenes Programm gemacht. Im Indy-Quelltext steht sogar in den Kommentaren, wo man was ändern/machen soll. Habe selten erlebt, dass etwas so einfach geht. Da denkt man : oje, jetzt noch eigenes email-Programm schreiben ? :shock: Und siehe an, in 1-2 Stunden ist das erledigt (und ca 10-100 Zeilen eigener Source). Inklusive Test mit 3 email-Adressen unterschiedlicher INet-Provider. Das sind Peanuts. :mrgreen:

[GHorn]

Hansa, ich hatte bewusst "speziell" (in Hochkommata) geschrieben,
weil hier doch noch etwas zu beachten ist. Aber wie Du schreibst,
steht das ja alles in den Indy-Beispielen.
Dann ist ja alles bingo.:thumb:

[Hansa]

Ja, Bingo. :thumb: Im Prinzip habe ich eigentlich auch nur die Beispiele flexibler gemacht. D.h.: email-Adresse und das was sonst noch gebraucht wird, die sind in INI-Datei verfrachtet worden. Um die auszulesen, tja dann eben noch eine Unit und fertig. Im Prinzip ging das sofort. Inkl. Empfangsprogramm (Gegenstelle soll automatisch was ausdrucken) nicht mehr als 2 St. Aufwand.