Hola,
Desde hace bastante tiempo esta funcionando el envio de emails con un archivo adjunto con OutLook 97 y 2002, pero al cambiar a 2003, deja de funcionar y da un mensaje de:
Argumento no valido en linea de comandos. Compruebe el modificador que esta usando.
He buscado por todos los foros y no he encontrado solución, el código es de sobras conocido.
Código Delphi
[-]
Var
MailTo:String;
Body:String;
Archivo:String;
CC:String;
begin
MailTo := 'usuario@aaaaa.com';
Body := 'Cuerpo del mensaje';
Archivo := 'c:\fichero.pdf';
CC := 'usuario@bbbbb.com';
ShellExecute( Self.Handle, 'open',
PChar(
'mailto:' + Trim( MailTo )
+ '?subject=' + 'Reporte de Servicio Diario'
+ '&body=' + Body
+ CC
+ '&Attach="' + Archivo + '"'
),
nil,
nil,
SW_SHOW );
¿Alguien sabe si hay solución para Outlook 2003 con Shellexecute?
Con los Indy funciona bien, pero no queda constancia en elementos enviados, que para este caso es necesario.
Gracias.