详细解决方案
100分,notes怎么导出公文
热度:403 发布时间:2016-05-05 06:42:22
基于lotus notes的公文管理系统,用notes客户端和id登录,如何快速将里面的收发的文件导出来
------解决思路----------------------
http://www.ibm.com/developerworks/cn/lotus/notes-attachment-export/
参考一下
------解决思路----------------------
Sub Initialize
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = New NotesDatabase( "SanFrancisco", "hill.nsf" )
Set view = db.GetView( "All Documents" )
Set doc = view.GetLastDocument
If doc.HasEmbedded Then
Forall o In doc.EmbeddedObjects
Messagebox( o.Name )
End Forall
Else
Messagebox "No embedded objects found"
End If
End Sub
2.
Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
Const MAX = 100000
fileCount = 0
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) _
And ( o.FileSize > MAX ) Then
fileCount = fileCount + 1
Call o.ExtractFile _
( "c:\reports\newfile" & Cstr(fileCount) )
Call o.Remove
Call doc.Save( True, True )
End If
End Forall
End If
相关解决方案
- 100分!求解决Struts2 配置有关问题
- 请问lucene的一个有关问题,100分
- 急————100分————————关于heml,该如何解决
- 【100分】怎么监控多台服务器的log,alert,error
- 「100分」html文本编辑器,该如何解决
- ibatis 怎么直接执行sql语句,待!100分
- 即时查询的有关问题,帮忙看看 100分
- 100分: 怎么从Java高速缓存查看器中提取Jar包
- 100分 求思路, js 有关问题
- 在eclipse中,tomcat发布多个项目怎么操作? 100分
- 【100分】问个java开发的有关问题
- 【100分】xml_parse_into_struct 函数解析XML,中文乱码
- 100分 找老师编译jar电子书程序,该如何处理
- 算法题:100分,给出任意长度数字字符串,求所有不重复的组合解决思路
- java txt资料内容替换!100分
- 【100分】有关String.
- 100分 js 自定义 messagebox,该如何解决
- 工作流项目的各种疑惑 100分,该怎么处理
- 解析lotus notes 邮箱的nsf文件时怎么绕过身份验证?即不用选择id文件也能对其进行解析
- java timer的使用有关问题 100分
- 【100分】static关于静态类的有关问题
- 100分:JAVA怎么修改用户HTTP请求
- 【100分】web页面开单据,单据明细有几千条,请教如何读写才能保证性能和数据的准确性
- 交易网站中的安全有关问题!100分.如果不够再加
- 100分,继续,怎么编译的有关问题
- 100分!各路人马请进…解决方法
- DXperienceUniversal-10.1.6.exe 哪位高手有 100分
- 100分 求 Live Meeting 哪里有上载和使用方法()
- 100分 求 Live Meeting 哪里有下载和使用方法()
- 请给一个j#操作xml资料的实例! 100分