home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 October / PCPRO_OCT.ISO / code / win / code_5.txt < prev   
Encoding:
Text File  |  1995-08-08  |  445 b   |  19 lines
  1. Sub SchedAdd()
  2. Dim myobj As Object
  3. Set myobj = CreateObject("SchedulePlus.Application.7")
  4.  
  5. Dim objSched As Object
  6. Set objSched = myobj.ScheduleLogged
  7.  
  8. Dim objAppt As Object
  9. Set objAppt = objSched.Appointments.New
  10. objAppt.Start = #16/07/95 11:30:00#
  11. objAppt.End = #16/07/95 12:30:00#
  12. objAppt.BusyType = 1
  13. objAppt.AlarmAmount = 15
  14. objAppt.Ring = True
  15. objAppt.Text = "My note to myself from OLE Automation"
  16. objAppt.Flush
  17.  
  18. End Sub
  19.