从视图引出附件文件的LOTUSSCRIPT程序设计

原创 2004年07月31日 21:33:00


Sub Click(Source As Button)
---Dim session As New notessession
-- Dim db As notesdatabase
---Dim dc As notesdocument.ollection
---Dim doc As notesdocument. ---Dim doc2 As notesdocument. ---Dim item As notesitem
---Set db= session.currentdatabase
---Set dc=db.alldocument.
---Dim rtitem As notesrichtextitem

---Set doc=dc.getfirstdocument. ---Set doc2=doc
---While Not (doc2 Is Nothing)
---- Set rtitem=doc2.getfirstitem("Body")
---- Call doc2.save(True,False)
---- If (RTITEM.TYPE=RICHTEXT) Then
--------Forall k In rtitem.embeddedobjects
------------If (k.type=embed_attachment) Then
----------------Call k.extractfile("c:/temp/" & k.Name )
------------End If

--------End Forall
--------Call doc2.save(True, True)
---- End If
---- Set doc2=dc.getnextdocument.doc)
---- Set doc=doc2
---Wend

End Sub

46. Lotus Notes中编程发送邮件(一)

邮件是Lotus Notes体系的核心和基本功能,以至于Send()是NotesDocument的一个方法,任何一个文档都可以被发送出去,Notes里的一封邮件也只是一个有一些特殊字段的文档。在程序开...
  • starrow
  • starrow
  • 2013年08月14日 17:24
  • 9153

35. 面向对象的LotusScript(七)之导入Excel

Microsoft Office是应用最广泛的办公软件,绝大多数公司的必备软件。其中的Excel操作直观方便,很多公司都有大量数据以Excel文件的格式保存。一个LotusNotes应用在很多情况下都...
  • starrow
  • starrow
  • 2013年07月04日 22:43
  • 4223

41. 面向对象的LotusScript(十三)之继承与事件

在36. 面向对象的LotusScript(八)之继承里,我们提到LotusScript中继承的应用可以分为两类。第一类符合面向对象思想中继承的原意,已经在导出Excel的系列文章里例示了。第二类特殊...
  • starrow
  • starrow
  • 2013年07月16日 17:37
  • 3070

33. 面向对象的LotusScript(六)之为自定义对象模拟事件

(这是一篇我几年前发表在IBM developerWorks上的文章,在此转帖,构成面向对象的LotusScript的系列文章之一篇,并为后续的讨论做准备。) 前言 事件是面向对象语言普遍支持和使用的...
  • starrow
  • starrow
  • 2013年07月02日 11:39
  • 7580

37. 面向对象的LotusScript(九)之导出Excel(一)

上一篇文章说到在LotusScript编写类时采用继承有两类情况,接下来的几篇文章介绍的就是其中的一种:为了重用代码。将Notes数据导出到Excel就是展现这类继承的一个很好场合。 微软的Excel...
  • starrow
  • starrow
  • 2013年07月07日 16:47
  • 3918

点击屏幕引出或显示部件的方法

最近开发中涉及到一些部件需要,点击一下屏幕,部件显示,再点击一次部件隐藏,如果3s钟不点击屏幕,部件自动隐藏。 这个功能android4.3已经提供一些类:SystemUiHiderHoneycom...
  • sanlei1616
  • sanlei1616
  • 2014年03月25日 17:19
  • 2696

软件安全学习笔记(7):PE文件总体格式

1、MS-DOS MZ文件头(64个字节) 定位PE文件头开始位置,也用于PE文件合法性检测。最后四个字节(3C处):PE文件头开始位置 2、DOS Stub 一段小的DOS程序...
  • u014679804
  • u014679804
  • 2015年09月11日 21:08
  • 340

86. LotusScript中的数组函数

R6对LotusScript有一些改进和增强,自那之后,Notes对象的接口时有补充和更新,但语言本身没有变化。那些改进就包括增加诸如ArrayGetIndex、ArrayUnique的有用函数。但在...
  • starrow
  • starrow
  • 2014年12月16日 11:03
  • 4848

Awk 中变量作用域的问题

本文从两个错误的例程开始,提出 Awk 中全局变量污染的现象,并分析其发生的原因。接下来,针对 Awk 变量作用域的特点,提出两种避免全局变量污染的常用方法,引出 Awk 中定义局部变量的方法,并提出...
  • jb19900111
  • jb19900111
  • 2014年03月04日 10:30
  • 525

文档视图程序设计

文档视图程序设计 1、实验目的和要求 (1)创建一个多文档应用程序Ex_SDI,用来操作“课程信息”文档。 (2)创建一个可序列化类CCourseInfo,用于“课程信息”的序列...
  • u012736084
  • u012736084
  • 2014年05月20日 21:38
  • 1033
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:从视图引出附件文件的LOTUSSCRIPT程序设计
举报原因:
原因补充:

(最多只允许输入30个字)