标签: lotusscript

我正在进行数据迁移任务,我必须将一个稍大的Lotus Notes应用程序导出到博客平台.我的第一个任务是将Lotus Notes中的文章导出为CSV文件.

我在LotusScript中创建了一个代理,将数据导出为CSV文件.我使用此IBM DeveloperWorks论坛帖子的修改版本.它基本上完成了这项工作.但Rich Text字段的内容将被删除任何格式.这不是我想要的,我希望Rich Text字段呈现为HTML.

GetItemValue方法的文档明确声明文本呈现为纯文本.所以我开始研究能够检索HTML的东西.我在IBM文章如何使用LotusScript访问富文本字段中找到了NotesMIMEEntity类和一些示例代码.

但是,对于上述文章中描述的技术,富文本字段需要具有"将内容存储为HTML和MIME"属性.我的Lotus Notes数据库不是这种情况.我试图在有问题的字段上设置属性,但它没有做到这一点.

是否可以使用NotesMIMEEntity并在添加内容后设置"将内容存储为HTML和MIME"属性,以导出呈现为HTML的字段？

或者我将Notes数据库Rich Text字段导出为HTML的选项有哪些？

额外信息:我使用的是IBM Lotus Domino Designer 8.5版

有没有办法在Domino webservices中允许身份验证？如果是这样,我该怎么做？

我知道使用Lotus Script你可以发出通知(自动发送电子邮件),只有你有一些手动触发的控件(如按钮等等).

我想要的是自动触发通知(没有人为干预).比如说我有一个带有日期字段的莲花文档(值是今天),15天后我希望Lotus应用程序发送文件已经15天的通知.

谢谢你的回复!

我创建了两个代理,一个由Java构成,另一个由Lotusscript构成.java代理程序计划每5分钟运行一次,而lotusscript代理程序计划每15分钟运行一次.因此,有一段时间他们将同时运行.当发生这种情况时,java代理必须暂停/等待,直到lotusscript代理完成.我尝试使用Profile DOcuments和Environment Variables来模拟锁定,但无济于事.有没有办法可以模拟这两种不同代理之间的锁定？请帮忙.非常感谢!

编辑:我忘了说2个代理商驻留在两个不同的数据库中,使事情复杂化:(

我有一个代理,代码如下:

Sub Initialize
    MessageBox "AgentStart"
    Print "AgentStart"

    Dim ws As New NotesUIWorkspace
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim vItemsBySupplierSpec As NotesView
    Dim Doc As NotesDocument
    Dim DocsWithSameSupplierSpec As NotesDocumentCollection
    Dim MatchingDoc As NotesDocument
    Set Doc = ws.CurrentDocument.Document

    If Len(Doc.ItemSupplierSpecification(0)) > 0 Then
        ' Check that this supplier specification isn't use anywhere else.'
        Set db = s.CurrentDatabase
        Set vItemsBySupplierSpec = db.GetView("vItemsBySupplierSpec")

        Set DocsWithSameSupplierSpec = vItemsBySupplierSpec.GetAllDocumentsByKey(Doc.ItemSupplierSpecification(0), True)
        Set MatchingDoc = DocsWithSameSupplierSpec.GetFirstDocument

        Dim ItemsString As String

        ItemsString = "The …

我有这个功能..我想在每次添加mWrkFlwDoc.workFlow(0)之前向mVal添加一个新行

Dim mWrkFlwVw As NotesView
Dim mWrkFlwColl As NotesDocumentCollection
Dim mWrkFlwDoc As NotesDocument
Dim mVal As String

Set mWrkFlwVw = gDB.GetView("lkpWorkFlow")
Set mWrkFlwColl = mWrkFlwVw.GetAllDocumentsByKey(gDoc.empName(0),True)
Set mWrkFlwDoc = mWrkFlwColl.GetFirstDocument

mVal = ""

Do While Not mWrkFlwDoc Is Nothing
    If mWrkFlwDoc.documentID(0) = gDoc.documentID(0) Then
        ***mVal =mVal+ mWrkFlwDoc.workFlow(0)*** ' add new line before adding mWrkFlwDoc.workFlow(0)

    End If
    Set mWrkFlwDoc = mWrkFlwColl.GetNextDocument(mWrkFlwDoc)
Loop
gDoc.workFlowHistory = mVal
gDoc.save True,True
workFlowHistory=True