Example: Completion method (NotesLLMRequest - LotusScript)

Sub Initialize
On Error Goto processError	
	Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace
	Dim mailDoc As NotesUIDocument
	Set mailDoc = workspace.CurrentDocument
	Dim sMailThread As String
	mailDoc.Editmode = True
	sMailThread = mailDoc.Fieldgettext("Body")
	Dim llmreq As NotesLLMRequest
	Dim llmres As NotesLLMResponse	
	Set llmreq  = session.CreateLLMRequest()
	Set llmres = llmreq.Completion("DominoIQ server/Org", "StdSummarizeEmailThread", sMailThread)
	If (llmres.FinishReason = LLM_FINISH_REASON_STOP) Then	
		Call mailDoc.FieldSetText("Summary", llmres.Content)
		Call mailDoc.save()
	End If
	Exit Sub
processError:
	Messagebox(Error$)
Exit Sub
End Sub