Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ole/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ole/sendmail.sct
XVERSION =   3.00dataenvironmentdataenvironmentDataenvironment`Top = 107
Left = 43
Width = 520
Height = 120
DataSource = .NULL.
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Top = 20
Left = 10
Height = 90
Width = 95
Alias = "products"
Database = ..\..\data\testdata.dbc
CursorSource = "products"
Name = "Cursor1"
22formformform1�DataSession = 2
Height = 212
Width = 463
DoCreate = .T.
AutoCenter = .T.
Caption = "Send Mail"
MaxButton = .F.
MinButton = .F.
HelpContextID = 1231582
Name = "form1"
SPROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
=messageb(message(),48)
cancel

ENDPROC
PROCEDURE Init
IF  fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
	fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
	fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
	fontmetric(7, 'MS Sans Serif', 8, '') # 11
	this.setall('fontname', 'Tahoma')  
ELSE
	this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize',8)

#DEFINE DATAERR_LOC	"Could not locate the TESTDATA.DBC database. Make sure the Samples Directory in the File Locations tab of the Options dialog is properly set."

LOCAL lcDataDir

* Check to see if OCX installed and loaded.
IF TYPE("THIS.ctrMapiBtn.oleMMess") # "O" OR ISNULL(THIS.ctrMapiBtn.oleMMess)
	RETURN .F.
ENDIF

* Check to see if OCX installed and loaded.
IF TYPE("THIS.ctrMapiBtn.oleMSess") # "O" OR ISNULL(THIS.ctrMapiBtn.oleMSess)
	RETURN .F.
ENDIF

lcDataDir = HOME(2)

DO CASE
CASE FILE(HOME(2)+"data\testdata.dbc")
	lcDataDir = HOME(2)
CASE FILE(HOME()+"samples\data\testdata.dbc")
	lcDataDir = HOME() + "Samples\"
OTHERWISE
	MESSAGEBOX(DATAERR_LOC)
	RETURN .F.
ENDCASE

USE lcDataDir+"data\testdata!products"

ENDPROC
Y�� @@�:%<�$�U9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELP$�������CCE�0�x���UNERRORCMETHODNLINE�%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$�����!��C�fontname�Tahoma�������(��C�fontname�
MS Sans Serif�������C�fontsize��������;%�C�THIS.ctrMapiBtn.oleMMessb�O�C������O�B�-���;%�C�THIS.ctrMapiBtn.oleMSessb�O�C��������B�-���T��C��Q��
H�����'�CC��Q�data\testdata.dbc0����T��C��Q��,�CC�Q�samples\data\testdata.dbc0��2�T��C�Q�Samples\��2������CٌCould not locate the TESTDATA.DBC database. Make sure the Samples Directory in the File Locations tab of the Options dialog is properly set.�x��B�-���#Q���data\testdata!products��UTHISSETALL	LCDATADIR
CTRMAPIBTNOLEMMESSOLEMSESS
Deactivate,��Activate���Error���Init���1Q�A2�2��A3d	��A�t�qA�qA�q����	qA22d����	H)@textboxtextbox
txtProduct_IDform1�FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "product_id"
Height = 23
Left = 125
TabIndex = 2
Top = 95
Width = 101
Name = "txtProduct_ID"
textboxtextboxtxtEnglish_Nameform1�FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "eng_name"
Height = 23
Left = 125
TabIndex = 4
Top = 131
Width = 194
Name = "txtEnglish_Name"
labellabel
lblProduct_IDform1�FontName = "MS Sans Serif"
FontSize = 8
Alignment = 1
Caption = "\<Product ID:"
Height = 16
Left = 17
Top = 99
Width = 105
TabIndex = 1
Name = "lblProduct_ID"
labellabellblEnglish_Nameform1�FontName = "MS Sans Serif"
FontSize = 8
Alignment = 1
Caption = "English \<name:"
Height = 16
Left = 17
Top = 135
Width = 105
TabIndex = 3
Name = "lblEnglish_Name"
behindscenes..\solution.vcx
commandbutton
Behindscenes1form1<Top = 179
Left = 11
TabIndex = 6
Name = "Behindscenes1"
c_solutions..\solution.vcxcustomC_solutions1form1FTop = 181
Left = 76
Height = 18
Width = 25
Name = "C_solutions1"
cmdclose..\solution.vcx
commandbutton	Cmdclose2form19Top = 179
Left = 381
TabIndex = 8
Name = "Cmdclose2"
vcr..\..\classes\buttons.vcx	containerVcr1form1�Top = 178
Left = 182
TabIndex = 7
Name = "Vcr1"
cmdTop.Name = "cmdTop"
cmdPrior.Name = "cmdPrior"
cmdNext.Name = "cmdNext"
cmdBottom.Name = "cmdBottom"
Datachecker1.Name = "Datachecker1"
mailbtn..\..\classes\buttons.vcx	container
ctrMapiBtnform1>Top = 100
Left = 380
Width = 77
Height = 66
BackStyle = 0
TabIndex = 5
Name = "ctrMapiBtn"
cmdMail.Top = 21
cmdMail.Left = 0
cmdMail.Height = 40
cmdMail.Width = 72
cmdMail.FontName = "MS Sans Serif"
cmdMail.FontSize = 8
cmdMail.Picture = ..\..\classes\smmail.bmp
cmdMail.Caption = "\<Send Record"
cmdMail.Name = "cmdMail"
OleMMess.Top = -1000
OleMMess.Left = -1000
OleMMess.Height = 100
OleMMess.Width = 100
OleMMess.Name = "OleMMess"
OleMSess.Top = -1000
OleMSess.Left = -1000
OleMSess.Height = 100
OleMSess.Width = 100
OleMSess.Name = "OleMSess"
shapeshapeShape3form1bTop = 13
Left = 10
Height = 57
Width = 443
BackStyle = 0
SpecialEffect = 0
Name = "Shape3"
labellabelLabel7form1vFontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "You can send an email message that contains a copy of the current record by using the MAPI control.  Navigate to the record you want to send, then click Send Record (you must have an installed e-mail client)."
Height = 41
Left = 20
Top = 23
Width = 423
TabIndex = 0
_memberdata = 
Name = "Label7"
labellabelLabel8form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 18
Top = 7
Width = 62
TabIndex = 0
Name = "Label8"
rArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Courier New, 1, 11, 9, 17, 12, 11, 5, 0