Private Sub addProps(ByVal destFolder As IManDocumentFolder, ByVal ContentType As String, ByVal Client As String, ByVal Partner As String, ByVal Manager As String, ByVal UltParent As String, ByVal Status As String, Optional ByVal LobSegment As String = Nothing) Dim fldProp As IManAdditionalProperties = Nothing Dim oContenttype As IManAdditionalProperty = Nothing Dim oClient As IManAdditionalProperty = Nothing Dim oLobsegment As IManAdditionalProperty = Nothing Dim oPartner As IManAdditionalProperty = Nothing Dim oManager As IManAdditionalProperty = Nothing Dim oUltparent As IManAdditionalProperty = Nothing Dim oStatus As IManAdditionalProperty = Nothing Try fldProp = destFolder.AdditionalProperties If Not ContentType Is Nothing Then oContenttype = fldProp.Add("iMan___8", ContentType) End If If Not Client Is Nothing Then oClient = fldProp.Add("iMan___25", Client) End If If Not LobSegment Is Nothing Then oLobsegment = fldProp.Add("iMan___28", LobSegment) End If If Not Partner Is Nothing Then oPartner = fldProp.Add("iMan___31", Partner) End If If Not Manager Is Nothing Then oManager = fldProp.Add("iMan___32", Manager) End If If Not UltParent Is Nothing Then oUltparent = fldProp.Add("iMan___27", UltParent) End If If Not Status Is Nothing Then oStatus = fldProp.Add("iMan___33", Status) End If destFolder.Update() Catch ex As Exception log.writeToLog("Failed to add Properties: " & ex.Message & vbCr & destFolder.Workspace.Name & "/" & destFolder.Name, log.msgType.TypeError) End Try End Sub