Shellexecute y Outlook 2003

[marilinspi]

hola, no consigo que me adjunte el archivo... que puese ser?
este es el codigo:

Var
MailTo:String;
Body:String;
Archivo:String;
CC:String;
begin
MailTo := '[email protected]';
Body := 'Cuerpo del mensaje';
Archivo := 'C:\143.pdf';
CC := ' Hola';
ShellExecute( Self.Handle, 'open',
PChar(
'mailto:' + Trim( MailTo )
+ '?subject=' + 'Reporte de Servicio Diario'
+ '&body=' + Body
+ CC
+ '&Attach='' + Archivo + '''),
nil,
nil,
SW_SHOW );

gracias desde ya... espero una pronta respuesta.