Como faço para que meu e-mail digitado em uma Label...
02/02/2003
0
: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
Curtir tópico
+ 0
Responder
Posts
02/02/2003
Skaarj
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?
Responder
Clique aqui para fazer login e interagir na Comunidade :)