Hallo!
habe jetz mal mein programm getestet, aber es funktioniert nicht....
findet ihr vielleicht den fehler?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Betreff: string;
Inhalt: string;
i: byte;
empfaenger: string;
begin
Betreff:=Edit1.Text;
Inhalt:=Memo.Text;
empfaenger:='';
for i := 0 to ListBox1.Items.Count - 1 do
begin
if ListBox1.Selected[i] then
begin
ADOQuery1.Close;
ADOQuery1. Parameters.ParamValues['Gruppe']:= Listbox1.Items[Listbox1.ItemIndex];
ADOQuery1.Open;
WHILE NOT (ADOQuery1.Eof) do
begin
empfaenger:= empfaenger+ADOQuery1.FieldByName('EMail-Adresse').AsString+';';
end;
end;
end;
ShellExecute(Application.Handle, 'open',PChar('mailto:'+empfaenger+'?subject='+Betreff+'&body='+Inhalt), nil, nil, sw_ShowNormal);
end;
Die
SQL Anweiseungen habe ich über den Objektinspektor eingegeben. DIe stimmt auch (liefert das richtige Ergebnis). Aber wenn ich jetzt den button drück, arbeitet der Rechner ewig und das mail programm wird erst gar nicht aufgerufen!
Liegt es vielleicht daran, dass ich zuviele email_add in einem string speichern will, bzw. das gar nicht geht?
Viele Grüße
tini