Email mit Outloook über Delphi verschicken

[Delphi-Phil]

hi,

also ich mache es so!

Delphi-Quellcode:

procedure THauptForm.JvXPBar5Items0Click(Sender: TObject);
var
mail : String;
begin
mail := DataForm.QryKontakte.FieldByName('Email').AsString;
ShellExecute(Application.Handle, 'open',
PChar('mailto:'+mail+'?subject='), nil, nil, sw_ShowNormal);
end;