Simple way to send email. How?

[Microges2000]

Dear,

in Delphi/Windows the more simple way to send an email (with or without attach) and using the current mailer program is:

Var
  Message : String;
Begin
  Message :=   'mailto:name@address.ext'
             + '?subject=Mail object'
             + '&body=Body line 1' + '%0D%0A'
             + 'Body line 2'
             + '&Attach=c:\MyAttach.txt';
  ShellExecute(Handle, Message, Nil, Nil, SW_NORMAL);
End;

Now, exist a similar procedure using lazarus that work under windows/linux and/or MAC?

Thanks,
David

[Leledumbo]

Now, exist a similar procedure using lazarus that work under windows/linux and/or MAC?

I don't think we have that yet. If it's really required frequently, perhaps somebody wants to commit a change to LCLIntf for this like OpenDoc and OpenURL.

[Microges2000]

Thanks, OpenURL work perfectly (but without attach)