zoukankan      html  css  js  c++  java
  • lotus 附件的存、 取 、删

    在逛论坛的时候发现的,看到写的不错,故而摘抄了下来。希望大家共同努力!
    注意:这个方法是将附件放到富文本中,然后再将富文本当做存储的介质,进行存取删的操作
    取附件方法------------------------------------------
    通过Notesdocument.EmabledObjects属性取得
    Java代码 复制代码
    1. Dim db As NotesDatabase  
    2. Dim view As NotesView  
    3. Dim doc As NotesDocument  
    4. Set db = New NotesDatabase( "SanFrancisco", "hill.nsf" )  
    5. Set view = db.GetView( "All Documents" )  
    6. Set doc = view.GetLastDocument  
    7. If doc.HasEmbedded Then  
    8.   Forall o In doc.EmbeddedObjects  
    9.     Messagebox( o.Name )  
    10.   End Forall  
    11. Else  
    12.   Messagebox "No embedded objects found" 
    13. End If 
    1. Dim db As NotesDatabase 
    2. Dim view As NotesView 
    3. Dim doc As NotesDocument 
    4. Set db = New NotesDatabase( "SanFrancisco", "hill.nsf"
    5. Set view = db.GetView( "All Documents"
    6. Set doc = view.GetLastDocument 
    7. If doc.HasEmbedded Then 
    8.   Forall o In doc.EmbeddedObjects 
    9.     Messagebox( o.Name ) 
    10.   End Forall 
    11. Else 
    12.   Messagebox "No embedded objects found" 
    13. End If 


    拆离方法-------------------
    可以用NotesEmbeddedObject这个对象的ExtractFile方法
    Java代码 复制代码
    1. Dim doc As NotesDocument  
    2. Dim rtitem As Variant  
    3. Dim fileCount As Integer  
    4. Const MAX = 100000 
    5. fileCount = 0      
    6. '...set value of doc...  
    7. Set rtitem = doc.GetFirstItem( "Body" )  
    8. If ( rtitem.Type = RICHTEXT ) Then  
    9.   Forall o In rtitem.EmbeddedObjects  
    10.     If ( o.Type = EMBED_ATTACHMENT ) _  
    11.     And ( o.FileSize > MAX ) Then  
    12.       fileCount = fileCount + 1 
    13.       Call o.ExtractFile _  
    14.       ( "c:\reports\newfile" & Cstr(fileCount) )  
    15.       Call o.Remove  
    16.       Call doc.Save( True, True )  
    17.     End If  
    18.   End Forall  
    19. End If 
    1. Dim doc As NotesDocument 
    2. Dim rtitem As Variant 
    3. Dim fileCount As Integer 
    4. Const MAX = 100000 
    5. fileCount = 0     
    6. '...set value of doc... 
    7. Set rtitem = doc.GetFirstItem( "Body"
    8. If ( rtitem.Type = RICHTEXT ) Then 
    9.   Forall o In rtitem.EmbeddedObjects 
    10.     If ( o.Type = EMBED_ATTACHMENT ) _ 
    11.     And ( o.FileSize > MAX ) Then 
    12.       fileCount = fileCount + 1 
    13.       Call o.ExtractFile _ 
    14.       ( "c:\reports\newfile" & Cstr(fileCount) ) 
    15.       Call o.Remove 
    16.       Call doc.Save( True, True ) 
    17.     End If 
    18.   End Forall 
    19. End If 


    再次上传附件方法-------
    可使用Notesrichtextitem的EmbedObject方法上传
    Java代码 复制代码
    1. Dim session As New NotesSession  
    2. Dim db As NotesDatabase  
    3. Dim doc As NotesDocument  
    4. Dim rtitem As NotesRichTextItem  
    5. Dim object As NotesEmbeddedObject  
    6. Set db = session.CurrentDatabase  
    7. Set doc = New NotesDocument( db )  
    8. Set rtitem = New NotesRichTextItem( doc, "Body" )  
    9. Set object = rtitem.EmbedObject _  
    10. ( EMBED_ATTACHMENT, "", "c:\jim.sam")  
    11. doc.Form = "Main Topic" 
    12. doc.Subject = "Here's Jim's document, as an attachment" 

  • 相关阅读:
    fatfs输出目录
    《基于多光程长的高散射物质光学参数的测量及其应用》论文
    《2013李永乐线性代数强化班》视频1,2,3,4
    oled屏幕模块
    python中数据结构
    大数据python词频统计之hdfs分发-cacheFile
    8大排序之Python实现 冒泡排序优化
    大数据python词频统计之本地分发-file
    2019-04-30vmware虚拟机安装macos 10.8格式为iso
    2019-04-24Scurecrt 如何下载文本文件
  • 原文地址:https://www.cnblogs.com/hannover/p/2312531.html
Copyright © 2011-2022 走看看