Authentication rejected/ Autehnticaion failed

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

[GHorn]

Zitat von Metallicwar:

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.