M
Michael.Kensy
Hi,
***2 try, published to several NG***
I try to build up a commandbar of public folders and its forms (means
templates). The code is working fine getting name and FaceID of some public
folders and building a commandbarpopup of. The problem is to get the icon of
the published form ...
I think I have to use CDO for getting a folders published forms but when I
do so I can't find forms FaceID or something like. As a workaround I tried
to take the folders FaceID also to the form. I know it's not perfect and I
got some other problems now ...
myCDOFolder.Folders.Item(I) doesn't deliver a FaceId.
OK, no problem let's take
myFolder.Folders.Item(I).FaceID but ...
iterating through a folders collections via CDO counts different ...
***
Set objTemplatesPopupCommandBar = funcCBCChoose(objCommandBarPopup,
"Formulare", msoControlPopup, "", "", msoBarTop, True)
For I = 1 To myFolder.Folders.Count
FaceID = funcGetFoldersFaceID(myFolder.Folders.Item(I))
Set colCDOMessages = myCDOFolder.Folders.Item(I).HiddenMessages
If Not IsNothing(colCDOMessages) Then '***Check if hidden
messages are found
For Each msgCDOMessage In colCDOMessages
If msgCDOMessage.Type =
"IPM.Microsoft.FolderDesign.FormsDescription" Then
Call procCBBCreateButton("procCBBButtonClick", objTemplatesPopupCommandBar,
_
False, msoControlButton,
CStr(msgCDOMessage.Fields(CdoPR_DISPLAY_NAME).Value), _
FaceID, "Parameter", "olForm", "in " & myCDOFolder.Name, _
msoButtonIconAndCaption)
End If
Next msgCDOMessage
End If
Next
***
I think I should revise now. What do you think about? Is possible to get a
forms picture? It would be the best solution. If not how do I get my code
iterating through a folders collection same order?
thanx in advance
Michael
***2 try, published to several NG***
I try to build up a commandbar of public folders and its forms (means
templates). The code is working fine getting name and FaceID of some public
folders and building a commandbarpopup of. The problem is to get the icon of
the published form ...
I think I have to use CDO for getting a folders published forms but when I
do so I can't find forms FaceID or something like. As a workaround I tried
to take the folders FaceID also to the form. I know it's not perfect and I
got some other problems now ...
myCDOFolder.Folders.Item(I) doesn't deliver a FaceId.
OK, no problem let's take
myFolder.Folders.Item(I).FaceID but ...
iterating through a folders collections via CDO counts different ...
***
Set objTemplatesPopupCommandBar = funcCBCChoose(objCommandBarPopup,
"Formulare", msoControlPopup, "", "", msoBarTop, True)
For I = 1 To myFolder.Folders.Count
FaceID = funcGetFoldersFaceID(myFolder.Folders.Item(I))
Set colCDOMessages = myCDOFolder.Folders.Item(I).HiddenMessages
If Not IsNothing(colCDOMessages) Then '***Check if hidden
messages are found
For Each msgCDOMessage In colCDOMessages
If msgCDOMessage.Type =
"IPM.Microsoft.FolderDesign.FormsDescription" Then
Call procCBBCreateButton("procCBBButtonClick", objTemplatesPopupCommandBar,
_
False, msoControlButton,
CStr(msgCDOMessage.Fields(CdoPR_DISPLAY_NAME).Value), _
FaceID, "Parameter", "olForm", "in " & myCDOFolder.Name, _
msoButtonIconAndCaption)
End If
Next msgCDOMessage
End If
Next
***
I think I should revise now. What do you think about? Is possible to get a
forms picture? It would be the best solution. If not how do I get my code
iterating through a folders collection same order?
thanx in advance
Michael