Hi all!

We´re have to find out the name of a shared folder in the owner´s 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: We´ve also opened a Service Request, but you can´t buy developer
support from Novell any more, they redirected us to the forum!