Example: CompletionStream method (NotesLLMRequest - LotusScript)

Sub Initialize
	Dim session As New NotesSession
	Dim llmreq As NotesLLMRequest
	Set llmreq  = session.CreateLLMRequest()
	On Event LLMCompletionStreamNotify From llmreq  Call ProcessResponse
	Call llmreq.CompletionStream(""DominoIQ server/Org"", "stdMailSummaryThread" , sMailThread)
	Exit Sub
processError:
	Dim errMess As String
	errMess = "Error " & Err & ": " & Error$
	Messagebox(errMess)
	Exit Sub
End Sub
Sub	ProcessResponse (Source As NotesLLMRequest, Byval lastResponse As Boolean, Byval content As String)
	if (lastResponse) then
		' Do something with last content for example print it out
		Messagebox(content)
		Messagebox("No more content")
	else
		' Do something with content for example print it out
		Messagebox(content)
	End If
End Sub