Enviar email usando OUTLOOK 2003

[waly2k1]

Acá te copio la rutina:

Var
MailTo:String;
Body:String;
Archivo:String;
CC:String;
begin
MailTo := '[email protected]';
Body := 'NOBODY(No Body)';
Archivo := 'c:\wall_cel_CBR600RR_176x220.jpg';
CC := '[email protected]';

ShellExecute( Self.Handle, 'open',
PChar(
'mailto:' + Trim( MailTo ) +
'?subject=' + 'Reporte de Servicio Diario' +
'&body=' + Body +
CC +
'&Attach="' + Archivo + '"'
),
'',
'',
SW_SHOW );

Esto es el resultado:
Destino, asunto está bien, el cuerpo queda así
NOBODY(No Body)[email protected]

Si observas convierto toda la cadena de string a PChar(), sino no funciona
la copia CC aparece en el body, supongo porque no posee un indicador y no adjunta la imagen. Esto lo estoy probando con Outlook Express

Saludos y muchas gracias por tu tiempo.