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