How do I add appointments to Schedule 32?
Here's how to add an appointment to 32 bit Schedule+
Author: Graeme TurnerDim objSchdPlus, objAppt As Object Dim StartDateTime As Variant, EndTime As Variant Set objSchdPlus = CreateObject(""SchedulePlus.Application"") objSchdPlus.Logon objSchdPlus.ScheduleSelected.Activate Set objAppt = objSchdPlus.ScheduleSelected.SingleAppointments.New StartDateTime = Form1.Text2 & "" "" & Form1.Text3 EndTime = Form1.Text2 & "" "" & Form1.Text4 objAppt.SetProperties Text:=Form1.Text1, Start:=StartDateTime, End:=EndTime objSchdPlus.Logoff End SubWhere Text1 = Name, Text 2 = Date, Text 3 = Start Time (HH:MM AM/PM) and Text 4 = End Time (HH:MM AM/PM) |
||
Editor: Graeme Turner Last update: 2024-10-06 Copyright 1995-2024 VBI |