Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Participe do fórum, é rápido e fácil

Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Chamar Outlook Express

Ir para baixo

Chamar Outlook Express  Empty Chamar Outlook Express

Mensagem por Mr.Positive Qua Jan 12, 2011 4:23 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™
Mr.Positive
Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 29
Localização : Recreio
Humor : Feliz !
Chamar Outlook Express  Left_bar_bleue0 / 1000 / 100Chamar Outlook Express  Right_bar_bleue



Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos