email adds aus DB Abfrage weiterverarbeiten

[tini]

Hi!

kann mir jemand bei meinem Problem weiterhelfen?
wie kann ich das ergebnis(die email adds)einer ADOQuery SQL Abfrage in ein email programm kopieren?


mfg
tini

[tini]

Hi!

kann mir bei diesem problem keiner weiterhelfen?

oder gibt es schon antwort auf dieses thema in diesen forum und ich hab's übersehen?

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);
Kommt schon!
I need help
mfg tini

[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.

[tini]

Hi Sharky!

Danke für die Antwort!
Kann es jetzt leider nicht testen, aber hat mir auf jeden Fall schon weitergeholfen!

merci!

[tini]

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

[tini]

Also bin selbst über meine fehler gestolpert...

man sollte vielleicht ADOQuery1.First und ADOQuery1.Next nicht vergessen...

Ciao
Tini

[Sharky]

Zitat von tini:

....man sollte vielleicht ADOQuery1.First und ADOQuery1.Next nicht vergessen...

Hihi... ich könnte ja jetzt schreiben das dies Absicht war um einen kleinen Lehreffekt zu erzielen. Die Wahrheit ist aber.... ich habe es auch vergessen