Hi all,
I am trying to add a new folder with CDO.
I keep getting a "User-defined type is not defined." error. However, the
CDO.Folder and CDO.Person methods create an error. I find the only CDO
objects I get to choose from are CDO.Configuration, .DropDirectory and
.Message.
I am using Mindy Martin's book "Programming Collaborative Web
Applications with MS Exchange 2000" - but the CDO examples don't even
compile because of the error.
This small piece of code from Mindy's book doesn't work:
Sub CreateFolder_CDO()
Dim urlVetsFld As String
Dim fldr As Folder
urlVetsFld = GetStorageName & "Applications/Zoo Management/Vets/"
If AlreadyExists(urlVetsFld) Then
Debug.Print "This folder already exists: " & urlVetsFld
Exit Sub
End If
' >>>>THIS BIT DOESN'T WORK!!!<<<<
With New CDO.Folder
.Description = "Information about vets."
.ContentClass = "urn:content-classes:contactfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass";) =
_
"IPF.contact"
.Fields.Update
.DataSource.SaveTo urlVetsFld
End With
End Sub
Do I need a specific CDO library (.dll) installed?
I am sure someone can help me with this. Your help is very much
appreciated.
~Ken
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Archives: http://www.swynk.com/sitesearch/search.asp
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
