Authentication rejected/ Autehnticaion failed

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