** 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 * EndDefine: form1 ********************************************************* * EOF *********************************************************