Fórum Comando ShellExecute só não funciona no meu computador... #339254
23/03/2007
0
Não sei o que pode estar acontecendo, somente no meu computador esse comando para abrir o outlook com um endereço de e-mail, não funciona, o mais estranho que nos outros micros funciona.
procedure TFrmTelefone.SpeedButton1Click(Sender: TObject);
var Mail : String;
begin
Mail := ´TbContatoaEmail.value´;
ShellExecute(Handle,´open´,Pchar(Mail),nil,nil,SW_SHOW);
end;
O que pode ser? alguém já viu isso e pode me ajudar?
procedure TFrmTelefone.SpeedButton1Click(Sender: TObject);
var Mail : String;
begin
Mail := ´TbContatoaEmail.value´;
ShellExecute(Handle,´open´,Pchar(Mail),nil,nil,SW_SHOW);
end;
O que pode ser? alguém já viu isso e pode me ajudar?
Janete
Curtir tópico
+ 0
Responder
Posts
23/03/2007
Massuda
Mail := ´TbContatoaEmail.value´;
Acredito que não tem as aspas simples nesse seu comando... talvez tenha um ´mailto:´ antes do endereço de email, mas não tem as aspas.
Responder
Gostei + 0
23/03/2007
Janete
[quote:9ff433ca76=´Janete´]Mail := ´TbContatoaEmail.value´;
Acredito que não tem as aspas simples nesse seu comando... talvez tenha um ´mailto:´ antes do endereço de email, mas não tem as aspas.[/quote:9ff433ca76]Me desculpa eu quem colocou errado acima, colquei com as aspas, mas está sem aspas, e no meu computador não executa.
Mail := TbContatosEmail.Value;
ShellExecute(Handle,´open´,Pchar(Mail),nil,nil,SW_SHOW);
Responder
Gostei + 0
24/03/2007
Marco Salles
se voce der um [b:7b7f79c18a]Showmessage[/b:7b7f79c18a] no seu TbContatosEmail.Value
qual a mensagem que aparece ???
2) o que acontece quando voce coloca faz esse teste :
qual a mensagem que aparece ???
2) o que acontece quando voce coloca faz esse teste :
mail:=TbContatosEmail.Value
if ShellExecute(Handle,´open´, PChar(mail),nil,nil,SW_SHOWMAXIMIZED
< 32 then
showmessage(´falha na comunicação´);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)