Info

StfltSiiitiStflfStSlttStStfltStfltSiiitiStflfSf

Custom procedure: GetFoiderPath(ByVai objFoider Purpose: Return a string folder path for a KAPIJ Argument.: KAPIFoider object

Usage: Ksg!3ox "The Foider Path is " £ GetFoider

Returns: String representing Foider Path ***********************************************

Function GetFoiderPath(ByVai objFoider As HAPIFo On Erirou Eieisuiae Next Dim strFoiderPath As String Dim objChiid As MAPIFoider Dim ob.i Parent As MAPIFoider strFoicierPath = " | objFoicier .Warns Set objChiid = objFoider Do Until Err □

Set okijParent = objChiid.p If Err <> □ Then

£nd If [Ef ShowAsOiJtlciokAB

StoreiD

UnReadltemCount

Was this article helpful?

0 0

Post a comment