在 Lotus Notes 中创建标准回复文档

i =1
	Nod = 0 ' Number of documents in response view (initialize)
	While (i < 3)
		Set view=db.getview("Admin \ StandRespText")
		Set curdoc1=view.getfirstdocument 'Line 50
		Set curdoc2 = curdoc1
		j=0
		While Not (curdoc2 Is Nothing)
			Set curdoc2 = view.GetNextDocument(curdoc1)
			If ( i > 1) Then
				If ( j = 0) Then
					' ReDim only once when i =2 and j = 0
					RDim=Nod - 1 ' Dimension starts at zero, 
					' so dimension number is one less than 
					' the number of documents
					Redim StanResD(RDim) As Notesdocument
					Redim itms(RDim) As String 'Line 60
				End If
			'---------------------------------------------------------------
			' First loop of I does not get field from documents; 
			' counts the documents
				If curdoc1.HasItem("Subject") Then
					Set item = curdoc1.GetFirstItem("Subject")
					itmv = curdoc1.GetItemValue("Subject")
					itms(j) = Cstr(itmv(0)) 
					j=j+1
				End If
		'--------------------------------------------------------------------
		'Line 70
			End If
			Set curdoc1 = curdoc2
			If ( i = 1) Then
				Nod = Nod+1 ' Count the number of documents (nod) 
				' in this view for the first loop of I only
			End If
		Wend
		i = i +1
	Wend

	Set curuidoc = workspace.CurrentDocument
	userchuz = workspace.Prompt(PROMPT_OKCANCELLISTMULT,_
	"Standard ResponseText List", "Please select the response text _
	to use from the list","", itms)  'Line60
	If (userchuz(0) <> "") Then
		'Continue
		Goto Cont01
	Else
	'No Choice was made
		Exit Sub
	End If  'Line 90
Cont01:

	K=0
	upperBound = Ubound(userchuz)
	While (K <= upperbound)
		Set view=db.getview("Admin \ StandRespText")
		Set curdoc1=view.getfirstdocument
		Set curdoc2 = curdoc1  'Line100
		j=0
		While Not (curdoc2 Is Nothing)
			Set curdoc2 = view.GetNextDocument(curdoc1)
			If curdoc1.HasItem("Subject") Then
				Set item = curdoc1.GetFirstItem("Subject")
				itmv = curdoc1.GetItemValue("Subject")
				itms(j) = Cstr(itmv(0))
			' y is set to "0" if the following string does compare
				y = Strcomp(itms(j),userchuz(k), 5)
				If (y = 0) Then  'Line110
					Goto Cont03 ' Choice is found; proceed to copy it
				Else
			' Choice is not found; keep looking
				End If
				j=j+1
			End If
			Set curdoc1 = curdoc2
		Wend
	' Choice not found
		Exit Sub 'Line110
Cont03:
		Set StanResD(k) = curdoc1 ' StanResD is now the standard_
		' response document selected for copy
		If (k < 1) Then
			Set ritmv0 = StanResD(k).GetFirstItem("RBody")
		Else
			Set ritmv1 = StanResD(k).GetFirstItem("RBody")
			Call ritmv0.AddNewLine( 1 )
			Call ritmv0.AppendRTItem(ritmv1)
		End If
		k=k+1 'Line 120
	Wend

Dim repcol As NotesDocumentCollection
	Dim repdoc As NotesDocument
	Dim ritmv3 As NotesRichTextItem
	Dim itmst As String
	Set db = session.CurrentDatabase
	Set repcol = db.UnprocessedDocuments    
	Set repdoc = repcol.GetFirstDocument
	Set item = repdoc.GetFirstItem("Subject")
	itmv = repdoc.GetItemValue("Subject")
	itmst = Cstr(itmv(0))
	message$ = " " & cr$ _
	& " Current document in Inbox view = " + itmst + cr$ _
	& "" + cr$_
	& "New memo - Click Cancel" + cr$_
	& "Reply To Cur Doc - Click Yes" + cr$_
	& "Reply with History to Cur Doc - Click No"
	boxType& = 19 ' MB_YESNOCANCEL + MB_ICONStop
	answer% = Messagebox(message$, boxType&, _ 
	"Inbox Highlighted Document!")
	If(answer% = 2) Then
		Call ritmv0.CopyItemToDocument(maildoc, "Body")
		Goto ContResI ' Cancel - Continue with new e-Mail
	Elseif(answer% = 6) Then
	' Yes = Create a Reply Memo (No History)
		Set item = repdoc.GetFirstItem("From")
		Call item.CopyItemToDocument(maildoc, "SendTo")
		Set item = repdoc.GetFirstItem("Subject")
		itmv = repdoc.GetItemValue("Subject")
		itmst = Cstr(itmv(0)) 
		itmst = "RE:" + itmst
		Set item = repdoc.ReplaceItemValue("Subject", itmst )
		Call item.CopyItemToDocument(maildoc, + "Subject")
		Call ritmv0.CopyItemToDocument(maildoc, "Body")
	Elseif(answer% = 7) Then
		' No Create a Reply Memo with History
		Set item = repdoc.GetFirstItem("From")
		Call item.CopyItemToDocument(maildoc, "SendTo")
		Set item = repdoc.GetFirstItem("Subject")
		itmv = repdoc.GetItemValue("Subject")
		itmst = Cstr(itmv(0)) 
		itmst = "RE:" + itmst
		Set item = repdoc.ReplaceItemValue("Subject", itmst )
		Call item.CopyItemToDocument(maildoc, "Subject")
		Call ritmv0.AddNewLine( 2 )
		Call ritmv0.AppendText _
		( "Your E-mail: ")
		Call ritmv0.CopyItemToDocument(maildoc, "Body")
		Set ritmv3 = repdoc.GetFirstItem("Body")
		Call ritmv3.CopyItemToDocument(maildoc, "Body")
	Else		
		Exit Sub ' Cancel so quit out.
	End If
ContResI:

	Call maildoc.save(False,False) ' Save Doc
	Set curuidoc = workspace.EditDocument( False,maildoc,False) 
	' The EditDocument method brings the back-end document into the front end.
	Goto TEnd

ltroptions := @DbColumn("Notes" : "NoCache" ; "" : "" ; "ResponseView"; 1);
ltrdefault := @Subset(ltroptions; 1);
ltr := @Prompt([OKCANCELLIST]; "Standard ResponseText List";_
"Please select the response text to use from the list."; ltrdefault; ltroptions);
ltrtext := @DbLookup("Notes":"NoCache";"":"";"ResponseView"; ltr;"RBody");
@Command([EditGotoField]; "Body");
@Command([EditInsertText]; ltrtext);
@Command([EditInsertText]; @Char(0) + @Char(0));
@All