Dicas - Enviando e-mail (Abrindo a janela de Nova Mensagem do Outlook)

Essa dica abre a janela de Nova Mensagem do Outlook para envio de e-mail.

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