object SMTPForm: TSMTPForm Left = 13 Top = 67 Width = 608 Height = 433 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Send E-mail' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object ToolBar: TPanel Left = 0 Top = 0 Width = 600 Height = 33 Align = alTop BevelOuter = bvNone BorderWidth = 1 TabOrder = 0 object SendButton: TSpeedButton Left = 12 Top = 4 Width = 21 Height = 25 Hint = 'Send' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000 000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF 9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000 0000777777777777777733333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SendButtonClick end object CancelButton: TSpeedButton Tag = 1 Left = 36 Top = 4 Width = 22 Height = 25 Hint = 'Cancel' Enabled = False Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333000033338833333333333333333F333333333333 0000333911833333983333333388F333333F3333000033391118333911833333 38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333 911118111118333338F3338F833338F3000033333911111111833333338F3338 3333F8330000333333911111183333333338F333333F83330000333333311111 8333333333338F3333383333000033333339111183333333333338F333833333 00003333339111118333333333333833338F3333000033333911181118333333 33338333338F333300003333911183911183333333383338F338F33300003333 9118333911183333338F33838F338F33000033333913333391113333338FF833 38F338F300003333333333333919333333388333338FFF830000333333333333 3333333333333333333888330000333333333333333333333333333333333333 0000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = CancelButtonClick end object AttachButton: TSpeedButton Left = 58 Top = 4 Width = 25 Height = 25 Hint = 'Attach' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000FFFFFFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00 FFFF000000FFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBF00000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFFBFBFBF000000BFBF BFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF000000BFBFBFBFBFBFBFBFBF00000000FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF007F 7FBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000BFBFBFBFBFBFBFBFBFBFBFBF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF007F7FBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF007F7F007F7F007F7F000000BFBFBFBFBFBFBFBFBF BFBFBF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000007F 7F007F7F007F7FBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00FFFF00 FFFF00FFFF0000007F7F007F7F007F7F00000000007F7F000000BFBFBFBFBFBF BFBFBFBFBFBF00FFFF00FFFF00FFFF00FFFF00FFFF7F7F007F7F007F7F007F7F 007F7F00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00 FFFF00FFFFFFFF000000007F7F000000007F7F00BFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBF00FFFF00FFFF00FFFF00FFFF0000000000007F7F000000 00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00 0000BFBFBFBFBFBF7F7F007F7F007F7F00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F007F7F007F7F 00000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBF7F7F007F7F007F7F00BFBFBFBFBFBFBFBFBF} ParentShowHint = False ShowHint = True OnClick = AttachButtonClick end object Bevel1: TBevel Left = 0 Top = 32 Width = 459 Height = 5 Shape = bsTopLine end object Bevel2: TBevel Left = 0 Top = 0 Width = 459 Height = 5 Shape = bsTopLine end object SpeedButton1: TSpeedButton Left = 88 Top = 4 Width = 25 Height = 25 Hint = 'Send Later' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333FFFFFFFFFFFFF3344444444444443337777777777777F334CCCCCCCCCC C43337777777777777F33444881B188444333777F3737337773333308881FF70 33333337F3373337F3333330888BF770333333373F33F337333333330881F703 3333333373F73F7333333333308B703333333333373F77333333333333080333 3333333333777FF333333333301F103333333333377777FF3333333301B1F103 333333337737777FF3333330881BFB7033333337F3737F77F333333088881F70 333333F7F3337777FFF334448888888444333777FFFFFFF777F334CCCCCCCCCC C43337777777777777F3344444444444443337777777777777330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton3: TSpeedButton Left = 120 Top = 4 Width = 25 Height = 25 Hint = 'Cut' Glyph.Data = { 66030000424D660300000000000036000000280000000F000000110000000100 1800000000003003000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBF141400BFBFBFBFBFBFBFBFBFBFBFBF7F00007F0000BFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF202000BFBFBFBFBFBF BFBFBF7F0000BFBFBFBFBFBF7F0000BFBFBFBFBFBF7F00007F0000BFBFBFBFBF BFBFBFBFBFBFBF2C2C00BFBFBFBFBFBFBFBFBF7F0000BFBFBFBFBFBF7F0000BF BFBF7F0000BFBFBFBFBFBF7F0000BFBFBFBFBFBFBFBFBF383800BFBFBFBFBFBF BFBFBF7F0000BFBFBFBFBFBF7F0000BFBFBF7F0000BFBFBFBFBFBF7F0000BFBF BFBFBFBFBFBFBF444400BFBFBFBFBFBFBFBFBFBFBFBF7F00007F00007F0000BF BFBF7F0000BFBFBFBFBFBF7F0000BFBFBFBFBFBFBFBFBF505000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBF7F0000BFBFBF7F00007F00007F0000BFBFBFBFBF BFBFBFBFBFBFBF5C5C00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F000000 00007F0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF686800BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBF747400BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000 0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF808000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF000000BFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBF8C8C00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000BF BFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF989800BFBFBFBFBFBF BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBF BFBFBFBFBFBFBFA4A400BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBF BFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFB0B000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBCBC00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFC8C800BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFD4D400} ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 145 Top = 4 Width = 25 Height = 25 Hint = 'Copy' Glyph.Data = { 42030000424D42030000000000003600000028000000110000000F0000000100 1800000000000C03000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBF7F00007F00007F00007F00007F00007F00007F00007F00007F0000BFBF BFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F0000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F0000BFBFBFFFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBF7F0000FFFFFF000000000000000000000000000000 FFFFFF7F0000BFBFBF00BFBFBF0000000000000000000000000000000000007F 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F0000BFBFBF00BFBF BF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F0000FFFFFF00000000000000 0000000000000000FFFFFF7F0000BFBFBF00BFBFBF000000FFFFFF0000000000 000000000000007F0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F 0000BFBFBF00BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F0000FFFF FF000000000000FFFFFF7F00007F00007F00007F0000BFBFBF00BFBFBF000000 FFFFFF0000000000000000000000007F0000FFFFFFFFFFFFFFFFFFFFFFFF7F00 00FFFFFF7F0000BFBFBFBFBFBF00BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFF7F0000FFFFFFFFFFFFFFFFFFFFFFFF7F00007F0000BFBFBFBFBFBFBFBF BF00BFBFBF000000FFFFFF000000000000FFFFFF0000007F00007F00007F0000 7F00007F00007F0000BFBFBFBFBFBFBFBFBFBFBFBF00BFBFBF000000FFFFFFFF FFFFFFFFFFFFFFFF000000FFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBF00BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF00000000 0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBF BF000000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBF00} ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object SpeedButton5: TSpeedButton Left = 170 Top = 4 Width = 25 Height = 25 Hint = 'Paste' Glyph.Data = { 26040000424D2604000000000000360000002800000012000000120000000100 180000000000F003000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F 00007F00007F00007F00007F00007F00007F00007F00007F00007F0000BFBFBF BFBFBFBFBFBFBFBF0000000000000000000000000000007F0000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F0000BFBFBFBFBFBFBFBF000000 7F7F7F007F7F7F7F7F007F7F7F7F7F7F0000FFFFFF7F00007F00007F00007F00 007F00007F0000FFFFFF7F0000BFBFBFBFBFBFBFBF000000007F7F7F7F7F007F 7F7F7F7F007F7F7F0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF7F0000BFBFBF5C00BFBFBF0000007F7F7F007F7F7F7F7F007F7F7F7F7F7F 0000FFFFFF7F00007F00007F0000FFFFFF7F00007F00007F00007F0000BFBFBF BFBFBFBFBF000000007F7F7F7F7F007F7F7F7F7F007F7F7F0000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF7F0000FFFFFF7F0000BFBFBFBFBFBFBFBFBFBFBF000000 7F7F7F007F7F7F7F7F007F7F7F7F7F7F0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF FF7F00007F0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000007F7F7F7F7F007F 7F7F7F7F007F7F7F00007F00007F00007F00007F00007F00007F0000000000BF BFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F7F007F7F7F7F7F007F7F7F7F7F00 7F7F7F7F7F007F7F7F7F7F007F7F7F7F7F007F7F000000BFBFBFBFBFBFBFBFBF BFBFBFBFBF000000007F7F7F7F7F000000000000000000000000000000000000 0000000000007F7F7F7F7F7F000000BFBFBFBFBFBFBFBFBFB000BFBFBF000000 7F7F7F7F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F 7F007F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000007F7F7F7F7F007F 7F00000000FFFF00000000000000FFFF0000007F7F7F007F7F7F7F7F000000BF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000000000000000 FFFF00FFFF000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF 0800BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000000000 BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF8000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF6300BFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBF0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object btnSendAll: TBitBtn Left = 348 Top = 4 Width = 105 Height = 25 Hint = 'Send Broadcast E-mail To All Or To Active Filter' Caption = 'Send To All' Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = btnSendAllClick end object BitBtn1: TBitBtn Left = 506 Top = 4 Width = 75 Height = 25 TabOrder = 1 OnClick = BitBtn1Click Kind = bkClose end end object SendInfoPanel: TPanel Left = 0 Top = 33 Width = 600 Height = 80 Align = alTop BevelOuter = bvNone TabOrder = 1 object Label1: TLabel Left = 10 Top = 8 Width = 47 Height = 13 Alignment = taRightJustify Caption = 'Mail To:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 10 Top = 56 Width = 48 Height = 13 Alignment = taRightJustify Caption = 'Subject:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 10 Top = 32 Width = 20 Height = 13 Caption = 'Cc:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object ToEdit: TwwDBEdit Left = 64 Top = 4 Width = 561 Height = 21 Color = 14417919 DataField = 'SenderEmail' DataSource = frmDataModule.dsEmail MaxLength = 50 TabOrder = 0 WordWrap = False end object SubjectEdit: TwwDBEdit Left = 64 Top = 52 Width = 561 Height = 21 Color = 14417919 DataField = 'Subject' DataSource = frmDataModule.dsEmail MaxLength = 60 TabOrder = 1 WordWrap = False end object CcEdit: TwwDBEdit Left = 64 Top = 28 Width = 561 Height = 21 Color = 14417919 MaxLength = 0 TabOrder = 2 WordWrap = False end end object Panel1: TPanel Left = 0 Top = 387 Width = 600 Height = 19 Align = alBottom BevelOuter = bvNone TabOrder = 2 object StatusBar1: TStatusBar Left = 0 Top = 0 Width = 600 Height = 19 Panels = < item Width = 300 end item Width = 100 end item Width = 50 end> SimplePanel = False end object ProgressBar1: TProgressBar Left = 302 Top = 2 Width = 98 Height = 17 Min = 0 Max = 100 TabOrder = 1 end end object Panel2: TPanel Left = 0 Top = 340 Width = 600 Height = 12 Align = alBottom Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Attachment:' TabOrder = 3 end object ListView1: TListView Left = 0 Top = 352 Width = 600 Height = 35 Align = alBottom Color = 14417919 Columns = <> ReadOnly = True TabOrder = 4 LargeImages = ImageList1 end object BodyMemo: TDBMemo Left = 0 Top = 113 Width = 600 Height = 227 Align = alClient Color = 14417919 DataField = 'Body' DataSource = frmDataModule.dsEmail ScrollBars = ssVertical TabOrder = 5 end object msSMTP1: TmsSMTP DefaultPort = 25 TimeOut = 600 OnOpen = msSMTP1Open OnClosing = msSMTP1Closing OnClosed = msSMTP1Closed OnCancel = msSMTP1Cancel OnError = msSMTP1Error MailMessage = msMessage1 OnPrepare = msSMTP1Prepare OnSending = msSMTP1Sending OnMailSent = msSMTP1MailSent OnProgress = msSMTP1Progress Left = 368 Top = 196 end object msMessage1: TmsMessage ContentType = 'text/plain' ReturnReceipt = False Left = 396 Top = 196 end object ImageList1: TImageList Height = 32 Width = 32 Left = 340 Top = 196 end object BatchCopy: TBatchMove Destination = frmDataModule.TBLEmailFull Source = frmDataModule.QURCopyEmail Left = 312 Top = 196 end object SaveAsDialog: TSaveDialog DefaultExt = 'TXT' FileEditStyle = fsEdit Left = 260 Top = 196 end end