>** PROCEDURE OLOOK.PRG >PUBLIC oform1 >oform1=NEWOBJECT("form1") > WITH oform1 > .setall("fontsize",8,"commandbutton") > ENDWITH >oform1.Show >oform1.showtips=.t. >RETURN >************************************************** >DEFINE CLASS form1 AS form > > Height = 400 > Width = 790 > DoCreate = .T. > Caption = "Outlook Integration Form ..." > Name = "Form1" > autocenter=.t. > > ADD OBJECT cmdExit AS commandbutton WITH ; > Top = 360, ; > Left = 704, ; > Height = 27, ; > Width = 84, ; > Caption = "\<Exit", ; > Name = "CmdExit" > > ADD OBJECT cmdCalendar AS commandbutton WITH ; > Top = 360, ; > Left = 1, ; > Height = 27, ; > Width = 84, ; > Caption = "\<Calendar", ; > Name = "CmdCalendar" > > ADD OBJECT cmdInBox AS commandbutton WITH ; > Top = 320, ; > Left = 1, ; > Height = 27, ; > Width = 84, ; > Caption = "\<Inbox", ; > Name = "CmdInBox" > > ADD OBJECT cmdSent AS commandbutton WITH ; > Top = 320, ; > Left = 91, ; > Height = 27, ; > Width = 84, ; > Caption = "\<Sent Items", ; > Name = "CmdSent" > > ADD OBJECT cmdContact AS commandbutton WITH ; > Top = 360, ; > Left = 92, ; > Height = 27, ; > Width = 84, ; > Caption = "\<Adress Book", ; > Name = "CmdContact" > > ADD OBJECT cmdoutbox AS commandbutton WITH ; > Top = 320, ; > Left = 182, ; > Height = 27, ; > Width = 84, ; > Caption = "\<Outbox", ; > Name = "Cmdoutbox" > > ADD OBJECT cmddrafts AS commandbutton WITH ; > Top = 320, ; > Left = 272, ; > Height = 27, ; > Width = 84, ; > Caption = "\<Drafts", ; > Name = "Cmddrafts" > > Add Object cmdNewMail As CommandButton With ; > Top = 320, ; > Left =362 , ; > Height = 27, ; > Width = 84, ; > Caption = "\<New Mail", ; > Name = "cmdNewMail" > > Add Object cmdNewTask As CommandButton With ; > Top = 320, ; > Left =452 , ; > Height = 27, ; > Width = 84, ; > Caption = "New \<Task", ; > Name = "cmdNewTask" > > Add Object cmdNewContact As CommandButton With ; > Top = 320, ; > Left =542 , ; > Height = 27, ; > Width = 84, ; > Caption = "New Contact", ; > Name = "cmdNewContact" > > Add Object cmdNewAppointment As CommandButton With ; > Top = 320, ; > Left =632 , ; > Height = 27, ; > Width = 110, ; > Caption = "New Appointment", ; > Name = "cmdNewAppointment" > > >ADD OBJECT cmdnotes AS commandbutton WITH ; > Top = 360, ; > Left = 183, ; > Height = 27, ; > Width = 84, ; > Caption = "Notes", ; > Name = "Cmdnotes" > >ADD OBJECT cmdtasks AS commandbutton WITH ; > Top = 360, ; > Left = 273, ; > Height = 27, ; > Width = 84, ; > Caption = "Tasks", ; > Name = "Cmdtasks" > > ADD OBJECT olecontrol1 AS olecontrol WITH ; > Top = 0, ; > Left = 0, ; > Height = 316, ; > Width = 790, ; > Name = "Olecontrol1", ; > OleClass = "OVCtl.OVCtl.1" >*---------------- procedures -------- > PROCEDURE cmdExit.Click > ThisForm.Release() > ENDPROC > > > Procedure cmdNewMail.Click > Thisform.olecontrol1.NewMessage() > ENDPROC > > Procedure cmdNewTask.Click > Thisform.olecontrol1.NewTask() > Endproc > > Procedure cmdNewContact.Click > Thisform.olecontrol1.NewContact() > ENDPROC > > Procedure cmdNewAppointment.Click > Thisform.olecontrol1.NewAppointment() > Endproc > > > PROCEDURE cmdCalendar.Click > ThisForm.OleControl1.Folder = "CALENDAR" > ThisForm.Caption = "OutLook Calendar" > ThisForm.Refresh() > ENDPROC > > PROCEDURE cmdInBox.Click > ThisForm.OleControl1.Folder = "INBOX" > ThisForm.Caption = "OutLook Inbox" > ThisForm.Refresh() > ENDPROC > > PROCEDURE cmdSent.Click > ThisForm.OleControl1.Folder = "SENT ITEMS" > ThisForm.Caption = "OutLook Sent Items" > ThisForm.Refresh() > ENDPROC > > PROCEDURE cmdContact.Click > ThisForm.OleControl1.Folder = "CONTACTS" > ThisForm.Caption = "OutLook Contacts" > ThisForm.Refresh() > ENDPROC > > PROCEDURE cmdoutbox.Click > ThisForm.OleControl1.Folder = "Outbox" > ThisForm.Caption = "OutLook Outbox" > ThisForm.Refresh() > ENDPROC > > PROCEDURE cmddrafts.Click > ThisForm.OleControl1.Folder = "Drafts" > ThisForm.Caption = "OutLook Drafts" > ThisForm.Refresh() > ENDPROC > > PROCEDURE cmdnotes.Click > ThisForm.OleControl1.Folder = "Notes" > ThisForm.Caption = "OutLook Notes" > ThisForm.Refresh() > ENDPROC > > PROCEDURE cmdtasks.Click > ThisForm.OleControl1.Folder = "Tasks" > ThisForm.Caption = "OutLook Tasks" > ThisForm.Refresh() > ENDPROC > > > PROCEDURE olecontrol1.Init > This.Folder = "InBox" > ENDPROC > >ENDDEFINE >*------------- >