Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim Count as Integer
Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument(“Profile Doc 1”)
Count = cint(doc.counter(0))
Messagebox Count
I have this message “Type mismatch in method CoerStrToNum: STRING found, SHORT expected”.
I found other posts similar to mine but without clear solution.