Problema al adjuntar archivos al Outlook

[vicvil]

Que tal!
Tengo el siguiente problema:
Estoy usando un componente llamado TEmail2 que sirve para el envio facil de email, el cual llama al outllok o cualquier otro programa configurado para el envio de correo.
En cada listado que muestra el programa tiene la posibilidad de enviarlo por email, el problema se me presenta en algunos casos solamente. Es decir, algunos listados son adjuntados perfectamente y se pueden enviar sin problemas y otros son adjuntados pero el outlook se queda colgado o sea muestra los archivos adjuntos pero no se puede hacer nada mas por consiguiente se pega tanto el outlook como el programa.
Si alguien sabe el motivo de esto, a que se puede deber le agradeceria su respuesta ya que estoy loco tratando de entender el motivo.

[roman]

Disculpa que no conteste a tu pregunta, realmente no conozco la componente que mencionas. Sin embargo te recomiendo que en lugar de usar clientes externos como Outlook pruebes de usar las componentes Indy. Estas son unas componentes gratuitas que puedes bajar de http://www.indyproject.org/ y entre muchas otras cosas te sirven para mandar correos desde tu aplicación sin depender de ningún cliente externo. Son sencillas de usar y en cuestión de a lo sumo una tarde que le dediques las tendrás trabajando. En estos foros podrás encontrar varias referencias al uso de las Indy, particularmente de TIdSMTP.

// Saludos

[fredo]

si los quiere sin componentes te ayudo un poco...
recuerda declara la funcion con tu nombree de formulario y publica....

Código Delphi [-]
 function TFrm_Main.SendMailMAPI(const Subject, Body, FileName, SenderName, SenderEMail,
                   RecepientName, RecepientEMail: String) : Integer;
 var
   message: TMapiMessage;
   lpSender,
   lpRecepient: TMapiRecipDesc;
   FileAttach: TMapiFileDesc;
   SM: TFNMapiSendMail;
   MAPIModule: HModule;
 
 begin
   FillChar(message, SizeOf(message), 0);
   with message do
   begin
     if (Subject<>'') then
     begin
       lpszSubject := PChar(Subject)
     end;
     if (Body<>'') then
     begin
       lpszNoteText := PChar(Body)
     end;
     if (SenderEMail<>'') then
     begin
       lpSender.ulRecipClass := MAPI_ORIG;
       if (SenderName='') then
       begin
            lpSender.lpszName := PChar(SenderEMail)
       end
       else
       begin
             lpSender.lpszName := PChar(SenderName)
       end;
       lpSender.lpszAddress := PChar('SMTP:'+SenderEMail);
       lpSender.ulReserved := 0;
       lpSender.ulEIDSize := 0;
       lpSender.lpEntryID := nil;
       lpOriginator := @lpSender;
     end;
     if (RecepientEMail<>'') then
     begin
       lpRecepient.ulRecipClass := MAPI_TO;
       if (RecepientName='') then
       begin
         lpRecepient.lpszName := PChar(RecepientEMail)
       end
       else
       begin
         lpRecepient.lpszName := PChar(RecepientName)
       end;
       lpRecepient.lpszAddress := PChar('SMTP:'+RecepientEMail);
       lpRecepient.ulReserved := 0;
       lpRecepient.ulEIDSize := 0;
       lpRecepient.lpEntryID := nil;
       nRecipCount := 1;
       lpRecips := @lpRecepient;
     end
     else
     begin
       lpRecips := nil
     end;
     if (FileName='') then
     begin
       nFileCount := 0;
       lpFiles := nil;
     end
     else
     begin
       FillChar(FileAttach, SizeOf(FileAttach), 0);
       FileAttach.nPosition := Cardinal($FFFFFFFF);
       FileAttach.lpszPathName := PChar(FileName);
       nFileCount := 1;
       lpFiles := @FileAttach;
     end;
   end;
   MAPIModule := LoadLibrary(PChar(MAPIDLL));
   if MAPIModule=0 then
   begin
     Result := -1
   end
   else
   begin
     try
       @SM := GetProcAddress(MAPIModule, 'MAPISendMail');
       if @SM<>nil then
       begin
         Result := SM(0, Application.Handle, message, MAPI_DIALOG or
                      MAPI_LOGON_UI, 0);
       end
       else
       begin
         Result := 1
       end;
 
     finally
       FreeLibrary(MAPIModule);
     end;
   end;
   if Result<>0 then
   begin
     //MessageDlg('Error sending mail ('+IntToStr(Result)+').', mtError, [mbOk],0)
   end;
 end;

[vicvil]

Este Codigo Resulto Ser Bastante Bueno, Pero Lamentablemente Solo Sirve Para Enviar Un Solo Archivo Adjunto...
¿como Puedo Hacer Para Enviar Mas De Uno?

[vicvil]

Ya resolvi el problema, modifique algunas cosas del codigo y ahora puedo adjuntar mas de un archivo.

[fredo]

actualiza el codigo para que otros tambien puedan usarlo.....

Saludos.

[vicvil]

Les agradezco sus respuestas, probare ambas formas...gracias