IDocumentsCount Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Count
Dim objDB Dim msg Set objDB = CreateObject("superofficedb.database") If Not (objDB is Nothing) Then objDB.login "<userid>", "<password>" ' log in to the database Set myApnt = objDB.GetAppointment(5) Set myDocs = myApnt.ActivityLinks.Documents If Not myDocs.Empty Then For Each Item In myDocs msg = msg & "Document filename: " & Item.FileName & vbCrLf msg = msg & "Document header: " & Item.Header & vbCrLf Next MsgBox "There are " & myDocs.Count & " documents on this appointment" & vbCrLf & msg Else MsgBox "There are no documents added to appointment with appointment_id=5" End If Else MsgBox "unable to connect to database" End If Set objso = Nothing