How to create a Appointment in a Shared Calendar (Sharepoint) with VBA (Macro)?

Question

I am actually trying to make an appointment from an excel spreadsheet. I have all the information of the appointment, like subject, body, start and end dates, I actually can create an appointment but only with my personal calendar in outlook.

How do I copy/move/create an appointment in a shared calendar in a sharepoint server?

I've tried:

 Dim apOL As Object

 Dim objFolder As Folder

 Dim cro As String

    Set apOL = CreateObject("Outlook.Application")
    Set oItem = apOL.CreateItem(olApItem)

    Set MAPISession = apOL.Session
...
cro = "stssync://sts/?ver=1.0&type=calendar&cmd=add-folder&base-url=(MY SP SERVER)&list-url=%2FLists%2FCronograma%20%20%2Fcalendar%2Easpx&guid=%7B02717CEF%2D404F%2D482F%2DA131%2D5C3C245CD268%7D&site-name=Testes&list-name=Cronograma%20-"
...

Set objFolder = MAPISession.OpenSharedFolder(cro, Null,Null,Null)

It gives me the error "Type Mismatch"

I'd try to get the objFolder as the Sharepoint Folder then later create an local appointment and then try an Item.Move objFolder

Is it the correct way?

Answer 1

Does this help?

http://stackoverflow.com/questions/547783/automatically-create-outlook-appointments/551725#551725