Sending MS Project task to Outlook as an appoitnment in a custom calendar

[Charlize]

I don't have project so I couldn't test this but you can loop through the code with F8 to see what needs fixing.
Use it in a testing phase first.

Sub Export_Selection_To_OL_Appointments()
    ' project variables
    ' I used object because I don't have project
    Dim myTask As Object
    ' outlook variables
    Dim myOLApp As Object    
    Dim Ns As Object
    Dim folder As Object
    Dim appt As Object        
    ' setting up outlook for appointment in shared calendar
    ' myOLApp = outlook
    ' ns = outlooknamespace environment
    Set myOLApp = CreateObject("Outlook.Application")
    Set Ns = myOLApp.GetNamespace("MAPI")
    ' the shared calendar is part of your default calendar = folder of folder
    ' B2A Projects Calendar = name of shared calendar ?
    Set folder = Ns.GetDefaultFolder(olFolderCalendar).Folders("B2A Projects Calendar")
    ' appointment should be added to shared calendar
    ' so for every task in your selection we make an appointment in shared calendar
    For Each myTask In activeselection.Tasks
        Set appt = folder.items.Add
        With appt
            .Start = myTask.Start
            .End = myTask.Finish
            .Subject = " Rangebank PS " & myTask.Name
            .Categories = myTask.Project
            .Body = myTask.Notes
            .Display 'or .Save
        End With
        'clear the appt variable to accept new values for next myTask
        Set appt = Nothing
    Next myTask
    ' clear up variables
    myOLApp = Nothing
End Sub

Charlize