Add Appointments to Common(!) Diary. Working Macro for Personal Diary included.

[Slone]

Hi guys and thanks for even starting to read this,

I have a list of dates and subjects and need to add them to Outlook as appointments. The macro below can add them to my personal calendar. It also checks if they are already there so that they don't duplicate.

However, when I try adding it to the shared common diary, things get complicated. I can manually add appointments to it, so I shouldn't have a permission issue, I just don't know how to change the calendars, within the "outlook folders". I found an article online (here), which says that the guy was unable to add appointments to the common diary if he hasn't created it himslef, but this just sounds so bad, I really don't want to loose hope. There must be a nice way to do it. I can't create a new diary, because the existing one is already quite full and it will be a nightmare to copy everything, plus then I will be the admin, which means more work...
The suggestion of the article mentioned above is to play around with the "outlook folders" but I can't seem to grasp what he is doing there. In case this will help you, when I right click my calendar>properties its location is : "\\MyPersonalEmail@blabla.com". The same action for the Common Diary, where I want to include this gives: "\\Common Diary".

To sum it up: I am looking for a (hopefully) small amendment of my code, so that instead of adding it to my diary, the macro ads it to the common diary. Thanks!

Here is my data in the respective rows and columns on a sheet called "2013-Calendar":

	AB	AC	AD
Row 4	Y	01-Jan-13	Appointment Subject 1
Row 5	Y	02-Jan-13	Appointment Subject 2
Row 6		03-Jan-13	Appointment Subject 3

Here is my code:

Please Login or Register  to view this content.

Thanks for giving it a try and reading till the finish,
Slone

[AlphaFrog]

Replace this...
Set colItems = NS.GetDefaultFolder(olFolderCalendar).Items
With something like this...
Set colItems = NS.Folders("Common Diary").Folders("Calendar").Items

And replace this...
Set olAppItem = OL.CreateItem(olAppointmentItem)
With this...
Set olAppItem = colItems.Add(olAppointmentItem)

[Slone]

This is exactly the solution I needed. Thanks a lot for the great answer!
The code above must still work, find below how my code has evolved to include two check box types: 1-11 are to add to my calendar, while 11-22 are to add to the common calendar.

Please Login or Register  to view this content.