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

Chamar Outlook Express

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Chamar Outlook Express

Mensagem por Mr.Positive em 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
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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