| 解答 |
千万注意：下面是一段样例程序，只是提供了一个实现方法。Notes 技术支持部门不会根据某个用户的环境去定制这段代码。对用户来说这只是一个建议，并不属于 IBM Lotus 软件的支持范围内。
在数据库中创建一个新的代理，代理属性为:
共享
触发：按事件，新邮件到达后
包含以下代码：
Sub Initialize
On Error Goto ErrorHandler
Dim s As New NotesSession
Dim a As NotesAgent
Dim col As NotesDocumentCollection
Dim doc As NotesDocument, rptDoc As NotesDocument
Dim stDate As NotesItem
Set a = s.CurrentAgent
Set col = s.CurrentDatabase.UnprocessedDocuments()
Set doc = col.getfirstdocument
Do Until doc Is Nothing
If doc.Repeats(0) = "1" Then
'Save the main doc
doc.NoticeType = "A"
doc.Form = "Appointment"
doc.ReplaceItemValue "$CSFlags", "c"
doc.ReplaceItemValue "Subject", doc.GetItemValue("TOPIC")
doc.ReplaceItemValue "_ViewIcon", 158
doc.Save True, False
doc.RemoveFromFolder "($Inbox)"
'Create child document
Set rptDoc = s.CurrentDatabase.CreateDocument()
rptDoc.MakeResponse doc
doc.CopyAllItems rptDoc
rptDoc.ReplaceItemValue "StartDate", rptDoc.GetItemValue("StartDateTime")
rptDoc.ReplaceItemValue "StartTime", rptDoc.GetItemValue("StartDateTime")
Set stDate = rptDoc.GetFirstItem("RepeatDates")
rptDoc.CopyItem stDate, "RepeatInstanceDates"
rptDoc.CopyItem stDate, "StartDateTime"
rptDoc.CopyItem stDate, "CALENDARDATETIME"
rptDoc.ReplaceItemValue "EndDate", rptDoc.GetItemValue("EndDateTime")
rptDoc.ReplaceItemValue "EndTime", rptDoc.GetItemValue("EndDateTime")
Set stDate = rptDoc.GetFirstItem("RepeatEndDates")
rptDoc.CopyItem stDate, "EndDateTime"
rptDoc.ReplaceItemValue "OrgRepeat", "1"
rptDoc.ReplaceItemValue "ORGTABLE", "C0"
rptDoc.ReplaceItemValue "Repeats", "1"
rptDoc.ReplaceItemValue "$RefOptions", "1"
rptDoc.ReplaceItemValue "$CSFlags", "i"
rptDoc.Form = "Appointment"
rptDoc.Save True, False
Else
Set rptDoc = s.CurrentDatabase.CreateDocument()
rptDoc.MakeResponse doc
doc.CopyAllItems rptDoc
doc.NoticeType = "A"
Set stDate = rptDoc.GetFirstItem("StartDateTime")
rptDoc.CopyItem stDate, "CALENDARDATETIME"
rptDoc.Save True, False
doc.Save True, False
doc.RemoveFromFolder "($Inbox)"
End If
Call s.UpdateProcessedDoc(doc)
Set doc = col.GetNextDocument(doc)
Loop
Done:
Exit Sub
ErrorHandler:
Print "Error in agent AutoAccept in " & a.Parent.FilePath
Print "Error (" & Cstr(Err) & " on line " & Cstr(Erl) & "): " & Error
Resume Done
End Sub
|
相关推荐
- 在忙碌循环中，持续检查时间差是否小于等于`busyTime`，直到满足条件才退出循环。 - 在空闲循环中，调用`Sleep(idleTime)`使线程暂停指定的时间。 - 这样通过调整`busyTime`和`idleTime`的比例，可以控制CPU的...
- 再次双击Notes图标时，系统会自动执行安装程序。 - 使用新的用户ID文件进行简单设置即可连接到新服务器。 2. **删除特定文件（如果有必要）：** - 删除`desktop.dsk`、`log.nsf`和`names.nsf`文件。 #### 四、...
- 若不满足分区条件，安装程序文件至`C:\Program Files\Lotus\Notes`，数据文件至`C:\Program Files\Lotus\Notes\Data`。 - 若满足分区条件，安装程序文件至`D:\Notes`，数据文件至`D:\Notes\Data`。 2. **运行...
在示例程序中，繁忙时间（busyTime）和空闲时间（idleTime）被设置为相等，这样在整个循环中，CPU忙碌和空闲各占一半时间，从而实现50%的CPU占用率。 实验二中，目标是模拟一条正弦曲线的CPU占用率。这里的思路是...
* BUSYTIME.NTF：本地空闲时间信息模板 * CACHE.NTF：<本地文档 Document Cache>模板 * DBLIB4.NTF：数据库集模板 * DISCSW6.NTF：讨论 - Notes & Web 模板 * DOCLBM6.NTF：Microsoft Office 文档库模板 * DOCLBS6....
- `busytime.nsf`：记录用户的忙碌时间，用于资源预订。 - `catalog.nsf`：索引数据库，帮助快速定位和访问其他数据库。 - `certlog.nsf`：证书日志，记录所有证书操作历史。 - `certsrv.nsf`：证书服务数据库，处理...
* BUSYTIME.NSF：包含本地空闲时间信息。 * DESKTOP6.NDK：这是映射到书签的工作台。 * HEADLINE.NSF：包含数据库预约信息。 * INSTALL.LOG：包含基于安装 Notes 时可用选项的配置信息，升级新版本的 Notes 时可用此...
10. Lotus Domino/Notes的调度管理器和日历连接器：文档提到了调度管理器 BUSYTIME.NSF 和日历连接器 Lotus Notes Calendar Connector，这些组件用于管理日程和会议等。 11. Lotus Domino的安装与分区服务器：文件...
jsp探针ceshi.jsp ; charset=gb2312" %> class LfSpy { boolean supportHibernate = false; boolean supportJNDI = false;...boolean supportJavaxSql = false;...private final String linuxParseMacAddress(String ...