Comando ShellExecute só não funciona no meu computador...

Delphi

23/03/2007

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?


Janete

Janete

Curtidas 0

Respostas

Massuda

Massuda

23/03/2007

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.


GOSTEI 0
Janete

Janete

23/03/2007

[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);


GOSTEI 0
Marco Salles

Marco Salles

23/03/2007

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 :

mail:=TbContatosEmail.Value if ShellExecute(Handle,´open´, PChar(mail),nil,nil,SW_SHOWMAXIMIZED < 32 then showmessage(´falha na comunicação´);



GOSTEI 0
POSTAR