Chamar Outlook Express

Ir em baixo

Chamar Outlook Express

Mensagem por Mr.Positive em Ter Dez 28, 2010 2:31 pm

Código que utiliza o ShellExecute, chama o Outlook Express para o envio de e-mails .

Bom para colocar um btn de contato para seu programa .


----Vamos lá----


Declare na USES :

ShellAPI


Adicione no form:

1 Button (Paleta standard)
1 Edit ( paleta standard )
1 Label ( Opcional ) ( Paleta standard )


Apague o conteudo do text do edit .

Coloque o label em cima do edit e mude o caption do Label para Destinatário .

E agora faça os procedimentos :

De dois clicks sobre o button,apague o begin e o end e adicione o seguinte código :


var
Email : String;
begin
Email := 'mailto:'+edit1.Text;
ShellExecute(GetDesktopWindow,'Open',PChar(Email), nil,nil,SW_NORMAL);
end;

Créditos: 'samu.el™



avatar
Mr.Positive
Membro
Membro

Mensagens : 54
Agradecimentos : 11
Data de inscrição : 28/12/2010
Idade : 23
Localização : Recreio

Ver perfil do usuário http://www.jonathanmaia.com.br

Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum