IUserMailPassword Property |
Namespace: SuperOffice.COM.SuperOfficeDB
MailPassword
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO, assoc , User Set objSO = CreateObject("SuperOfficeDB.Database") if objSO.login ("<userid>", "<password>") = true then Set assoc = objSO.getassociate(objSO.UserAssociateId) set user = objSO.admin.getuser(assoc) msgbox user.mailuser 'set a new password for the user since property is write-only user.mailpassword = "123Test" user.save Else MsgBox "Could not log in" End If Set objSO = Nothing