Comment envoyer depuis excel une demande de réunion outlook ?

sub SendMeetingRequest()
  Dim objOL  'As Outlook.Application
  Dim objAppt 'As Outlook.AppointmentItem
  Const olAppointmentItem = 1
  Const olMeeting = 1
  
  Set objOL = CreateObject("Outlook.Application")
  Set objAppt = objOL.CreateItem(olMeeting) 'olAppointmentItem
  With objAppt
    .subject = "sujet de la réunion"
    .Start = Now + 1
    .End = DateAdd("h", 1, .Start)
    .Location = "lieu de la réunion"
    .Body = "texte du message d'invitation "
    .BusyStatus = olFree
    .Categories = ""
    .ReminderSet = True
    .ReminderMinutesBeforeStart = 120 ' rappel 2 heures avant
    .ReminderOverrideDefault = True
    .ReminderPlaySound = True 'réveil en fanfare
    .Importance = olImportanceHigh
    
    ' make it a meeting request
    .MeetingStatus = olMeeting
    .OptionalAttendees = "titi@adm.co.ma" 'participants optionnel à la réunion
    .RequiredAttendees = "tata@adm.co.ma;toto@adm.co.ma" 'participant obligatoire
    
    .Send
  End With
  
  Set objAppt = Nothing
  Set objOL = Nothing
 end sub