Hi all!

Were have to find out the name of a shared folder in the owners mailbox.

So we select the first message in the folder and read the property
EnclosingFolders. The following code sample works until GW 7.0.2, but
since 7.0.3 the EnclosingFolders property is empty.

I think there is a problem in 7.0.3. Any ideas?

Thank you,

-- cut --
Private Sub Main()

Dim objGroupWise As Object
Dim objAccount As Account
Dim objFolder As Folder
Dim objMessage As Message

On Error Resume Next

Set objGroupWise = CreateObject("NovellGroupWareSession")
Set objAccount = objGroupWise.Login

For Each objFolder In objAccount.AllFolders
If objFolder.ObjType = egwPersonalFolder And objFolder.Shared =
egwSharedIncoming Then
If objFolder.Messages.Count > 0 Then
Set objMessage = objFolder.Messages.Item(1)
If objMessage.EnclosingFolders.Count > 0 Then
MsgBox objMessage.EnclosingFolders.Item(1).Name
Exit For
End If
End If
End If

End Sub
-- cut --

PS: Weve also opened a Service Request, but you cant buy developer
support from Novell any more, they redirected us to the forum!