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.