Email mit Indy verschicken

[emsländer]

Zitat von Chrissi91:

[/delphi]Super! Funktioniert alles! Letzte Frage:

Recipients.Add.Text := Trim(edit1.text); Jetzt steht nicht nur ein Empfänger in einem Edit, sondern jetzt stehen 10 Empfänger in einer Listbox. Wie mache ich das?

Recipients.Add.Text := Trim(listbox1.items); Das geht leider nicht. Aber eine andere Frage, fast dieselbe:

Ich will einem Stringsrray alle Listboxinhalte geben: Funktioniert auch nicht!

Delphi-Quellcode:

var
 adressen: array[1..1000] of string;
begin
 for i:= 1 to listbox1.Items.count do
  begin
   adressen[i]:=listbox1.Items(i);
  end;

Danke schon im Vorraus!

sollte in der Art:

Delphi-Quellcode:

for i:= 0 to 10
  email.Recipients.Add.Text := listbox1.Item[i];
end;

gehen

Gruss

EL
PS.: Wenn Du einen fertigen NewsletterMailer brauchst... ich hab ihn