miércoles, 4 de febrero de 2009

Cómo enviar E-mail con el cliente de correo electrónico por defecto desde Delphi

¿Cómo puedo enviar un E-Mail desde Delphi usando el cliente de correo electrónico por defecto instalado en tu pc (Outlook por ejemplo) si no tengo un navegador instalado?, pues es muy sencillo, utilizando un TMemo generamos el siguiente código:
uses   ShellAPI, Windows;
...
ShellExecute(0, 'open', PChar('mailto:bugreports@youremail.com?subject=
Bug%20Report&Body=' + MemoBugText.Text),   nil, nil, SW_SHOWNORMAL);