如何使用Lotus Script进行自动通知

Question

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

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

谢谢你的回复！

Answer 1

创建一个LotusScript代理并安排它例如每天1:00

此代理将在服务器上的特定时间执行，您可以在没有人为干预的情况下完成您想要执行的所有操作。

将Target设置为“数据库中的所有文档”。 您可以通过这种方式获取所有文档：

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
  ' test date field in doc and send message if date is older then 15 days
  Set doc = collection.GetNextDocument(doc)
Wend