This is the code to setup an other user appointment with exchange :
Function CreateOtherUserAppointment()
Dim strMsg As String
Dim strName As String
On Error Resume Next
' ### name of person whose Calendar you want to use ###
strName = "s.bouchard"
Set objApp =...