AI Object

Example 2 — Classifying a document

 
This macro attaches a PDF and asks the model to read it. Note the use of NewConversation to obtain a handle before attaching the file.
 
 
Option Explicit
 
Sub Main
    Dim aiHnd As Long
 
    aiHnd = AI.NewConversation(aiGeneral)
    If aiHnd = 0 Then
        MsgBox "NewConversation failed: " & AI.LastErrorMessage, vbCritical
        Exit Sub
    End If
 
    If Not AI.AttachFile(aiHnd, "O:\Post\incoming.pdf", "Incoming document") Then
        MsgBox "AttachFile failed: " & AI.LastErrorMessage, vbCritical
        AI.CloseHandle aiHnd
        Exit Sub
    End If
 
    aiHnd = AI.Ask("Classify this document and extract the key data as a list.", , aiHnd)
    If aiHnd = 0 Then
        MsgBox "Submit failed: " & AI.LastErrorMessage, vbCritical
        Exit Sub
    End If
 
    Do
        DoEvents
    Loop Until AI.GetStatus(aiHnd) <> 1
 
    If AI.GetStatus(aiHnd) = 2 Then
        MsgBox AI.GetResultStr(aiHnd), vbInformation, "Classification"
    Else
        MsgBox "Error: " & AI.GetErrorMessage(aiHnd), vbCritical
    End If
 
    AI.CloseHandle aiHnd
End Sub
 
 
See Also
NewConversation, AttachFile, Ask, GetStatus, GetResultStr.