Outlook: E-Mail "Blatt" öffnen

[s14]

Delphi-Quellcode:

const { Zeilenvorschub für ShellExecute MailTo } emailCR = '%0D%0A'; 

procedure SendMailTest
var S: string;
begin
S := 'mailto:[e-mail]?subject=von spider&Body=Eine Zeile'+emailCR+'und die Zweite'+emailCR+'geht auch.';
ShellExecute(0,'open', PChar(S), nil, nil, 0);
end;