Enviar email com anexo

Delphi

06/09/2009

Olá,

Como faço para ao clicar num botão abrir o programa de e-mail padrão da máquina e incluindo um arquivo anexado no e-mail, por exemplo, anexando o arquivo C:\AGENDA.txt.

Grato

Luiz Carlos


L_carlos

L_carlos

Curtidas 0

Respostas

L_carlos

L_carlos

06/09/2009

Achei no google o codigo abaixo, mas não funciona, alguem sabe por que?

procedure TForm1.Button1Click(Sender: TObject);
var
    pEMail: String;

begin



pEMail:=  ´mailto: jose@bol.com.br - "C:\agenda.txt"´;

       {$ifdef win32}
       ShellExecute(Handle,´Open´,pChar(pEmail),nil,nil,sw_Show);
       {$endif}

end;


Luiz Carlos


GOSTEI 0
POSTAR