IStatusMonitorDelete Method |
Namespace: SuperOffice.COM.SuperOfficeDB
Delete
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 myStatusMonitor = objDB.Admin.GetStatusMonitor(2) 'requires there to be a status monitor with id = 2 in the database myStatusMonitor.Delete Else MsgBox "unable to connect to database" End If Set objso = Nothing