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