Copy Outlook Calendar to Excel.

[Brian Clark]

Hmm... this is weird... I'm actually able to use:

• kpuls
• Ken Puls

So it looks like it's pretty robust here... Do any of those formats work for you or none?

"I love your app, but I'm haivng the same problem as stated above. I am able to generate my own calendar but receive the folloowing error when trying to attach to a created calendar within Outlook.

I was trying to use the sheet you supplied, to try and understand how it works.
However I keep getting an error on this line.

Set myCalItems = olNS.GetSharedDefaultFolder(objRecipient, 9).Items '9=olFolderCalendar

I am guessing it is an error on my part not putting the right name for my mailbox.
So to help me understand what my mailbox is called, is it the name of the .pst file?
Where can I check what the name of the mailbox is?

As a side note, I am using 2007.

Thank you for your help and I hope you have fun at the Microsoft MVP Summit.

"

Thanks for the app... and the help

[Brian Clark]

I am having a similar problem with trying to attach to a calendar within my primary Outlook account. The calendar is name Staff Absences but when I try to attach to it, I get the same error.

Set myCalItems = olNS.GetSharedDefaultFolder(objRecipient, 9).Items '9=olFolderCalendar

Is it possible to attach to a subcalendar (or created one). I have shared the calendar but it will not attach to it with your app.

I love your app.

[Ken Puls]

So, just to be clear here, you have a primary calendar under your name in Outlook, but this is a shared calendar that you're attaching to. Did I get that right?

[Brian Clark]

Yes, my primary calendar is under my email and your app works fine with that one. When I tried to attach to the Calendar named Staff Attendance it gives me that error.

thx
Brian

[Zack Barresse]

A sub-calendar is a calendar within a calendar. I can't test on the machine I'm on, but I believe it goes like this ...

Set myCalItems = olNS.GetSharedDefaultFolder(objRecipient, 9).Folder("Staff Attendance").Items

HTH

[Ken Puls]

Oh man, Zack, thanks for picking this up. I had it bookmarked, and never got back to it.

[Zack Barresse]

Glad I saw it!! Was sitting in my inbox when I was cleaning house.

[Brian Clark]

Thanks for such a quick reply. I did make the change b ut I am still getting the error. I have attached a copy of the error screen and a copy of my outlook folders. I really do appreciate yo
ur help with this because I love the app.

[Zack Barresse]

I would use a couple of variables (you could do this with one, but easier to read with two)...

    Set oFolder = olNS.GetDefaultFolder(9)
    Set oSubFolder = oFolder.Folders("Staff Attendance")

Both variables would need to be declared as Objects, just as the others were. Then you would change the line setting the myCalItems to...

    Set myCalItems = oSubFolder.Items

HTH

[Brian Clark]

thanks a lot. It worked perfectly....