Email服务器

开发平台：
Delphi

ufrmEmailBoxProperty.dfm：源码内容
							object frmEmailBoxProperty: TfrmEmailBoxProperty
  Left = 573
  Top = 130
  Width = 394
  Height = 431
  Caption = #37038#31665#23646#24615
  Color = clBtnFace
  Constraints.MaxHeight = 431
  Constraints.MaxWidth = 394
  Constraints.MinHeight = 431
  Constraints.MinWidth = 394
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object RzPageControl1: TRzPageControl
    Left = 0
    Top = 0
    Width = 386
    Height = 356
    ActivePage = TabSheet2
    Align = alClient
    Color = clWhite
    UseColoredTabs = True
    ParentColor = False
    ShowMenuButton = True
    TabIndex = 0
    TabOrder = 0
    TabStyle = tsRoundCorners
    FixedDimension = 19
    object TabSheet2: TRzTabSheet
      Color = clWhite
      Caption = #21457#36865
      object cxLabel4: TcxLabel
        Left = 40
        Top = 136
        Caption = #37038#20214#20445#23384#21040
      end
      object cxlbl3: TcxLabel
        Left = 40
        Top = 8
        AutoSize = False
        Caption = #21457#20214#31665
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -17
        Style.Font.Name = 'MS Sans Serif'
        Style.Font.Style = []
        Style.TextStyle = [fsBold]
        Style.IsFontAssigned = True
        Height = 24
        Width = 56
      end
      object lblEmailSendCount: TcxLabel
        Left = 40
        Top = 56
        AutoSize = False
        Caption = #20849#26377'%S'#23553#37038#20214
        Height = 17
        Width = 185
      end
      object btnSendClear: TcxButton
        Left = 280
        Top = 48
        Width = 65
        Height = 25
        Caption = #28165#31354
        TabOrder = 3
        OnClick = btnSendClearClick
        LookAndFeel.Kind = lfOffice11
      end
      object edtSendSaveTo: TcxButtonEdit
        Left = 128
        Top = 136
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = edtRecvSaveToPropertiesButtonClick
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 4
        Width = 233
      end
      object chkSendLog: TcxCheckBox
        Left = 40
        Top = 96
        Caption = #35760#24405#21457#36865#26085#24535
        State = cbsChecked
        TabOrder = 5
        Width = 121
      end
      object lbl3: TcxLabel
        Left = 40
        Top = 168
        AutoSize = False
        Caption = #36807#28388#35268#21017#20445#23384#21040
        Height = 17
        Width = 105
      end
      object edt1: TcxButtonEdit
        Left = 128
        Top = 168
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = edt1PropertiesButtonClick
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 7
        Width = 233
      end
    end
    object TabSheet3: TRzTabSheet
      Color = clWhite
      Caption = #25509#25910
      object lblEmailRecvCount: TLabel
        Left = 32
        Top = 48
        Width = 153
        Height = 13
        AutoSize = False
        Caption = #20849#26377'%S'#23553#37038#20214
      end
      object lblBoxName: TLabel
        Left = 24
        Top = 16
        Width = 73
        Height = 25
        Alignment = taCenter
        AutoSize = False
        Caption = #25910#20214#31665
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object btnRecvClear: TcxButton
        Left = 288
        Top = 32
        Width = 57
        Height = 25
        Caption = #28165#31354
        TabOrder = 0
        OnClick = btnRecvClearClick
        LookAndFeel.Kind = lfOffice11
      end
      object edtRecvPlaySound: TcxButtonEdit
        Left = 160
        Top = 216
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = edtRecvPlaySoundPropertiesButtonClick
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 1
        Width = 193
      end
      object edtRecvRunExe: TcxButtonEdit
        Left = 160
        Top = 240
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = edtRecvRunExePropertiesButtonClick
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 2
        Width = 193
      end
      object cxLabel13: TcxLabel
        Left = 32
        Top = 216
        AutoSize = False
        Caption = #26032#37038#20214#21040#26469#26102#25773#25918#22768#38899
        Height = 17
        Width = 137
      end
      object cxLabel14: TcxLabel
        Left = 32
        Top = 240
        AutoSize = False
        Caption = #26032#37038#20214#21040#26469#26102#25191#34892#31243#24207
        Height = 17
        Width = 129
      end
      object rbAtuoDetect: TcxRadioButton
        Left = 32
        Top = 112
        Width = 209
        Height = 17
        Action = actWriteCheckEmailOption
        Caption = #33258#21160#26816#27979#26032#37038#20214
        TabOrder = 5
      end
      object rbMinDetect: TcxRadioButton
        Tag = 1
        Left = 32
        Top = 133
        Width = 193
        Height = 17
        Action = actWriteCheckEmailOption
        Caption = #20165#24403#26368#23567#21270#26102#26816#27979#26032#37038#20214
        TabOrder = 6
      end
      object rbRunDetect: TcxRadioButton
        Tag = 2
        Left = 32
        Top = 155
        Width = 233
        Height = 17
        Action = actWriteCheckEmailOption
        Caption = #20165#21551#21160#26102#26816#27979#26032#37038#20214
        TabOrder = 7
      end
      object rbNeverDetect: TcxRadioButton
        Tag = 3
        Left = 32
        Top = 176
        Width = 113
        Height = 17
        Action = actWriteCheckEmailOption
        Caption = #20174#19981#26816#27979#26032#37038#20214
        TabOrder = 8
      end
      object chkReDownload: TcxCheckBox
        Left = 32
        Top = 72
        Caption = #19981#37325#26032#19979#36733#24050#32463#25509#25910#30340#37038#20214
        State = cbsChecked
        TabOrder = 9
        OnClick = chkReDownloadClick
        Width = 217
      end
      object edtRecvSaveTo: TcxButtonEdit
        Left = 160
        Top = 280
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = edtRecvSaveToPropertiesButtonClick
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 10
        Width = 193
      end
      object cxlbl5: TcxLabel
        Left = 32
        Top = 280
        Caption = #37038#20214#20445#23384#21040
      end
      object chkRecvLog: TcxCheckBox
        Left = 208
        Top = 72
        Caption = #35760#24405#25509#25910#26085#24535
        State = cbsChecked
        TabOrder = 12
        Width = 121
      end
    end
    object rztbshtTabSheet4: TRzTabSheet
      Color = clWhite
      Caption = #36807#28388
      object lstBlack: TcxListBox
        Left = 24
        Top = 24
        Width = 241
        Height = 105
        ItemHeight = 13
        TabOrder = 0
      end
      object lstWhite: TcxListBox
        Left = 24
        Top = 160
        Width = 241
        Height = 105
        ItemHeight = 13
        TabOrder = 1
      end
      object cxLabel11: TcxLabel
        Left = 24
        Top = 8
        AutoSize = False
        Caption = #40657#21517#21333
        Height = 17
        Width = 89
      end
      object cxLabel12: TcxLabel
        Left = 24
        Top = 136
        AutoSize = False
        Caption = #30333#21517#21333
        Height = 17
        Width = 53
      end
      object btnAddBlack: TcxButton
        Left = 288
        Top = 24
        Width = 75
        Height = 25
        Caption = #28155#21152
        TabOrder = 4
        OnClick = btnAddBlackClick
        LookAndFeel.Kind = lfOffice11
      end
      object btnDeleteBlack: TcxButton
        Left = 288
        Top = 56
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 5
        OnClick = btnDeleteBlackClick
        LookAndFeel.Kind = lfOffice11
      end
      object btnAddWhite: TcxButton
        Left = 288
        Top = 152
        Width = 75
        Height = 25
        Caption = #28155#21152
        TabOrder = 6
        OnClick = btnAddWhiteClick
        LookAndFeel.Kind = lfOffice11
      end
      object btnDeleteWhite: TcxButton
        Left = 288
        Top = 184
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 7
        OnClick = btnDeleteWhiteClick
        LookAndFeel.Kind = lfOffice11
      end
      object btnRuleSet: TcxButton
        Left = 24
        Top = 288
        Width = 97
        Height = 25
        Caption = #36807#28388#35268#21017#35774#32622
        TabOrder = 8
        OnClick = btnRuleSetClick
        LookAndFeel.Kind = lfOffice11
      end
    end
    object rztbshtTabSheet5: TRzTabSheet
      Color = clWhite
      Caption = #36134#21495
      object cbServerType: TcxImageComboBox
        Left = 152
        Top = 32
        Properties.Items = <
          item
            Description = 'POP3'
            ImageIndex = 4
            Value = 0
          end
          item
            Description = 'IMAP'
            ImageIndex = 1
            Value = 1
          end>
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 0
        Width = 121
      end
      object cxLabel5: TcxLabel
        Left = 24
        Top = 32
        Caption = #25509#25910#37038#20214#26381#21153#22120#31867#22411
      end
      object cxLabel8: TcxLabel
        Left = 24
        Top = 64
        Caption = #29992#25143#21517
      end
      object edtUserName: TcxTextEdit
        Left = 152
        Top = 64
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 3
        Width = 193
      end
      object cxLabel9: TcxLabel
        Left = 24
        Top = 96
        Caption = #23494#30721
      end
      object edtPass: TcxTextEdit
        Left = 152
        Top = 96
        Properties.EchoMode = eemPassword
        Properties.PasswordChar = '*'
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 5
        Width = 121
      end
      object edtServerRecv: TcxTextEdit
        Left = 152
        Top = 160
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 6
        Width = 193
      end
      object cxlbl1: TcxLabel
        Left = 24
        Top = 160
        Caption = #25509#25910#37038#20214#26381#21153#22120
      end
      object cxlbl2: TcxLabel
        Left = 24
        Top = 224
        Caption = #21457#36865#37038#20214#26381#21153#22120'(SMTP)'
      end
      object edtServerSend: TcxTextEdit
        Left = 152
        Top = 224
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 9
        Width = 193
      end
      object cxlbl6: TcxLabel
        Left = 24
        Top = 128
        Caption = #24744#30340#22995#21517
      end
      object edtDisplayName: TcxTextEdit
        Left = 152
        Top = 128
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 11
        Width = 193
      end
      object lbl1: TcxLabel
        Left = 24
        Top = 192
        AutoSize = False
        Caption = #31471#21475
        Height = 17
        Width = 28
      end
      object lbl2: TcxLabel
        Left = 32
        Top = 256
        AutoSize = False
        Caption = #31471#21475
        Height = 17
        Width = 28
      end
      object edRecvPort: TcxSpinEdit
        Left = 152
        Top = 192
        Properties.MaxValue = 65535.000000000000000000
        Properties.MinValue = 1.000000000000000000
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 14
        Value = 110
        Width = 57
      end
      object edSendPort: TcxSpinEdit
        Left = 152
        Top = 256
        Properties.MaxValue = 65535.000000000000000000
        Properties.MinValue = 1.000000000000000000
        Style.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        TabOrder = 15
        Value = 25
        Width = 57
      end
    end
  end
  object pnl1: TPanel
    Left = 0
    Top = 356
    Width = 386
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object btnOk: TcxButton
      Left = 176
      Top = 8
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 0
      OnClick = btnOkClick
      LookAndFeel.Kind = lfOffice11
    end
    object btnCancel: TcxButton
      Left = 272
      Top = 8
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 1
      OnClick = btnCancelClick
      LookAndFeel.Kind = lfOffice11
    end
  end
  object dlgSave: TRzSaveDialog
    FrameVisible = True
    Options = [osoFileMustExist, osoHideReadOnly, osoAllowTree, osoShowHints, osoOleDrag, osoOleDrop, osoShowHidden]
    Left = 153
    Top = 237
  end
  object dlgOpen: TRzOpenDialog
    Left = 185
    Top = 213
  end
  object actlst1: TActionList
    Left = 233
    Top = 141
    object actWriteCheckEmailOption: TAction
      Caption = 'actWriteCheckEmailOption'
      OnExecute = actWriteCheckEmailOptionExecute
    end
  end
end

						