Enviar email usando OUTLOOK 2003

[waly2k1]

Segun tu ejemplo en esta linea no te funcionaría salvo que nunca
uses CC, sino concatena al body el email q pasas en CC.

  '&body='+Body+
  CC+

solucion:

'&body=' + Body +
'&CC=' + CC +

el tercer parametro de la api es de tipo Pchar o sea que deberías
convertir antes de pasar toda la cadena, sino te da error y no
compila la aplicación.

El ejemplo de la web es de Outlook 2000, tengo 2003 y no funciona
tampoco en outlook express, mi SO Win2K SP4

Quedó bárbaro el codigo, pero simplemente no adjunta archivos.
Paso para que alguien vea y pueda echar una mano.
Saludos y gracias por el tiempo. Otra vez será!!!

procedure TfrmMain.mnuSendMail(Sender: TObject);
Var
    MailTo:String;
    Body:String;
    Archivo:String;
    CC:String;
begin
    MailTo := '[email protected]';
    Body := 'NOBODY(No Body)';
    Archivo := 'C:\Attachment.txt';
    CC := '[email protected]';

	// NOTA: Así quedó después de tantas idas y vueltas y no anduvo el attach
	ShellExecute( Handle, 'open',
        PChar(
		'mailto:' + Trim( MailTo ) +
	        '?subject=' + 'Reporte de Servicio Diario' +
		'&body=' + Body +
	        '&CC=' + CC +
		'&File=' + Archivo
        ),
	'',
	'',
	SW_SHOW );
end;