Using CDO to create new address book 1

[bigaustin]

Here's the scenario: I can create a new MAPI folder through CDO, but it defaults to be a "Mail and Post Items" type folder (i.e. will hold e-mail), whereas I want it to be a "Contact Items" type folder. Any suggestions?

Here's the basic code:

Set Session = CreateObject("MAPI.Session&quot
Session.Logon

Set Contacts = Session.GetDefaultFolder(5)
Set newFolder = Contacts.Folders.Add("New Book&quot

 

[darrellblackhawk]

I had the same problem, so I tried until I got it working.

Dim oOutLook As Object

Set oOutLook = CreateObject("Outlook.Application&quot
Set myNameSpace = oOutLook.GetNameSpace("MAPI&quot
Set myFolder = myNameSpace.GetDefaultFolder(10)
Set newFolder = myFolder.Folders.Add("New Book&quot


Maybe Outlook's implementation of MAPI causes the problem with CDO. Go figure!

I'll try it on a box that doesn't have Outlook.
'We all must do the hard bits so when we get bit we know where to bite'

 

[bigaustin]

Very helpful indeed! Thank you.

Now, if I can only figure out how to set my new address book as an "Outlook Address Book" (so that it is returned in a list of MAPI Address Books).