C++ Builder и Microsoft Outlook

// Подключение
 
bool __fastcall TveForm::ConnectToOutlook()
{
 bool ret = false;
 char *AppProgID = "Outlook.Application";
 ServerIsRunning = false;
 Log.Add( "[Подключение к Outlook]" );
 try
 {
   App = Variant::GetActiveObject( AppProgID );
   ServerIsRunning = true;
   ret = true;
 }
 catch(...)
 {
   try
   {
     App = Variant::CreateObject( AppProgID );
     ret = true;
   }
   catch(...)
   {
     MessError( "Возможно, Outlook не установлен..." );
     Log.Add( "\t- ошибка подключения!" );
   }
 }
 if( ret )
 {
   NS = App.OleFunction( "GetNamespace", "MAPI" ); //"WideString( "MAPI" ));
   Log.Add( "[Поиск папок в Outlook]" );
   ret = PT.FindFolders( NS );
   if( !ret )
   {
     MessError( "Найдены не все папки Outlook!" );
     Log.Add( "\t- не все папки найдены!" );
   }
 }
 return( ret );
}
 
// Пример работы
 
   if( FilesExistsAS( mask ))
   {
     WideString msgname;
     Variant mi;
     Variant fldr = ns.OleFunction( "GetDefaultFolder", 4 ); //olFolderOutbox );
     veForm->Log.Add( "Отправка файлов..." );
     if( fldr.VInteger )
     {
       mi = fldr.OlePropertyGet( "Items" ).OleFunction( "Add" );
       if( mi.VInteger )
       {
         int attr = faReadOnly | faHidden | faSysFile | faArchive | faAnyFile;
         TSearchRec F;
         if( !FindFirst( mask, attr, F )) do
         {
           if( !( F.Attr & faDirectory ))
           {
             veForm->Log.Add( AnsiString( "\tотправляем " ) + F.Name );
             // добавляем в сообщение
             mi.OlePropertyGet( "Attachments" ).OleProcedure( "Add", tl->oipath + F.Name );
                ....
                ....
            }
         } while( !FindNext( F ));
         FindClose( F );
         // отправляем в Outlook
         mi.OlePropertySet( "To", WideString( tl->orcvr ).c_bstr());
         mi.OleProcedure( "Save" );
         mi.OleProcedure( "Send" );
       }
     }
   }
 
// Отключение
 
void __fastcall TveForm::DisconnectFromOutlook()
{
 if( !ServerIsRunning )
   App.OleProcedure( "Quit" );
}