home *** CD-ROM | disk | FTP | other *** search
- object EmailDlg: TEmailDlg
- Left = 111
- Top = 115
- ActiveControl = EditSubject
- AutoScroll = False
- Caption = 'Send Email'
- ClientHeight = 435
- ClientWidth = 532
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- ShowHint = True
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 4
- Top = 83
- Width = 70
- Height = 13
- Caption = 'Attached Files:'
- end
- object Label7: TLabel
- Left = 4
- Top = 13
- Width = 44
- Height = 13
- Caption = 'Send To:'
- end
- object Label8: TLabel
- Left = 4
- Top = 37
- Width = 39
- Height = 13
- Caption = 'Subject:'
- end
- object Label10: TLabel
- Left = 4
- Top = 146
- Width = 73
- Height = 13
- Caption = 'Message Body:'
- end
- object EditSubject: TEdit
- Left = 80
- Top = 33
- Width = 353
- Height = 21
- Hint = 'Message Subject'
- TabOrder = 1
- end
- object Memo1: TMemo
- Left = 0
- Top = 160
- Width = 532
- Height = 256
- Hint = 'Type in your message here'
- ScrollBars = ssBoth
- TabOrder = 2
- end
- object ComboBoxAttachedFiles: TComboBox
- Left = 80
- Top = 81
- Width = 353
- Height = 21
- Hint = 'A list of Attached Files'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 5
- end
- object ButtonAddAttachedFile: TButton
- Left = 344
- Top = 62
- Width = 41
- Height = 17
- Hint = 'Click To Attach File'
- Caption = 'Add'
- TabOrder = 3
- OnClick = ButtonAddAttachedFileClick
- end
- object ButtonClearAttachedFiles: TButton
- Left = 392
- Top = 62
- Width = 41
- Height = 17
- Hint = 'Clear All File Attachments'
- Caption = 'Clear'
- TabOrder = 4
- OnClick = ButtonClearAttachedFilesClick
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 416
- Width = 532
- Height = 19
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Panels = <
- item
- Width = 380
- end
- item
- Width = 100
- end>
- ParentFont = False
- SimplePanel = False
- SizeGrip = False
- end
- object ButtonSend: TBitBtn
- Left = 448
- Top = 32
- Width = 75
- Height = 25
- Hint = 'Send the message'
- Caption = 'Send'
- TabOrder = 14
- OnClick = ButtonSendClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333FF3333333333333003333
- 3333333333773FF3333333333309003333333333337F773FF333333333099900
- 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
- 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
- 33333333337F3F77333333333309003333333333337F77333333333333003333
- 3333333333773333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- end
- object BtnCancel: TBitBtn
- Left = 448
- Top = 88
- Width = 75
- Height = 25
- Hint = 'Cancel sending the message'
- Cancel = True
- Caption = 'Cancel'
- Enabled = False
- TabOrder = 15
- OnClick = BtnCancelClick
- Glyph.Data = {
- DE010000424DDE01000000000000760000002800000024000000120000000100
- 0400000000006801000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333333333000033338833333333333333333F333333333333
- 0000333911833333983333333388F333333F3333000033391118333911833333
- 38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
- 911118111118333338F3338F833338F3000033333911111111833333338F3338
- 3333F8330000333333911111183333333338F333333F83330000333333311111
- 8333333333338F3333383333000033333339111183333333333338F333833333
- 00003333339111118333333333333833338F3333000033333911181118333333
- 33338333338F333300003333911183911183333333383338F338F33300003333
- 9118333911183333338F33838F338F33000033333913333391113333338FF833
- 38F338F300003333333333333919333333388333338FFF830000333333333333
- 3333333333333333333888330000333333333333333333333333333333333333
- 0000}
- NumGlyphs = 2
- end
- object BitBtn1: TBitBtn
- Left = 448
- Top = 128
- Width = 75
- Height = 25
- Hint = 'Display Setup Window'
- Caption = 'Setup'
- TabOrder = 17
- OnClick = BitBtn1Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
- 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
- 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
- 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
- 11155557F755F777777555000755033305555577755F75F77F55555555503335
- 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
- 05555757F75F75557F5505000333555505557F777FF755557F55000000355557
- 07557777777F55557F5555000005555707555577777FF5557F55553000075557
- 0755557F7777FFF5755555335000005555555577577777555555}
- NumGlyphs = 2
- end
- object ProgressBar1: TProgressBar
- Left = 384
- Top = 419
- Width = 145
- Height = 16
- Min = 0
- Max = 100
- TabOrder = 8
- end
- object Button1: TButton
- Left = 96
- Top = 141
- Width = 57
- Height = 17
- Hint = 'Load Message Body From Text File'
- Caption = 'Load'
- TabOrder = 9
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 160
- Top = 141
- Width = 57
- Height = 17
- Hint = 'Save Message Body To Text File'
- Caption = 'Save'
- TabOrder = 10
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 224
- Top = 141
- Width = 57
- Height = 17
- Hint = 'Clear Message'
- Caption = 'Clear'
- TabOrder = 11
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 288
- Top = 141
- Width = 57
- Height = 17
- Hint = 'Paste Text From Clipboard Into Message Body'
- Caption = 'Paste'
- TabOrder = 12
- OnClick = Button4Click
- end
- object SendAllBtn: TBitBtn
- Left = 448
- Top = 60
- Width = 75
- Height = 25
- Hint = 'Send the message to All addresses'
- Caption = 'Send All'
- TabOrder = 16
- OnClick = SendAllBtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333FF3333333333333003333
- 3333333333773FF3333333333309003333333333337F773FF333333333099900
- 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
- 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
- 33333333337F3F77333333333309003333333333337F77333333333333003333
- 3333333333773333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- end
- object EditTo: TEdit
- Left = 80
- Top = 10
- Width = 353
- Height = 21
- Hint = 'Recipient Address'
- TabOrder = 0
- OnChange = EditHostChange
- end
- object BitBtn2: TBitBtn
- Left = 448
- Top = 4
- Width = 75
- Height = 25
- TabOrder = 13
- OnClick = BitBtn2Click
- Kind = bkClose
- end
- object CheckBox1: TCheckBox
- Left = 80
- Top = 112
- Width = 153
- Height = 17
- Caption = 'Close After Sending Email'
- State = cbChecked
- TabOrder = 6
- end
- object SakMsg1: TSakMsg
- Left = 376
- Top = 208
- end
- object OpenDialog1: TOpenDialog
- Left = 440
- Top = 208
- end
- object SakSMTP1: TSakSMTP
- Port = '25'
- EncodeProgressStep = 2
- SendProgressStep = 2
- OnError = SakSMTP1Error
- OnBeforeSend = SakSMTP1BeforeSend
- OnAfterSend = SakSMTP1AfterSend
- OnEncodeStart = SakSMTP1EncodeStart
- OnEncodeProgress = SakSMTP1EncodeProgress
- OnSendProgress = SakSMTP1SendProgress
- Left = 408
- Top = 208
- end
- object Timer3: TTimer
- Enabled = False
- OnTimer = Timer3Timer
- Left = 336
- Top = 208
- end
- object OpenDialog2: TOpenDialog
- DefaultExt = '*.txt'
- Filter = 'Text File|*.*'
- Title = 'Load Message Body From'
- Left = 232
- Top = 208
- end
- object SaveDialog1: TSaveDialog
- Filter = 'Text File|*.*'
- Title = 'Load Message Body As'
- Left = 264
- Top = 208
- end
- end
-