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 = "MS Outlook Integration"
Name = "Form1"
autocenter=.t.
ADD OBJECT cmdExit AS commandbutton WITH ;
Top = 360, ;
Left = 704, ;
Height = 27, ;
Width = 84, ;
Caption = "Çı\<kış", ;
Name = "CmdExit"
ADD OBJECT cmdCalendar AS commandbutton WITH ;
Top = 360, ;
Left = 1, ;
Height = 27, ;
Width = 84, ;
Caption = "\<Takvim", ;
Name = "CmdCalendar"
ADD OBJECT cmdInBox AS commandbutton WITH ;
Top = 320, ;
Left = 1, ;
Height = 27, ;
Width = 84, ;
Caption = "\<Gelen K.", ;
Name = "CmdInBox"
ADD OBJECT cmdSent AS commandbutton WITH ;
Top = 320, ;
Left = 91, ;
Height = 27, ;
Width = 84, ;
Caption = "Gön\<Derilmiş", ;
Name = "CmdSent"
ADD OBJECT cmdContact AS commandbutton WITH ;
Top = 360, ;
Left = 92, ;
Height = 27, ;
Width = 84, ;
Caption = "\<Adres Defteri", ;
Name = "CmdContact"
ADD OBJECT cmdoutbox AS commandbutton WITH ;
Top = 320, ;
Left = 182, ;
Height = 27, ;
Width = 84, ;
Caption = "Gide\<N K", ;
Name = "Cmdoutbox"
ADD OBJECT cmddrafts AS commandbutton WITH ;
Top = 320, ;
Left = 272, ;
Height = 27, ;
Width = 84, ;
Caption = "Taslak\<Lar", ;
Name = "Cmddrafts"
Add Object cmdNewMail As CommandButton With ;
Top = 320, ;
Left =362 , ;
Height = 27, ;
Width = 84, ;
Caption = "Yeni \<Mail", ;
Name = "cmdNewMail"
Add Object cmdNewTask As CommandButton With ;
Top = 320, ;
Left =452 , ;
Height = 27, ;
Width = 84, ;
Caption = "Yeni Göre\<v", ;
Name = "cmdNewTask"
Add Object cmdNewContact As CommandButton With ;
Top = 320, ;
Left =542 , ;
Height = 27, ;
Width = 84, ;
Caption = "Yeni \<Kişi", ;
Name = "cmdNewContact"
Add Object cmdNewAppointment As CommandButton With ;
Top = 320, ;
Left =632 , ;
Height = 27, ;
Width = 110, ;
Caption = "Yeni \<Toplantı", ;
Name = "cmdNewAppointment"
Add Object cmdSendandReceive As CommandButton With ;
Top = 360, ;
Left = 362 , ;
Height = 27, ;
Width = 110, ;
Caption = "\<Gönder-Al", ;
Name = "cmdSendandReceive"
ADD OBJECT cmdnotes AS commandbutton WITH ;
Top = 360, ;
Left = 183, ;
Height = 27, ;
Width = 84, ;
Caption = "N\<Otlar", ;
Name = "Cmdnotes"
ADD OBJECT cmdtasks AS commandbutton WITH ;
Top = 360, ;
Left = 273, ;
Height = 27, ;
Width = 84, ;
Caption = "Gorevle\<R", ;
Name = "Cmdtasks"
ADD OBJECT olecontrol1 AS olecontrol WITH ;
Top = 0, ;
Left = 0, ;
Height = 316, ;
Tooltiptext = "İşlemler için Sağ Mouse", ;
Width = 790, ;
Name = "Olecontrol1", ;
OleClass = "OVCtl.OVCtl.1"
&&-------------------------------------- procedures -----------------------------
PROCEDURE init
&&With Thisform
&& .SetAll("mousepointer",99,"commandbutton")
&& .SetAll("mouseicon",Sys(5)+Sys(2003)+"\bmp\fare.cur","commandbutton")
&&Endwith
ENDPROC
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 Takvim"
ThisForm.Refresh()
ENDPROC
PROCEDURE cmdInBox.Click
ThisForm.OleControl1.Folder = "INBOX"
ThisForm.Caption = "OutLook Gelen Kutusu"
ThisForm.Refresh()
ENDPROC
PROCEDURE cmdSent.Click
ThisForm.OleControl1.Folder = "SENT ITEMS"
ThisForm.Caption = "OutLook Gönderilmiş Öğeler"
ThisForm.Refresh()
ENDPROC
PROCEDURE cmdContact.Click
ThisForm.OleControl1.Folder = "CONTACTS"
ThisForm.Caption = "OutLook Adres Defteri"
ThisForm.Refresh()
ENDPROC
PROCEDURE cmdoutbox.Click
ThisForm.OleControl1.Folder = "Outbox"
ThisForm.Caption = "OutLook Giden Kutusu"
ThisForm.Refresh()
ENDPROC
PROCEDURE cmddrafts.Click
ThisForm.OleControl1.Folder = "Drafts"
ThisForm.Caption = "OutLook Taslaklar"
ThisForm.Refresh()
ENDPROC
PROCEDURE cmdnotes.Click
ThisForm.OleControl1.Folder = "Notes"
ThisForm.Caption = "OutLook Notlar"
ThisForm.Refresh()
ENDPROC
PROCEDURE cmdtasks.Click
ThisForm.OleControl1.Folder = "Tasks"
ThisForm.Caption = "OutLook Görevler"
ThisForm.Refresh()
ENDPROC
Procedure cmdSendandReceive.Click
Thisform.olecontrol1.SendAndReceive()
Endproc
PROCEDURE olecontrol1.Init
This.Folder = "InBox"
ENDPROC
ENDDEFINE