IDocumentUpdatedAssociate Property |
Namespace: SuperOffice.COM.SuperOfficeDB
UpdateAssociate
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
dim objso dim result set objso = CreateObject("superoffice.application") If not (objSO is nothing) Then result = objso.currentdocument.updatedassociate.identity if result = 0 then msgbox "the current document has never been updated!", vbinformation + vbokonly, "supercom" else msgbox "current document was last updated by: " & _ objso.currentdocument.updatedassociate.fullname, vbinformation + vbokonly, "supercom" end if else msgbox "unable to connect to database" end if set objso = nothing