Jep werkt
Maar hoe krijg ik er enters in ?
Heb al geprobeerd om dit achter een woord te zetten : %0D%0A.
Krijg de foutmelding: Format '%OD' invalid or incompatible with argument.
hier is de code:
Code:
procedure TForm3.SpeedButton3Click(Sender: TObject);
var
Email: string;
begin
Email := Format('mailto:%s?subject=opvragen gegevens&body=Beste %s,%0D%0A De volgende gegevens ontbreken: %0D%0A Geslacht: %s %0D%0A Voornaam: %s %0D%0A Achternaam: %s Geboortedatum: %s Leeftijd: %s Graag zo spoedig mogelijk reageren, Alvast bedankt.', [
Ado1.FieldByName('contactpersoon').AsString,
Ado1.FieldByName('contactpersoonnaam').AsString,
Ado1.FieldByName('geslacht').AsString,
Ado1.FieldByName('voornaam').AsString,
Ado1.FieldByName('achternaam').AsString,
Ado1.FieldByName('dag jarig').AsString,
Ado1.FieldByName('leeftijd').AsString] );
ShellExecute(0, 'open', PChar(Email), nil, nil, SW_SHOWNORMAL);
end;
Bookmarks