marie
Guest
|
 Posted:
Mon Feb 07, 2005 2:51 pm Post subject:
public folder problem |
|
|
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 strDomainName
strDomainName = objLDAP.Get("dnshostname")
strDomainName = Mid(strDomainName, InStr(strDomainName, ".") + 1)
Dim strURLFldr
strURLFldr = "file://./backofficestorage/"
strURLFldr = strURLFldr & strDomainName
strURLFldr = strURLFldr & "/PUBLIC FOLDERS/Server
Contacts/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,
Marie.
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in