Preparando e-mail via programação no Delphi

Inclua na seção uses: ShellApi

Problema:

Desejo que meu programa prepare e-mail e abra o Outlook Express 
para enviá-lo.



Solução:

A solução apresentada abaixo deve funcionar com a maioria dos 
programas de correio eletrônico.

procedure PrepararEmail(Para, Assunto, Msg: string);
var
  S: string;
begin
  S := 'mailto:' + Para + '?subject=' + Assunto + 
    '&body=' + Msg;
  ShellExecute(0, 'open', PChar(S), nil, nil, SW_SHOW);
end;

Uso:
PrepararEmail('fulano@servidor.com.br',
 'Teste de e-mail', 'Esta é a mensagem do e-mail de teste.');

Outra alternativa é o programa preparar e também enviar o e-mail.