As NotesDocument Dim bodyText$ Set doc = ws.Currentdocument.Document bodyText = doc.Getfirstitem("Body").Text DominoIQRequest "TranslationJPtoEN", bodyText End Sub 開いている文書の Body フィールドにあるテキスト抽出して Domino IQ に日本語への翻訳を指示するコマンドへテキストを渡す
As New NotesSession Dim db As NotesDatabase Dim llmreq As NotesLLMRequest Dim llmres As NotesLLMResponse Set db = session.CurrentDatabase Set llmreq = session.CreateLLMRequest() Set llmres = llmreq.Completion (db.server, szCommand, szQuery) If (llmres Is Nothing) Then MessageBox "Error: No NotesLLMResponse“ Else If (llmres.FinishReason = LLM_FINISH_REASON_STOP) Then MessageBox "Content(" + llmres.Role + "): " + llmres.Content End If End If End Sub 【NotesLLMRequest クラスの Completion メソッド】 Domino IQ サーバーで稼働する大規模言語モデル(LLM) にチャット完了要求を送信する 【NotesLLMResponse クラスの Content プロパティ】 LLM によって生成された応答メッセージ 【NotesLLMResponse クラスの Role プロパティ】 リクエストを送信するロール (system、user、またはassistant) メッセージに関連 付けられたロール。通常、NotesLLMRequest.completion メソッドによって生成 された場合は「assistant」になります。値は、使用されている LLM に基づいて異 なる場合があります。