Dim cdoRootfolder As MAPI.Folder
Dim cdoNewFolder As MAPI.Folder
Set cdoRootfolder = cdoSession.Inbox '- the folder to which the
subfolder is to be added
'- Applications/Zoo Management/ in
your case
Set cdoNewFolder = cdoRootfolder.Folders.Add('Vets')
with cdoNewFolder
......................
-----Original Message-----
From: Ken Marychurch [mailto:[EMAIL PROTECTED]]
Sent: 21 November 2001 03:30
To: Exchange Discussions
Subject: How to access a folder in CDO?
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]
___________________________________________________________________________
This email is confidential and intended solely for the use of the
individual to whom it is addressed. Any views or opinions presented are
solely those of the author and do not necessarily represent those of
SchlumbergerSema.
If you are not the intended recipient, be advised that you have received this
email in error and that any use, dissemination, forwarding, printing, or
copying of this email is strictly prohibited.
If you have received this email in error please notify the SchlumbergerSema Helpdesk
by telephone on +44 (0) 121 627 5600.
___________________________________________________________________________
_________________________________________________________________
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]
