答复文档的判断和创建

 

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