Einzelnen Beitrag anzeigen

GHorn

Registriert seit: 24. Mär 2009
Ort: NRW
124 Beiträge
 
#24

AW: Authentication rejected/ Autehnticaion failed

  Alt 29. Sep 2010, 11:36
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 := 'Mail@t-online.de';
idMessage.Sender.Text := 'Mail@t-online.de';
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 := 'Mail@t-online.de'; // 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.
  Mit Zitat antworten Zitat