public folder problem (Full Version)

All Forums >> [Microsoft Exchange 2003] >> Public Folders



Message


erold -> public folder problem (7.Feb.2005 10:00:00 AM)

Hi,
I would like to create a "public folder" which contains contacts. I use this code. (ŗ.)

Function CreatePublicFolder()

Dim objLDAP
Set objLDAP = GetObject("LDAP://rootdse")

Dim strURLFldr
strURLFldr = "file://./backofficestorage/"
strURLFldr = strURLFldr & strDomainName
strURLFldr = strURLFldr & "/PUBLIC FOLDERS/Entreprise/"

With CreateObject("cdo.folder")
.Description = "Mes contacts d∆entreprise"
.contentclass = "urn:content-classes:contactfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass") = "IPF.contact"
.Fields.Update
.DataSource.SaveTo strURLFldr
End With

End Function

Then I open my Outlook 2003, and I create a new contact in this repertory. This contact is created in my personal contacts.
I create a new public folder called "Test" and also a new contact via Outlook 2003. This contact is then created in "Test" folder.
I think I have forgotten to set up a parameter in my function. Does somebody have an idea?
Thank you,

erold.




erold -> RE: public folder problem (10.Feb.2005 9:14:00 AM)

Hi,
I have found what my problem was.
Shame on me it was a typo in the PR_CONTAINER_CLASS value that I mistakenly set
to IPF_contact in lieu of IPF_Contact. The folder appeared with the right icon in outlook, and so forth, copying contacts to this folder was supported by the store provider... but creating new contacts in this folder defaulted to the local store's contact folder.

Erold




Page: [1]