email adds aus DB Abfrage weiterverarbeiten

[Sharky]

Zitat von tini:

....
Ich möchte die adressen gern speichern (mit semikolon abgetrennt) damit ich sie dann direkt ins mail programm übertragen kann durch den befehl
shellexecute(0, 'open', pchar('mailto:' +Empfaenger+'?subject='+Betreff+'&Body='+Inhalt), nil, nil, SW_SHOWNORMAL);

Hai tini,

wie speicherst Du denn die Adressen? Ich würde ja für jede Adresse einen Eintrag in der Tabelle erzeugen. Zusammen mit dem Namen und was Du halt noch so für Infos über den Empfänger brauchst.

Wenn Du dann z.b.:

Delphi-Quellcode:

var
 betreff,
 inhalt,
 empfaenger : String;
begin
 Query1.Close;
 Query1.SQL.Text := ' SELECT e_adresse FROM tabelle WHERE name LIKE '
  + QuotedStr ('%Sharky%');
 Query1.Open;
 empfaenger := '';
 betreff := 'Mail an Sharky';
 inhalt := 'Woher soll ich das wissen?';
 WHILE NOT (Query1.EOF) do
  begin
  empfaenger := empfaeger + Query1.FieldByName ('e_adresse').AsString + ';';
  end;
 shellexecute(0, 'open', pchar('mailto:' +Empfaenger+'?subject='+Betreff+'&Body='+Inhalt), nil, nil, SW_SHOWNORMAL);
end;

Sollte jetzt dein Mailprogramm gestartet werden umd im AN: Feld stehen alle eMail-Adressen der Leute in deren Namen "Sharky" vorkommt.