More info....

I tried adding a New calendar and this DOES appear as a folder item and I
can loop through the .Folders collection and locate it.
I'm now doubting my sanity about how I created the other calendar which I
can not see.

But I still have the problem of adding an appointment item to a specific
calendar as the current code adds the appointment to the Outlook application
rather than a specific calendar.

Set objItem = objOL.CreateItem(olAppointmentItem)

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Andy Pope" wrote in message
...
Hi Ken, (excuse previous half post. FatFingerSyndrome)

Error code information
-2147221233
The operation failed. An object could not be found.

When I use the menu Go Folders (CTRL+6) I do not see additional
calendar.
But I the Calendar section of the Navigation pane, within the My Calendars
section the 2 calendars are listed.

When I do a folder count of the returned default calendar folder I get 0
(zero)

Cheers
Andy
--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Ken Slovak - [MVP - Outlook]" wrote in message
...
Where is Calendar21 located? Is it directly under the default calendar
folder? The code should work if it is. What error are you getting?

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Andy Pope" wrote in message
...
Hi,

I have OL 2007 with 2 calendars. The default and a new one I named
Calendar21. (This is not a shared calendar, if that makes a difference)

With VBA, which I run from Excel, I am trying to create a reference to
Calendar21 and add an appointment.
The following code fails at the line marker '
What code should I be using to locate and create a reference to required
calendar?

'-------
Dim objOL As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olFolder1 As Outlook.Folder
Dim olFolder2 As Outlook.Folder
Dim objItem As Outlook.AppointmentItem
Dim lngRow As Long

Set objOL = CreateObject("Outlook.Application")
Set olNS = objOL.GetNamespace("MAPI")

Set olFolder1 = olNS.GetDefaultFolder(olFolderCalendar)
Set olFolder2 = olFolder1.Folders("Calendar21") '
'-------

I have no problem adding items to the default calendar.

Any insight greatly received.

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info