Enviando e-mail
Essa dica abre a janela de Nova Mensagem do Outlook para envio de e-mail:
{ Declare em uses ShellApi }
var
Mensagem: string ;
begin
Mensagem := 'mailto:lucianopimenta@clubedelphi.net';
ShellExecute(GetDesktopWindow,'open',
PChar(Mensagem), nil , nil , SW_SHOWNORMAL);
end;
por Luciano Pimenta