#7430
MA
Participant

    quote:


    Originally posted by Immi:
    If the workFolder is in a subfolder, then it fails. How can I build a complete folder-path for ‘groupwise.ItemSaveMessageDraft(iWIPPath)’ ?


    The following recursive function will return the full path of the Work-In-Progress folder.

    Sub Main(Client, GWEvent)

    dim iWIPFolderPath

    ‘ Account refresh required if you have moved the WIP folder in current session.
    groupwise.account.refresh
    call GetWIPFolderPath(groupwise.account.workfolder, iWIPFolderPath)

    msgbox iWIPFolderPath

    End Sub

    ‘ Get full path of the Work-In-Progress folder
    function GetWIPFolderPath(aGWFolder, byref aPath)

    if aGWFolder is nothing then
    exit function
    end if

    if (aPath <> “”) then
    aPath = aGWFolder.name & “” & aPath
    else
    aPath = aGWFolder.name
    end if

    if (aGWFolder.objtype = fgwRoot) then
    exit function
    else
    call GetWIPFolderPath(aGWFolder.ParentFolder, aPath)
    end if

    end function

    Thanks
    MA