Enviar email com anexo

Question

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.GratoLuiz Carlos...

L_carlos · Answer

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

F�rum Enviar email com anexo #374623