D
dedejavu
Hi,
Can anyone tell me how to use Redemption's GetNamesFromIDs?
I don't know what params are and can't find any docs on it.
I'm trying to get a list of an appointment item's props. I can get the
values, but not the property names.
Thanks for your help
Pachydermitis
Dim objUtils As Redemption.MAPIUtils
Dim objPropList As Redemption.PropList
Dim lCounter As Long
Dim objSafeItem As Redemption.SafeAppointmentItem
Dim v
Set objUtils = New Redemption.MAPIUtils
Set objPropList = objUtils.HrGetPropList(objItem)
Set objSafeItem = Outlook.CreateObject("Redemption.Safe" &
TypeName(objItem))
objSafeItem.Item = objItem
For lCounter = 1 To objPropList.Count
v = objSafeItem.Fields(objPropList.Item(lCounter))
If IsArray(v) Then
Debug.Print TypeName(v), UBound(v),
objPropList.Item(lCounter)
Else
Debug.Print TypeName(v), v, objPropList.Item(lCounter)
End If
Next
Can anyone tell me how to use Redemption's GetNamesFromIDs?
I don't know what params are and can't find any docs on it.
I'm trying to get a list of an appointment item's props. I can get the
values, but not the property names.
Thanks for your help
Pachydermitis
Dim objUtils As Redemption.MAPIUtils
Dim objPropList As Redemption.PropList
Dim lCounter As Long
Dim objSafeItem As Redemption.SafeAppointmentItem
Dim v
Set objUtils = New Redemption.MAPIUtils
Set objPropList = objUtils.HrGetPropList(objItem)
Set objSafeItem = Outlook.CreateObject("Redemption.Safe" &
TypeName(objItem))
objSafeItem.Item = objItem
For lCounter = 1 To objPropList.Count
v = objSafeItem.Fields(objPropList.Item(lCounter))
If IsArray(v) Then
Debug.Print TypeName(v), UBound(v),
objPropList.Item(lCounter)
Else
Debug.Print TypeName(v), v, objPropList.Item(lCounter)
End If
Next