Sub Initialize()
On Error GoTo a
'判断当前数据库库中的一条文档是否有答复文档,如果没有则创建一条。
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.Currentdatabase
Dim doc As NotesDocument
Set doc = db.Getdocumentbyunid("25E4B099A184A16148257957001594B9")
Dim dc As NotesDocumentCollection
Set dc = doc.Responses
If dc.Count = 0 Then
MsgBox "没有答复文档"
'如果没有答复文档则创建答复文档
Dim ResDoc As New NotesDocument(db)
ResDoc.form = "ResDoc"
Else
MsgBox "找到答复文档了"
Set ResDoc = dc.GetFirstDocument
MsgBox ResDoc.form(0)
End If
Call ResDoc.Makeresponse(doc)
Call ResDoc.Save(True,True)
Exit Sub
a:
MsgBox "错误在代理agent_doc的第" & Erl & "行,描述:---" & Error
End Sub