eMail an mehrere Adressen schicken (Indy 10)

[raffo]

Delphi-Quellcode:

function TForm1.GetEmailString(myFile: String): String;
var 
  meineEmails: String;  // temp. String zum Zusammenbasteln des "results"
  s: String; //temp
  f: Textfile;
begin

  AssignFile(f,myFile);
  Reset(f);

  while not eof(f) do
    begin
    ReadLn(f,s);
    meineEmails:=meineEmails + ';' + s;
    end; //eof

  CloseFile(f); //myFile

  Result:=meineEmails;

end;

code is "handwritten", nix getestet. Über die Funktion liest Du also Deine Datei ein und erhälst halt [e-mail];[e-mail]