Support 1a

You would need to obtain the document reference enclosing folder object, read its name property, then recurse up through the enclosing folder properties until you get to the top of the account. Using this technique you could build a string representing the full folder structure to the document, i.e.

“UserNameDocumentsProject X”

Here’s some code you can use to access the enclosing folder of the selected message:

dim oMsg
  Set oMsg = Client.ClientState.CommandMessage
  ' Refresh the folders collection 
  ' The folder this item is contained in.
  if (oMsg.EnclosingFolders.count > 0) then
    msgbox oMsg.EnclosingFolders.item(1).name
  end if
  set oMsg = nothing 

To obtain the physical document via the message ID, I suspect you would need to use GroupWise.Account.GetMessage(MessageID) to obtain an instance of the document reference object, then save the current version out as you are currently doing.

I hope this helps.

Advansys Support