Chamar Outlook Express
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Chamar Outlook Express
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 :
Adicione no form:
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 :
Créditos: 'samu.el™
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
- Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 29
Localização : Recreio
Humor : Feliz !
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|