Email服务器

开发平台：
Delphi

ufrmAttchMgr.dfm：源码内容
							object frmAttchMgr: TfrmAttchMgr
  Left = 300
  Top = 126
  Width = 1026
  Height = 557
  Caption = #38468#20214#31649#29702#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object pnl1: TPanel
    Left = 0
    Top = 24
    Width = 1010
    Height = 497
    Align = alClient
    TabOrder = 0
    object cxGrid1: TcxGrid
      Left = 153
      Top = 1
      Width = 856
      Height = 495
      Align = alClient
      BorderStyle = cxcbsNone
      TabOrder = 0
      LookAndFeel.Kind = lfOffice11
      object tvAttchs: TcxGridTableView
        PopupMenu = pm1
        NavigatorButtons.ConfirmDelete = False
        FilterBox.CustomizeDialog = False
        BackgroundBitmaps.GroupByBox.Data = {
          36100000424D3610000000000000360000002800000020000000200000000100
          2000000000000010000000000000000000000000000000000000FCFAFC00FCFA
          FC00ECECEC00C4C5C400C4C5C400ECECEC00ECECEC00C4C5C400C4C5C400ECEC
          EC00ECECEC00C4C5C400C4C5C400ECECEC00ECECEC00C4C5C400C4C5C400ECEC
          EC00ECECEC00C4C5C400C4C5C400ECECEC00ECECEC00C4C5C400C4C5C400ECEC
          EC00ECECEC00C4C5C400C4C5C400ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC008B8C8B008B8C8B00FCFCFC00FCFCFC008B8C
          8B008B8C8B00FCFCFC00FCFCFC008B8C8B008B8C8B00FCFCFC00FCFCFC008B8C
          8B008B8C8B00FCFCFC00FCFCFC008B8C8B008B8C8B00FCFCFC00FCFCFC008B8C
          8B008B8C8B00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC00476E4000547D4C005E8B5400699C
          5F0070A4650070A4650070A4650075B36A007AB46E007AB46E007AB46E007EBB
          720081BC750075B36A006EA563006EA563007AB46E0086C57A0086C57A004D72
          4500FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC0057814F0070A4650081BC750081BC
          750081BC750081BC750088CB7B008ED4810093DC85008ED481008BCD7D008DD1
          7F0093DC85009DE88E0093DC85008BCD7D008ED48100A2EF9200AEF99D006494
          5A00FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC0057814F0075B36A0075B36A0070A4
          650070A465007AB46E007AB46E0081BC750088CB7B0081BC750081BC75008BCD
          7D008BCD7D008BCD7D0093DC850093DC85008ED481009BE58C00ABF89A006494
          5A00FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC005E8B540070A465006B9E61006B9E
          61007AB46E0086C57A0086C57A007AB46E007AB46E007EBB720081BC750093DC
          850093DC85008BCD7D008BCD7D0093DC8500A2EF9200A4F29400A4F294005F8C
          5500FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC005E8B54006B9E610067995D006B9E
          61007AB46E0088CB7B008BCD7D0081BC75007AB46E007CB86F007EBB72008ED4
          81009BE58C0093DC850088CB7B008BCD7D009BE58C00ABF89A00A4F294005E8B
          5400FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC005A86520067995D0067995D006B9E
          61007AB46E0081BC75008BCD7D0086C57A007AB46E007AB46E007AB46E0088CB
          7B0098E28A009BE58C008ED4810088CB7B008ED48100A2EF9200A4F294005E8B
          5400FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC0057814F0064945A0064945A006799
          5D0075B36A007EBB720086C57A0086C57A007AB46E007AB46E007AB46E0081BC
          750093DC85009BE58C0093DC85008BCD7D008BCD7D009BE58C00A2EF92005E8B
          5400FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC0057814F0064945A0064945A006799
          5D0070A465007AB46E0081BC750086C57A007EBB720075B36A007AB46E007EBB
          72008ED4810093DC85009BE58C008BCD7D0088CB7B0093DC85009DE88E005E8B
          5400FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC00547D4C0064945A0064945A006494
          5A00699C5F0075B36A007AB46E0081BC750081BC750075B36A007AB46E007AB4
          6E0088CB7B0093DC850098E28A008ED4810088CB7B008ED481009BE58C005A86
          5200FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC00547D4C0064945A005E8B54006494
          5A0064945A0070A465007AB46E007EBB720081BC750075B36A0075B36A007AB4
          6E0081BC75008ED4810093DC85008ED4810088CB7B008BCD7D0093DC85005A86
          5200FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC00547D4C0064945A005F8C55005F8C
          550064945A00699C5F0070A465007AB46E007AB46E0075B36A0075B36A007AB4
          6E007EBB72008BCD7D008ED481008ED4810086C57A008BCD7D0093DC85005781
          4F00FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC004D72450064945A0064945A006494
          5A005F8C550064945A006EA5630075B36A0075B36A0070A4650070A4650075B3
          6A007AB46E0086C57A008ED481008BCD7D0086C57A008BCD7D0093DC85005781
          4F00FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC004A6F43005E8B540064945A006494
          5A0064945A006EA563007AB46E008BCD7D0086C57A0081BC75007AB46E007EBB
          72008BCD7D009BE58C00A4F294008ED4810086C57A008BCD7D0093DC8500547D
          4C00FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC00446B3D005A8652005E8B54006494
          5A0070A465008BCD7D0093DC850054BC4C009DE88E00ABF89A0093DC85009DE8
          8E00B4F9A300B8F5A900B8F5A900AEF99D008ED481008ED4810093DC8500547D
          4C00FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC00446B3D00547D4C005A8652006494
          5A0075B36A008ED48100259B2100159F13001D9F1B0065C55B00AEF99D00B4F9
          A30054BC4C00109C0E00159F130093DC8500AEF99D009BE58C008ED48100547D
          4C00FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC00446B3D0051774900547D4C005F8C
          550075B36A00259B210054BC4C0054BC4C0093DC8500109C0E00A4F2940069C5
          5F0054BC4C00AEF99D0070C36500259B2100B4F9A300A4F294008BCD7D005177
          4900FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC00446B3D004D724500517749005A86
          520070A465006DC463008BCD7D0054BC4C007EBB7200109C0E009FEB9000A2EF
          9200A2EF9200A2EF9200ABF89A00109C0E00B8F5A900A4F294008BCD7D004D72
          4500FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC00446B3D005177490051774900547D
          4C00699C5F0081BC750064AC5B00259B2100109C0E0054BC4C0093DC850070C3
          65005EC25500A2EF920070C36500199F1700B8F5A9009DE88E0086C57A004D72
          4500FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC00446B3D004D724500547D4C005781
          4F006EA563005EB15500109C0E00259B210081BC75008BCD7D0093DC850065C5
          5B00159F1300109C0E00159F130093DC8500B4F9A3008ED4810081BC75004D72
          4500FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC003C6C36004D7245004D7245005781
          4F0070A4650055B54D0055B54D0055B54D0070C3650054BC4C0093DC85008BCD
          7D00109C0E00A4F29400A4F29400AEF99D009DE88E0088CB7B0081BC75004A6F
          4300FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC003C6C36004A6F43004D724500547D
          4C0067995D006EA56300159F1300259B2100199F17005EC255008ED4810093DC
          8500109C0E00259B2100259B210065C55B0093DC850081BC75007CB86F00476E
          4000FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC003C6C3600476E40004A6F43004D72
          45005A86520070A4650075B36A0055B54D0072BD670086C57A007AB46E008BCD
          7D007EBB720070C3650070C365008BCD7D0086C57A007EBB72007AB46E00476E
          4000FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC00376B3200446B3D00446B3D004A6F
          43004D7245005A86520067995D0070A4650070A46500699C5F0067995D006EA5
          630081BC75008BCD7D008DD17F0081BC75007AB46E007AB46E007AB46E00476E
          4000FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC0014441200376B3200376B32003C6C
          36003C6C3600446B3D00446B3D00446B3D004A6F43004A6F43004D7245004D72
          4500547D4C00547D4C005A8652005A8652005A8652005E8B54005E8B5400376B
          3200FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC008B8C8B00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC008B8C8B00ECECEC00FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC
          FC00FCFCFC00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00C4C5C400FCFCFC00FCFCFC008B8C8B008B8C8B00FCFCFC00FCFCFC008B8C
          8B008B8C8B00FCFCFC00FCFCFC008B8C8B008B8C8B00FCFCFC00FCFCFC008B8C
          8B008B8C8B00FCFCFC00FCFCFC008B8C8B008B8C8B00FCFCFC00FCFCFC008B8C
          8B008B8C8B00FCFCFC00FCFCFC00C4C5C400FCFAFC00FCFAFC00FCFAFC00FCFA
          FC00ECECEC00C4C5C400C4C5C400ECECEC00ECECEC00C4C5C400C4C5C400ECEC
          EC00ECECEC00C4C5C400C4C5C400ECECEC00ECECEC00C4C5C400C4C5C400ECEC
          EC00ECECEC00C4C5C400C4C5C400ECECEC00ECECEC00C4C5C400C4C5C400ECEC
          EC00ECECEC00C4C5C400C4C5C400ECECEC00FCFAFC00FCFAFC00}
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        FilterRow.InfoText = #21333#20987#36825#37324#35774#32622#36807#28388#26465#20214
        FilterRow.Visible = True
        OptionsCustomize.ColumnFiltering = False
        OptionsData.Appending = True
        OptionsData.Editing = False
        OptionsView.NoDataToDisplayInfoText = '<'#27809#26377#38468#20214'>'
        object gtvColName: TcxGridColumn
          Caption = #38468#20214#21517#31216
          Width = 153
        end
        object gtvColInEmail: TcxGridColumn
          Caption = #25152#22312#37038#20214
          Width = 169
        end
        object gtvColSize: TcxGridColumn
          Caption = #37038#20214#22823#23567
        end
        object gtvColSender: TcxGridColumn
          Caption = #21457#20214#20154
          Width = 199
        end
        object gtvColDate: TcxGridColumn
          Caption = #21457#20214#26085#26399
          Width = 130
        end
        object gtvColFuulPath: TcxGridColumn
          Caption = 'gtvColFuulPath'
          Visible = False
        end
        object gtvColEmailPath: TcxGridColumn
          Caption = 'gtvColEmailPath'
          Visible = False
        end
        object gtvColEMailAddr: TcxGridColumn
          Caption = 'gtvColEMailAddr'
          Visible = False
        end
      end
      object tvGrid1TableView2: TcxGridTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
      end
      object cxgrdlvlGrid1Level1: TcxGridLevel
        GridView = tvAttchs
      end
    end
    object tvEMail: TcxTreeView
      Left = 1
      Top = 1
      Width = 152
      Height = 495
      Align = alLeft
      TabOrder = 1
      OnClick = tvEMailClick
      HotTrack = True
      Images = frmMain.il1
      Items.Data = {
        030000001A0000006D0000002400000000000000FFFFFFFF0000000003000000
        01731A0000000000000000000000FFFFFFFFFFFFFFFF00000000000000000131
        1A0000000000000000000000FFFFFFFFFFFFFFFF000000000000000001321A00
        00000000000000000000FFFFFFFFFFFFFFFF000000000000000001331A000000
        170000000900000000000000FFFFFFFF000000000300000001771A0000000000
        000000000000FFFFFFFFFFFFFFFF000000000000000001311A00000000000000
        00000000FFFFFFFFFFFFFFFF000000000000000001321A000000000000000000
        0000FFFFFFFFFFFFFFFF000000000000000001331A0000001700000009000000
        00000000FFFFFFFF000000000300000001721A0000000000000000000000FFFF
        FFFFFFFFFFFF000000000000000001311A0000000000000000000000FFFFFFFF
        FFFFFFFF000000000000000001321A0000000000000000000000FFFFFFFFFFFF
        FFFF00000000000000000133}
      Indent = 30
      ReadOnly = True
      RowSelect = True
      OnDeletion = tvEMailDeletion
    end
  end
  object dxbrmngr1: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #24494#36719#38597#40657
    Font.Style = []
    CanCustomize = False
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.HotImages = frmMain.il1
    ImageOptions.Images = frmMain.il1
    ImageOptions.LargeImages = frmMain.il1
    ImageOptions.SmoothGlyphs = True
    ImageOptions.StretchGlyphs = False
    LookAndFeel.Kind = lfOffice11
    MenuAnimations = maFade
    PopupMenuLinks = <>
    Style = bmsOffice11
    UseSystemFont = True
    Left = 520
    Top = 112
    DockControlHeights = (
      0
      0
      24
      0)
    object dxbrBar: TdxBar
      BorderStyle = bbsNone
      Caption = 'Custom 1'
      CaptionButtons = <>
      DockedDockingStyle = dsTop
      DockedLeft = 0
      DockedTop = 0
      DockingStyle = dsTop
      FloatLeft = 188
      FloatTop = 241
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'lbl1'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'lbl3'
        end>
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      Visible = True
      WholeRow = True
    end
    object lbl1: TdxBarStatic
      Caption = #36873#25321#37038#31665#26597#30475#20854#20013#38468#20214
      Category = 0
      Hint = #36873#25321#37038#31665#26597#30475#20854#20013#38468#20214
      Visible = ivAlways
      BorderStyle = sbsBump
      Width = 150
    end
    object dxbrdt1: TdxBarEdit
      Caption = 'New Item'
      Category = 0
      Hint = 'New Item'
      Visible = ivAlways
      Width = 150
    end
    object dxbrbtn1: TdxBarButton
      Caption = '     '#26597#25214'     '
      Category = 0
      Hint = '     '#26597#25214'     '
      Visible = ivAlways
    end
    object dxbrbtn2: TdxBarButton
      Caption = #28165#38500#26597#25214#32467#26524
      Category = 0
      Hint = #28165#38500#26597#25214#32467#26524
      Visible = ivAlways
    end
    object lbl2: TdxBarStatic
      Caption = '             '
      Category = 0
      Hint = '             '
      Visible = ivAlways
    end
    object dxbrbtn3: TdxBarButton
      Caption = #25171#24320#38468#20214
      Category = 0
      Hint = #25171#24320#38468#20214
      Visible = ivAlways
      OnClick = dxbrbtn3Click
    end
    object dxbrbtn4: TdxBarButton
      Caption = #25171#24320#25152#22312#37038#20214
      Category = 0
      Hint = #25171#24320#25152#22312#37038#20214
      Visible = ivAlways
      OnClick = dxbrbtn4Click
    end
    object dxbrbtn5: TdxBarButton
      Caption = #21024#38500#38468#20214
      Category = 0
      Hint = #21024#38500#38468#20214
      Visible = ivAlways
      OnClick = dxbrbtn5Click
    end
    object dxbrbtn6: TdxBarButton
      Caption = #21478#23384#38468#20214
      Category = 0
      Hint = #21478#23384#38468#20214
      Visible = ivAlways
      OnClick = dxbrbtn6Click
    end
    object lbl3: TdxBarStatic
      Caption = #36873#25321#38468#20214#65292#21333#20987#21491#38190#65292#36873#25321#20320#24076#26395#30340#25805#20316#12290
      Category = 0
      Hint = #36873#25321#38468#20214#65292#21333#20987#21491#38190#65292#36873#25321#20320#24076#26395#30340#25805#20316#12290
      Visible = ivAlways
      BorderStyle = sbsBump
      Width = 500
    end
    object btnOpnDir: TdxBarButton
      Caption = #25171#24320#38468#20214#25152#22312#25991#20214#22841
      Category = 0
      Hint = #25171#24320#38468#20214#25152#22312#25991#20214#22841
      Visible = ivAlways
      OnClick = btnOpnDirClick
    end
  end
  object ds1: TDataSource
    Left = 456
    Top = 102
  end
  object con1: TADOConnection
    Left = 352
    Top = 94
  end
  object qry1: TADOQuery
    Parameters = <>
    Left = 432
    Top = 174
  end
  object pm1: TdxBarPopupMenu
    BarManager = dxbrmngr1
    ItemLinks = <
      item
        Visible = True
        ItemName = 'dxbrbtn3'
      end
      item
        Visible = True
        ItemName = 'btnOpnDir'
      end
      item
        Visible = True
        ItemName = 'dxbrbtn4'
      end
      item
        Visible = True
        ItemName = 'dxbrbtn5'
      end
      item
        Visible = True
        ItemName = 'dxbrbtn6'
      end>
    UseOwnFont = False
    Left = 352
    Top = 166
  end
  object dlgSave: TSaveDialog
    Left = 304
    Top = 190
  end
end

						