Managed to get it working with following code I found at another site :
Public Function AddAppointmentP(ByVal BD As Date, ByVal Endo As String, ByVal PT As String, ByVal Hos As String, ByVal CN As Long) As Boolean
Dim olApp As Outlook.Application
Dim olAppt As Outlook.AppointmentItem
Dim...