Shellexecute y Outlook 2003

[toni.vi]

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.

[ContraVeneno]

Código Delphi [-]
Uses Outlook2000
...
Function Tfrm.EnviarCorreo(const Titulo, Mensaje, NombreArchivo, NombreArchivoCompleto, 
                                      CorreoDestino, CorreoAlterno: String; AutoEnvio: Boolean): Boolean;
var
Outlook: _Application;
AFolder : MAPIFolder;
ANameSpace : _NameSpace;
AMailItem : _MailItem;
AAttachments : Attachments;
AppWasRunning: boolean; //Comprobar ejecución de outlook
lcid: integer; //ID usuario
Unknown: IUnknown;
Resultado: HResult;
begin
 lcid := LOCALE_USER_DEFAULT;
 //----
 Resultado := GetActiveObject(CLASS_OutlookApplication, nil, Unknown);
 if (Resultado = MK_E_UNAVAILABLE) or (AppWasRunning) then
  Outlook := CoOutlookApplication.Create
 else begin
  OleCheck(Resultado); // Comprobar que se generó el objeto
  OleCheck(Unknown.QueryInterface(_Application, Outlook));
  AppWasRunning := True; // Establece que outlook esta ejecutándose
 end;
 //Obtener Sesión
 ANameSpace := Outlook.Get_Session;
 //Obtener bandeja de entrada
 AFolder := ANameSpace.GetDefaultFolder(olFolderInbox);

 //Muestra la carpeta de entrada
 //AFolder.Display;

 //Genera un nuevo correo
 AMailItem := (Outlook.CreateItem(olMailItem) as MailItem);
 AMailItem.To_ := CorreoDestino;
 AMailItem.CC := CorreoAlterno;
 AMailItem.Subject := Titulo;
 AMailItem.Body := Mensaje;

 AAttachments := AMailItem.Get_Attachments;

 //Agregar adjuntos en caso de que existan
 if (Length(NombreArchivoCompleto) > 0) then begin
  AAttachments.Add(NombreArchivoCompleto,$00000001 ,
  Length(Mensaje)+1,NombreArchivo);
 end;

 AMailItem.Save;
 If AutoEnvio then begin
   Try
    AMailItem.Send;
    Result := True;
    except on E:EExternal do begin
      Result := False;
    end;
   end;
 end else begin
  try
   AMailItem.Display(0);
   Result := True;
   except on E:EExternal do begin
    Result := False;
    Raise;
   end;
  end;
 end;
 //MessageDlg('Correo Enviado Correctamente',mtinformation,[mbok],0);
 // Outlook.Quit; //Cierra Outlook
end;

No recuerdo de donde exactamente obtuve ese código, pero me funciona en todas las versiones del Outlook 2000, 2003 y 2007.

[toni.vi]

Gracias.
Esto funciona bien.
La única cosa que falta y era importante respecto a Shellexecute, es la firma del usuario que envía el email, antes salía automáticamente y ahora no sale.
¿Sabes si es posible?.
Por cierto he tenido que bloquear la línea:

Código SQL [-]
Resultado := GetActiveObject(CLASS_OutlookApplication, nil, Unknown);

porque me da error al compilar y no se que unit necesito.

[pborges36]

Solo queria agradecer a CotraVeneno por este post. Me resulto sumamente util.
En verdad es mucho mejor buscar priemro en el foro ante que escribir un hilo nuevo.
Muchas gracias ContraVeneno y a los miembros del foro en general.
Saludos.

[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 := 'm@hotmail.com';
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.