Scriptet melder fejl ?

Set OlApp = CreateObject("Outlook.Application")
    Set Appt = OlApp.CreateItem(AppointmentItem)
   
    Appt.Subject = "Møde"
   
    Appt.Start = Now()
   
    Appt.End = Now()+1
   
    Appt.AllDayEvent = True
   
    Appt.BOdy = "Test af script"
   
    Appt.Save
    Set Appt = Nothing
    Set OlApp = Nothing