1: 2: 3: 4: 5: 6: 7: 8:
Set outobj = CreateObject("outlook.application") if thesavedentryid = "" then Set outappt = outobj.CreateItem(olAppointmentItem) else Set outappt = outobj.session.getitemfromid(thesavedentryid) end if With outappt .