把notes里的以OLE形式存放的对象，导出成一个文件。[2]

     for i=1 to dclsec.count
      set doctmp=dclsec.getnthdocument(i)
      if doctmp.foldername(0)=doccur.secondkind(0) then
       set docf=doctmp
       hassec=true
      end if
     next     
    end if
    
    if (not hassec) or dclsec.count=0 then
     isolog.logaction("新oa中没有“"+doccur.secondkind(0)+"”这个二级分类！")
     goto nextprodoc
    end if    
   end if  
   
   dociso.form="f_deptfile"
   dociso.parentdocunid=docf.universalid
   dociso.str_type="file"
   dociso.foldername=doccur.subject(0)
   dociso.str_orgtype="org"
   dociso.docid=dociso.universalid
   dociso.delsymbol="0"
   dociso.dbpath="zhteloa/isofilemanager.nsf"
   dociso.hidden="0"
   dociso.isarchivesattach=""
   
   '设置正文信息
   dociso.hasworddoc="1"
   isuseuptemplate="0"
   ofilename=doccur.universalid+".doc"
   ofiledate=""
   dim srcfilename as string
   
   set rtf=dociso.createrichtextitem("lastversiondoc")   
   if dociso.save(true,false) then
    if doccur.~$oleobjprogid(0)="excel.sheet" then
     srcfilename=doccur.universalid+".xls"
'     set wks=app.application.worksheets(1)
'     call wks.saveas("d:\"+doccur.universalid+".xls") 
'     app.application.activedocument.saveas("d:\\"+doccur.universalid+".xls")
    end if
    '处理ppt
    if doccur.~$oleobjprogid(0)="powerpoint.show" then
     srcfilename=doccur.universalid+".ppt"
    end if
    '处理word
    if doccur.~$oleobjprogid(0)="word.document" then
     srcfilename=doccur.universalid+".doc"
'     set document = app.application.documents(1)
'     call document.saveas("d:\\"+doccur.universalid+".doc")
    end if    
    call rtf.embedobject(embed_attachment,"","d:\\"+srcfilename,srcfilename)    
    call dociso.makeresponse(docf)
    call dociso.save(true,false)
   else
    isolog.logaction("a")
   end if
nextprodoc:   
   set doccur=dclcur.getnextdocument(doccur)
  wend  
 end if
 
 isolog.logaction("===========================当前时间是："+now()+"======================================")
 call isolog.close 
 exit sub 
isoerr:
 print "第"+cstr(erl())+" 行，出现 "+error()+"  错误"
 isolog.logaction(cstr(erl())+"  "+error())  
 call isolog.close