Internet - enviando email usando ShellExecute

Top  Previous  Next

Inclua na seção uses: ShellApi...

 

depois use:

 

   ShellExecute(Handle, 'Open''mailto:flaviojr@cri.matrix.com.br', nil, nil, sw_Normal);

 

Caso queira já abrir a janela de envio de em@il com alguns dados preenchidos

como mensagem(body) e assunto(subject) use:

 

   ShellExecute(Handle, 'Open''mailto:flaviojr@cri.matrix.com.br?body=aqui vc' +

                                'digita a mensagem&subject=aqui vc digita o assunto', nil, nil, sw_Normal);