EsbOtlSetUserAttribute() sets a user-defined attribute for a member.
EsbOtlSetUserAttribute (hOutline, hMember, pszString)
ByVal hOutline As Long ByVal hMember As Long ByVal pszString As String
hOutline | Outline context handle. |
hMember | Handle of member for which to set the user-defined attribute. |
pszString | User-defined attribute to set. |
Returns 0 if successful; otherwise one of the following:
OTLAPI_BAD_USERATTR
OTLAPI_ERR_SHAREUDA
Declare Function EsbOtlSetUserAttribute Lib "ESBOTLW" (ByVal hOutline As Long, ByVal hMember As Long, ByVal pszString As String) As Long Sub ESB_OtlSetUserAttribute() Dim sts As Long Dim Object As ESB_OBJDEF_T Dim hOutline As Long Dim hMember As Long Dim AttributeList As String Object.hCtx = hCtx Object.Type = ESB_OBJTYPE_OUTLINE Object.AppName = "Sample" Object.DbName = "Basic" Object.FileName = "Basic" AttributeList = "Read Write" sts = EsbOtlOpenOutline(hCtx, Object, ESB_YES, ESB_YES, hOutline) If sts = 0 Then sts = EsbOtlFindMember(hOutline, "Jan", hMember) End If If sts = 0 And hMember <> 0 Then '******************** ' Set User Attributes '******************** sts = EsbOtlSetUserAttribute(hOutline, hMember, AttributeList) End If End Sub