Delphi dicas

Evio de email através do api do windows

{1. Declare a uses SHELLAPI

2. mailto: coloque o email de destino

3. subject: escreva qual é o assunto do email

4. Coloque um botão e no evento OnClick deste botão escreva:}





procedure TForm1.Button1Click(Sender: TObject);

var Mail: String;

begin

        Mail := 'mailto:Teste@exemplo.com.br'+

        '?subject=Escreva o assunto aqui';

        ShellExecute(GetDesktopWindow,'open',pchar(Mail),nil,nil,sw_ShowNormal);

end;