Como faço para que meu e-mail digitado em uma Label...
:roll: Ola Mentes Especiais!
:arrow: Como faço para que meu e-mail digitado em uma label, chame a Caixa de Correio no Outlook Express.
:idea: Preciso de Dicas e Ideias.
:wink: Desde já meu sinceros agradecimentos a todos!
:arrow: Como faço para que meu e-mail digitado em uma label, chame a Caixa de Correio no Outlook Express.
:idea: Preciso de Dicas e Ideias.
:wink: Desde já meu sinceros agradecimentos a todos!
Jfalexandre
Curtidas 0
Respostas
Skaarj
02/02/2003
procedure TForm1.Label1Click(Sender: TObject);
var
x : String;
begin
x := ´mailto:skaarj_wps@hotmail.com?Subject=SKJ´?Body= Exemplo;
ShellExecute(Handle,´open´,PChar(x),nil,nil,SW_SHOW);
end;
Nesse caso voce vai passando parametros [destinatario, assunto e mensagem]
E nesse abaixo só com destinatátrio
ShellExecute(Handle,´open´,´mailto:nome@endereco.com.br´,nil,nil,SW_SHOW);
Não esqça de colocar em ambos os casos em USES a opção SHELLAPI
Blz?
var
x : String;
begin
x := ´mailto:skaarj_wps@hotmail.com?Subject=SKJ´?Body= Exemplo;
ShellExecute(Handle,´open´,PChar(x),nil,nil,SW_SHOW);
end;
Nesse caso voce vai passando parametros [destinatario, assunto e mensagem]
E nesse abaixo só com destinatátrio
ShellExecute(Handle,´open´,´mailto:nome@endereco.com.br´,nil,nil,SW_SHOW);
Não esqça de colocar em ambos os casos em USES a opção SHELLAPI
Blz?
GOSTEI 0
Jfalexandre
02/02/2003
Muito Obrigado pela Dica!
Valeu Galera.
Valeu Galera.
GOSTEI 0