Australian Personal Computer 1999 November/APC411-2.ISO/email/poco.exe/file0001.bin/0/RCDATA/TFRMSCRIPTS/TFRMSCRIPTS.txt

Text File | 1999-09-29 | 54.7 KB | 1,978 lines

object FrmScripts: TFrmScripts
  Left = 340
  Top = 175
  Width = 548
  Height = 365
  Caption = 'Filters and Scripts'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = False
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 540
    Height = 281
    ActivePage = TabSettings
    Align = alClient
    HotTrack = True
    Images = ImagesTabs
    Style = tsFlatButtons
    TabOrder = 0
    object TabSettings: TTabSheet
      Caption = 'Settings'
      OnResize = TabSettingsResize
      object Bevel1: TBevel
        Left = 0
        Top = 241
        Width = 532
        Height = 6
        Align = alBottom
        Shape = bsBottomLine
      end
      object Splitter2: TSplitter
        Left = 219
        Top = 0
        Width = 4
        Height = 176
        Cursor = crHSplit
        ResizeStyle = rsUpdate
      end
      object Panel1: TPanel
        Left = 0
        Top = 176
        Width = 532
        Height = 65
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        object Label23: TLabel
          Left = 10
          Top = 44
          Width = 24
          Height = 16
          Caption = 'R&un'
          FocusControl = cbRunScript
        end
        object Label24: TLabel
          Left = 280
          Top = 44
          Width = 172
          Height = 16
          Anchors = [akTop, akRight]
          Caption = 'script on selected messages'
        end
        object BtnDefaults: TSpeedButton
          Left = 2
          Top = 6
          Width = 231
          Height = 27
          Caption = '&Configure Auto Script creation...'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          OnClick = BtnDefaultsClick
        end
        object BtnRunNow: TSpeedButton
          Left = 460
          Top = 39
          Width = 67
          Height = 25
          Anchors = [akTop, akRight]
          Caption = '&Now'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          OnClick = BtnRunNowClick
        end
        object cbRunScript: TComboBox
          Left = 42
          Top = 39
          Width = 229
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          DropDownCount = 12
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 0
        end
      end
      object PnlIncoming: TPanel
        Left = 0
        Top = 0
        Width = 219
        Height = 176
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 1
        object GroupBoxIncoming: TGroupBox
          Left = 0
          Top = 0
          Width = 219
          Height = 176
          Align = alClient
          Caption = 'Run on incoming mail: '
          TabOrder = 0
          object Panel2: TPanel
            Left = 2
            Top = 102
            Width = 215
            Height = 72
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 1
            object BtnInSetup: TSpeedButton
              Left = 10
              Top = 9
              Width = 82
              Height = 27
              Caption = '&Setup...'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
              OnClick = BtnInSetupClick
            end
            object BtnInRemove: TSpeedButton
              Left = 94
              Top = 9
              Width = 71
              Height = 27
              Caption = '&Remove'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
              OnClick = BtnInRemoveClick
            end
            object BtnInAdd: TSpeedButton
              Left = 9
              Top = 43
              Width = 47
              Height = 25
              Caption = '&Add:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
              OnClick = BtnInAddClick
            end
            object BtnInUp: TSpeedButton
              Left = 171
              Top = 5
              Width = 35
              Height = 17
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              Glyph.Data = {
                D6000000424DD600000000000000760000002800000018000000080000000100
                0400000000006000000000000000000000001000000010000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFFFFFFFF91000000000000000000FFFFF991111111111111110FFFFFFF
                F99111111111111FFFFFFFFFFFF9911111111FFFFFFFFFFFFFFFF991111FFFFF
                FFFFFFFFFFFFFFF99FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
              ParentFont = False
              OnClick = BtnInUpClick
            end
            object BtnInDown: TSpeedButton
              Left = 171
              Top = 23
              Width = 35
              Height = 17
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              Glyph.Data = {
                D6000000424DD600000000000000760000002800000018000000080000000100
                0400000000006000000000000000000000001000000010000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF444400FFFFFFFFFFFFF
                FFF4444444400FFFFFFFFFFFF44444444444400FFFFFFFF44444444444444440
                0FFFFFCCCCCCCCCCCCCCCCCCC0FFFFFFFFFFFFFFFFFFFFFFFFFF}
              ParentFont = False
              OnClick = BtnInDownClick
            end
            object cbInScripts: TComboBox
              Left = 65
              Top = 44
              Width = 145
              Height = 23
              Style = csDropDownList
              Anchors = [akLeft, akTop, akRight]
              DropDownCount = 12
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              ItemHeight = 15
              ParentFont = False
              TabOrder = 0
            end
          end
          object PnlIncomingList: TPanel
            Left = 2
            Top = 18
            Width = 215
            Height = 84
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 0
            object lbInScripts: TListBox
              Left = 0
              Top = 0
              Width = 215
              Height = 84
              Align = alClient
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              ItemHeight = 15
              MultiSelect = True
              ParentFont = False
              TabOrder = 0
              OnDblClick = lbInScriptsDblClick
            end
          end
        end
      end
      object PnlOutgoing: TPanel
        Left = 223
        Top = 0
        Width = 309
        Height = 176
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 2
        object GroupBoxOutgoing: TGroupBox
          Left = 0
          Top = 0
          Width = 309
          Height = 176
          Align = alClient
          Caption = 'Run on outgoing mail: '
          TabOrder = 0
          object Panel3: TPanel
            Left = 2
            Top = 102
            Width = 305
            Height = 72
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 1
            object BtnOutAdd: TSpeedButton
              Left = 9
              Top = 43
              Width = 47
              Height = 25
              Caption = 'A&dd:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
              OnClick = BtnInAddClick
            end
            object BtnOutSetup: TSpeedButton
              Left = 10
              Top = 9
              Width = 82
              Height = 27
              Caption = 'Se&tup...'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
              OnClick = BtnInSetupClick
            end
            object BtnOutRemove: TSpeedButton
              Left = 94
              Top = 9
              Width = 71
              Height = 27
              Caption = 'Re&move'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
              OnClick = BtnInRemoveClick
            end
            object BtnOutDown: TSpeedButton
              Left = 171
              Top = 23
              Width = 35
              Height = 17
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              Glyph.Data = {
                D6000000424DD600000000000000760000002800000018000000080000000100
                0400000000006000000000000000000000001000000010000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF444400FFFFFFFFFFFFF
                FFF4444444400FFFFFFFFFFFF44444444444400FFFFFFFF44444444444444440
                0FFFFFCCCCCCCCCCCCCCCCCCC0FFFFFFFFFFFFFFFFFFFFFFFFFF}
              ParentFont = False
              OnClick = BtnInDownClick
            end
            object BtnOutUp: TSpeedButton
              Left = 171
              Top = 5
              Width = 35
              Height = 17
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              Glyph.Data = {
                D6000000424DD600000000000000760000002800000018000000080000000100
                0400000000006000000000000000000000001000000010000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFFFFFFFF91000000000000000000FFFFF991111111111111110FFFFFFF
                F99111111111111FFFFFFFFFFFF9911111111FFFFFFFFFFFFFFFF991111FFFFF
                FFFFFFFFFFFFFFF99FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
              ParentFont = False
              OnClick = BtnInUpClick
            end
            object cbOutScripts: TComboBox
              Left = 64
              Top = 44
              Width = 235
              Height = 23
              Style = csDropDownList
              Anchors = [akLeft, akTop, akRight]
              DropDownCount = 12
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              ItemHeight = 15
              ParentFont = False
              TabOrder = 0
            end
          end
          object PnlOutgoingList: TPanel
            Left = 2
            Top = 18
            Width = 305
            Height = 84
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 0
            object lbOutScripts: TListBox
              Left = 0
              Top = 0
              Width = 305
              Height = 84
              Align = alClient
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = 15
              Font.Name = 'Arial'
              Font.Style = []
              ItemHeight = 15
              MultiSelect = True
              ParentFont = False
              TabOrder = 0
              OnDblClick = lbOutScriptsDblClick
            end
          end
        end
      end
    end
    object TabSetup: TTabSheet
      Caption = 'Setup'
      ImageIndex = 1
      object SplitterSetup: TSplitter
        Left = 340
        Top = 35
        Width = 4
        Height = 212
        Cursor = crHSplit
        Align = alRight
        Color = clBtnFace
        ParentColor = False
        ResizeStyle = rsUpdate
      end
      object PnlEdits: TPanel
        Left = 0
        Top = 35
        Width = 340
        Height = 212
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object UserVarLabel1: TLabel
          Left = 10
          Top = 4
          Width = 329
          Height = 16
          Anchors = [akLeft, akTop, akRight]
          AutoSize = False
          Visible = False
        end
        object UserVarLabel2: TLabel
          Left = 10
          Top = 54
          Width = 329
          Height = 16
          Anchors = [akLeft, akTop, akRight]
          AutoSize = False
          Visible = False
        end
        object UserVarLabel3: TLabel
          Left = 10
          Top = 104
          Width = 329
          Height = 16
          Anchors = [akLeft, akTop, akRight]
          AutoSize = False
          Visible = False
        end
        object UserVarLabel4: TLabel
          Left = 10
          Top = 154
          Width = 329
          Height = 16
          Anchors = [akLeft, akTop, akRight]
          AutoSize = False
          Visible = False
        end
        object LblNoSettings: TLabel
          Left = 8
          Top = 42
          Width = 182
          Height = 16
          Caption = 'This script has no user settings'
          Visible = False
        end
        object LblNoSettings2: TLabel
          Left = 44
          Top = 60
          Width = 110
          Height = 16
          Caption = 'that you can setup.'
          Visible = False
        end
        object UserVarEdit1: TComboBox
          Left = 8
          Top = 24
          Width = 320
          Height = 24
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 0
          PopupMenu = PopupEdit
          TabOrder = 0
          OnExit = UserVarEdit1Exit
        end
        object UserVarEdit2: TComboBox
          Left = 8
          Top = 74
          Width = 320
          Height = 24
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 0
          PopupMenu = PopupEdit
          TabOrder = 1
          OnExit = UserVarEdit1Exit
        end
        object UserVarEdit3: TComboBox
          Left = 8
          Top = 124
          Width = 320
          Height = 24
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 0
          PopupMenu = PopupEdit
          TabOrder = 2
          OnExit = UserVarEdit1Exit
        end
        object UserVarEdit4: TComboBox
          Left = 8
          Top = 174
          Width = 320
          Height = 24
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 0
          PopupMenu = PopupEdit
          TabOrder = 3
          OnExit = UserVarEdit1Exit
        end
      end
      object PnlButtons: TPanel
        Left = 344
        Top = 35
        Width = 188
        Height = 212
        Align = alRight
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object UserButton4: TButton
          Left = 8
          Top = 158
          Width = 172
          Height = 35
          Anchors = [akLeft, akTop, akRight]
          TabOrder = 3
          Visible = False
          OnClick = UserButton1Click
        end
        object UserButton3: TButton
          Left = 8
          Top = 108
          Width = 172
          Height = 35
          Anchors = [akLeft, akTop, akRight]
          TabOrder = 2
          Visible = False
          OnClick = UserButton1Click
        end
        object UserButton2: TButton
          Left = 8
          Top = 58
          Width = 172
          Height = 35
          Anchors = [akLeft, akTop, akRight]
          TabOrder = 1
          Visible = False
          OnClick = UserButton1Click
        end
        object UserButton1: TButton
          Left = 8
          Top = 8
          Width = 172
          Height = 35
          Anchors = [akLeft, akTop, akRight]
          TabOrder = 0
          Visible = False
          OnClick = UserButton1Click
        end
      end
      object Panel6: TPanel
        Left = 0
        Top = 0
        Width = 532
        Height = 35
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 2
        object BtnOrganize1: TSpeedButton
          Left = 6
          Top = 6
          Width = 104
          Height = 22
          Cursor = crHandPoint
          Caption = 'Scr&ipt to setup:'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          OnClick = BtnOrganize1Click
        end
        object BtnViewScript: TSpeedButton
          Left = 427
          Top = 5
          Width = 98
          Height = 25
          Anchors = [akTop, akRight]
          Caption = '&Edit Script...'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          OnClick = BtnViewScriptClick
        end
        object cbSetupScripts: TComboBox
          Left = 116
          Top = 5
          Width = 295
          Height = 24
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          DropDownCount = 16
          ItemHeight = 0
          TabOrder = 0
          OnChange = cbSetupScriptsChange
        end
      end
    end
    object TabScript: TTabSheet
      Caption = 'Script'
      ImageIndex = 2
      object PnlScriptBody: TPanel
        Left = 0
        Top = 35
        Width = 532
        Height = 212
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object PageScript: TPageControl
          Left = 0
          Top = 0
          Width = 532
          Height = 212
          ActivePage = Tab2Script
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          MultiLine = True
          ParentFont = False
          TabOrder = 0
          TabPosition = tpRight
          object Tab2Script: TTabSheet
            Caption = 'Edit'
            object MemoScript: TMemo
              Left = 0
              Top = 0
              Width = 502
              Height = 202
              Align = alClient
              BorderStyle = bsNone
              PopupMenu = PopupEdit
              ScrollBars = ssVertical
              TabOrder = 0
              WantTabs = True
              WordWrap = False
              OnChange = MemoScriptChange
            end
          end
          object Tab2Debug: TTabSheet
            Caption = 'Debug'
            ImageIndex = 2
            object Splitter1: TSplitter
              Left = 139
              Top = 0
              Width = 4
              Height = 202
              Cursor = crHSplit
              ResizeStyle = rsUpdate
            end
            object PnlDebugVars: TPanel
              Left = 0
              Top = 0
              Width = 139
              Height = 202
              Align = alLeft
              BevelOuter = bvNone
              TabOrder = 0
              object Label28: TLabel
                Left = 6
                Top = 0
                Width = 83
                Height = 15
                Caption = 'Variable name:'
              end
              object MemoDebugVars: TMemo
                Left = 0
                Top = 16
                Width = 139
                Height = 185
                Anchors = [akLeft, akTop, akRight, akBottom]
                ReadOnly = True
                ScrollBars = ssVertical
                TabOrder = 0
                WordWrap = False
              end
            end
            object PnlDebugValues: TPanel
              Left = 143
              Top = 0
              Width = 274
              Height = 202
              Align = alClient
              BevelOuter = bvNone
              Caption = 'PnlDebugValues'
              TabOrder = 1
              object Label29: TLabel
                Left = 6
                Top = 0
                Width = 80
                Height = 15
                Caption = 'Variable value:'
              end
              object MemoDebugValues: TMemo
                Left = 0
                Top = 16
                Width = 274
                Height = 185
                Anchors = [akLeft, akTop, akRight, akBottom]
                ReadOnly = True
                ScrollBars = ssVertical
                TabOrder = 0
                WordWrap = False
              end
            end
          end
        end
      end
      object PnlScriptTop: TPanel
        Left = 0
        Top = 0
        Width = 532
        Height = 35
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object BtnOrganize2: TSpeedButton
          Left = 4
          Top = 6
          Width = 85
          Height = 22
          Cursor = crHandPoint
          Caption = 'Scr&ipt name:'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          OnClick = BtnOrganize1Click
        end
        object BtnSaveScript: TSpeedButton
          Left = 344
          Top = 5
          Width = 69
          Height = 25
          Anchors = [akTop, akRight]
          Caption = 'Sa&ve'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          OnClick = BtnSaveScriptClick
        end
        object btnDryRun: TSpeedButton
          Left = 418
          Top = 5
          Width = 69
          Height = 25
          Anchors = [akTop, akRight]
          Caption = 'Dry R&un'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          OnClick = btnDryRunClick
        end
        object BtnDelete: TSpeedButton
          Left = 492
          Top = 5
          Width = 33
          Height = 25
          Anchors = [akTop, akRight]
          Caption = '&Del'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          OnClick = BtnDeleteClick
        end
        object cbScriptName: TComboBox
          Left = 92
          Top = 5
          Width = 245
          Height = 24
          Anchors = [akLeft, akTop, akRight]
          DropDownCount = 16
          ItemHeight = 0
          TabOrder = 0
          OnClick = cbScriptNameClick
        end
      end
    end
    object TabButtons: TTabSheet
      Caption = 'Buttons'
      ImageIndex = 3
      object Splitter5: TSplitter
        Left = 212
        Top = 0
        Width = 4
        Height = 247
        Cursor = crHSplit
        ResizeStyle = rsUpdate
      end
      object PnlButtonsScripts: TPanel
        Left = 0
        Top = 0
        Width = 212
        Height = 247
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object Label12: TLabel
          Left = 2
          Top = 9
          Width = 47
          Height = 16
          Caption = 'Button &1'
          FocusControl = cbBtn1
        end
        object Label3: TLabel
          Left = 2
          Top = 32
          Width = 47
          Height = 16
          Caption = 'Button &2'
          FocusControl = cbBtn2
        end
        object Label4: TLabel
          Left = 2
          Top = 56
          Width = 47
          Height = 16
          Caption = 'Button &3'
          FocusControl = cbBtn3
        end
        object Label5: TLabel
          Left = 2
          Top = 80
          Width = 47
          Height = 16
          Caption = 'Button &4'
          FocusControl = cbBtn4
        end
        object Label6: TLabel
          Left = 2
          Top = 104
          Width = 47
          Height = 16
          Caption = 'Button &5'
          FocusControl = cbBtn5
        end
        object Label7: TLabel
          Left = 2
          Top = 128
          Width = 47
          Height = 16
          Caption = 'Button &6'
          FocusControl = cbBtn6
        end
        object Label8: TLabel
          Left = 2
          Top = 152
          Width = 47
          Height = 16
          Caption = 'Button &7'
          FocusControl = cbBtn7
        end
        object Label9: TLabel
          Left = 2
          Top = 176
          Width = 47
          Height = 16
          Caption = 'Button &8'
          FocusControl = cbBtn8
        end
        object Label10: TLabel
          Left = 2
          Top = 200
          Width = 47
          Height = 16
          Caption = 'Button &9'
          FocusControl = cbBtn9
        end
        object Label11: TLabel
          Left = 2
          Top = 224
          Width = 47
          Height = 16
          Caption = 'Button &0'
          FocusControl = cbBtn0
        end
        object Bevel4: TBevel
          Left = 207
          Top = 0
          Width = 5
          Height = 247
          Align = alRight
          Shape = bsRightLine
        end
        object cbBtn1: TComboBox
          Left = 56
          Top = 4
          Width = 150
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 0
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn2: TComboBox
          Left = 56
          Top = 28
          Width = 150
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 1
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn3: TComboBox
          Left = 56
          Top = 52
          Width = 150
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 2
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn4: TComboBox
          Left = 56
          Top = 76
          Width = 150
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 3
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn5: TComboBox
          Left = 56
          Top = 100
          Width = 150
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 4
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn6: TComboBox
          Left = 56
          Top = 124
          Width = 150
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 5
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn7: TComboBox
          Left = 56
          Top = 148
          Width = 150
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 6
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn8: TComboBox
          Left = 56
          Top = 172
          Width = 150
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 7
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn9: TComboBox
          Left = 56
          Top = 196
          Width = 150
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 8
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn0: TComboBox
          Left = 56
          Top = 220
          Width = 150
          Height = 23
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 9
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
      end
      object PnlButtonsDesc: TPanel
        Left = 216
        Top = 0
        Width = 316
        Height = 247
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object Label13: TLabel
          Left = 8
          Top = 9
          Width = 68
          Height = 16
          Caption = '&Description'
          FocusControl = EditBtn1
        end
        object Label14: TLabel
          Left = 8
          Top = 32
          Width = 68
          Height = 16
          Caption = 'D&escription'
          FocusControl = EditBtn2
        end
        object Label15: TLabel
          Left = 8
          Top = 56
          Width = 68
          Height = 16
          Caption = 'De&scription'
          FocusControl = EditBtn3
        end
        object Label16: TLabel
          Left = 8
          Top = 80
          Width = 68
          Height = 16
          Caption = 'Des&cription'
          FocusControl = EditBtn4
        end
        object Label17: TLabel
          Left = 8
          Top = 104
          Width = 68
          Height = 16
          Caption = 'Desc&ription'
          FocusControl = EditBtn5
        end
        object Label18: TLabel
          Left = 8
          Top = 128
          Width = 68
          Height = 16
          Caption = 'Descr&iption'
          FocusControl = EditBtn6
        end
        object Label19: TLabel
          Left = 8
          Top = 152
          Width = 68
          Height = 16
          Caption = 'Descri&ption'
          FocusControl = EditBtn7
        end
        object Label20: TLabel
          Left = 8
          Top = 176
          Width = 68
          Height = 16
          Caption = 'Descrip&tion'
          FocusControl = EditBtn8
        end
        object Label21: TLabel
          Left = 8
          Top = 200
          Width = 68
          Height = 16
          Caption = 'Descripti&on'
          FocusControl = EditBtn9
        end
        object Label22: TLabel
          Left = 8
          Top = 224
          Width = 68
          Height = 16
          Caption = 'Descriptio&n'
          FocusControl = EditBtn0
        end
        object Bevel5: TBevel
          Left = 0
          Top = 0
          Width = 5
          Height = 247
          Align = alLeft
          Shape = bsLeftLine
        end
        object EditBtn0: TEdit
          Left = 84
          Top = 220
          Width = 228
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
        end
        object EditBtn9: TEdit
          Left = 84
          Top = 196
          Width = 228
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
        end
        object EditBtn8: TEdit
          Left = 84
          Top = 172
          Width = 228
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
        end
        object EditBtn7: TEdit
          Left = 84
          Top = 148
          Width = 228
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
        end
        object EditBtn6: TEdit
          Left = 84
          Top = 124
          Width = 228
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
        end
        object EditBtn5: TEdit
          Left = 84
          Top = 100
          Width = 228
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object EditBtn4: TEdit
          Left = 84
          Top = 76
          Width = 228
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object EditBtn3: TEdit
          Left = 84
          Top = 52
          Width = 228
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object EditBtn2: TEdit
          Left = 84
          Top = 28
          Width = 228
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object EditBtn1: TEdit
          Left = 84
          Top = 4
          Width = 228
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
    end
  end
  object PnlBottom: TPanel
    Left = 0
    Top = 281
    Width = 540
    Height = 57
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object PnlProgress: TPanel
      Left = 0
      Top = 0
      Width = 345
      Height = 57
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      Visible = False
      object Label25: TLabel
        Left = 154
        Top = 0
        Width = 69
        Height = 16
        Caption = 'Total Lines:'
      end
      object Label26: TLabel
        Left = 258
        Top = 0
        Width = 55
        Height = 16
        Caption = 'Currently:'
      end
      object Label27: TLabel
        Left = 2
        Top = 0
        Width = 52
        Height = 16
        Caption = 'Running:'
      end
      object lblScriptRunning: TLabel
        Left = 60
        Top = 0
        Width = 91
        Height = 16
        AutoSize = False
        Caption = 'script'
      end
      object LblTotalLines: TLabel
        Left = 226
        Top = 0
        Width = 27
        Height = 16
        AutoSize = False
        Caption = '0000'
      end
      object LblCurrentLine: TLabel
        Left = 315
        Top = 0
        Width = 28
        Height = 16
        Caption = '0000'
      end
      object ProgressScript: ProgressBar3D
        Left = 154
        Top = 18
        Width = 187
        Height = 27
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Position = 30
        BarColor = clPurple
        ParentFont = False
      end
      object BtnCancel: TButton
        Left = 22
        Top = 20
        Width = 107
        Height = 25
        Caption = 'Cancel'
        TabOrder = 1
        OnClick = BtnCancelClick
      end
    end
    object PnlClose: TPanel
      Left = 435
      Top = 0
      Width = 105
      Height = 57
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object BtnClose: TButton
        Left = 7
        Top = 8
        Width = 90
        Height = 39
        Cancel = True
        Caption = 'C&lose'
        Default = True
        ModalResult = 1
        TabOrder = 0
        OnClick = BtnCloseClick
      end
    end
  end
  object MailMessage: TmsMessage
    ContentType = 'text/plain'
    ReturnReceipt = False
    Left = 424
    Top = 6
  end
  object ImagesTabs: TImageList
    Left = 398
    Top = 2
  end
  object HintTimer: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = HintTimerTimer
    Left = 374
    Top = 5
  end
  object PopupEdit: TPopupMenu
    Left = 350
    Top = 3
    object MenuUndo: TMenuItem
      Caption = '&Undo'
      ShortCut = 16474
      OnClick = MenuUndoClick
    end
    object MenuItem2: TMenuItem
      Caption = '-'
    end
    object MenuCut: TMenuItem
      Caption = 'Cu&t'
      ShortCut = 16472
      OnClick = MenuCutClick
    end
    object MenuCopy: TMenuItem
      Caption = '&Copy'
      ShortCut = 16451
      OnClick = MenuCopyClick
    end
    object MenuPaste: TMenuItem
      Caption = '&Paste'
      ShortCut = 16470
      OnClick = MenuPasteClick
    end
    object MenuDelete: TMenuItem
      Caption = '&Delete'
      OnClick = MenuDeleteClick
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object MenuSelectAll: TMenuItem
      Caption = 'Select &All'
      ShortCut = 16449
      OnClick = MenuSelectAllClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Save1: TMenuItem
      Caption = '&Save'
      ShortCut = 16467
      OnClick = Save1Click
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 112
      OnClick = Help1Click
    end
  end
  object StringsScripts: TIStrings
    Duplicates = dupIgnore
    Left = 456
    Top = 14
    SStr = (
      '{### About Poco Script'
      '{ Short script showing the About box for PocoScript }'
      ''
      'Set $a "You are now watching PocoScript in action!"'
      'AppendBody $a " "'
      'AppendBody $a " "'
      'AppendBody $a "What is PocoScript?"'

        'AppendBody $a "  PocoScript is an interpreted scripting language' +
        ' built right into Poco."'

        'AppendBody $a "  It will let you manipulate your e-mail in ways ' +
        'you never thought possible."'
      'AppendBody $a " "'

        'AppendBody $a "But I don'#39't want to or know how to write scripts!' +
        '"'

        'AppendBody $a "  Poco comes with several useful scripts pre-inst' +
        'alled so you can start taking"'

        'AppendBody $a "  advantage of it immediately. You can also downl' +
        'oad additional third-party"'

        'AppendBody $a "  scripts. Poco will even Auto Create scripts for' +
        ' you: just drag a contact name "'

        'AppendBody $a "  from mini address list onto your mailboxes pane' +
        ' and a new script will be"'

        'AppendBody $a "  created to filter mail from that person to the ' +
        'mailbox."'
      'AppendBody $a " "'
      'AppendBody $a "How do I get started?"'

        'AppendBody $a "  Simply press F4 to open the scripting window, f' +
        'rom where you can run,"'

        'AppendBody $a "  edit or delete the installed scripts, as well a' +
        's customize the script toolbar."'
      'AppendBody $a " "'
      'AppendBody $a "Enjoy!"'
      'Beep'
      'MessageBox $a'
      ''
      ''
      '{### Archive Old Mail'
      '{ Script will archive any selected messages older '
      '{ than a specified number of days to a specified folder'
      ''
      '{ Usage: best used on Selected messages'
      '{ To try it out, select some messages, setup this script'
      '{ in Scripts/Setup, then run it in Scripts/Settings by'
      '{ selecting it along the bottom and clicking on Now button'
      ''
      '    { Initialize user settings: }'
      'External $userdata1 "Archive messages older than: (days)" "30"'

        'External $userdata2 "Which mailbox should I archive them to:%mai' +
        'lboxes%" "Archives"'
      ''
      '    { Make sure message is appended to mailbox }'
      'AppendToFile True'
      '    { Get today'#39's date }'
      'GetDate $todaydate'
      '    { Get message'#39's date }'
      'ReadHeader $messagedate "Date:" %message'
      '    { Calculate the message age }'
      'SubDays #diff $todaydate $messagedate'
      ''
      '    { Compare the age to user setting }'
      'if #diff > $userdata1 then PerformCopy'
      '    { Exit if the difference is not greater }'
      'Exit'
      ''
      '    { If true, jump here and archive the message }'
      ':PerformCopy'
      '    { Load the mailbox filepath information }'
      'AddStrings $UserData2 ".mbx"'
      'SaveMessage %message $UserData2'
      '    { Finally, deleting the original message }'
      'DeleteMessage %message'
      ''
      ''
      '{### Calculator'
      '{ Script will launch Calculator'
      '{ A sample of different PocoScript capabilities'
      ''
      'Execute calc.exe'
      ''
      ''
      '{### Create Mailbox'
      '{ This sample script will simply create a new mailbox'
      ''

        'InputBox $a "I am about to create a new mailbox, what would you ' +
        'like to name it?" "Brand New '
      ''
      'Mailbox"'
      'Set $b " "'
      'AddStrings $a .mbx'
      'SaveBody $b $a'
      'RefreshMailboxes'
      ''
      ''
      ''
      '{### Display Raw Message'
      '{ Script will show the raw message in Notepad'
      ''
      'SaveMessage %message ~msg.tmp'
      'Execute notepad.exe ~msg.tmp'
      '    { Wait 3 seconds for Notepad to load... }'
      'Wait 3'
      '    { ...then delete the temporary file }'
      'DeleteFile ~msg.tmp'
      ''
      ''
      '{### Filter Message'
      '{ This script will copy a message to a specified '
      '{ folder, based on header content.'
      ''
      '{ Usage: can be used on Incoming/Outgoing or '
      '{ Selected messages'
      ''
      '    { Initialize user settings: }'

        'External $userdata1 "Which header would you like me to scan%head' +
        'ers%" {ID1}"From"'
      'External $userdata2 "What word should I look for" {ID2}"jsmith"'

        'External $userdata3 "Which mailbox should I copy it to%mailboxes' +
        '%" {ID3}"Jane'#39's"'

        'External $userdata4 "Keep the original message?%bool%" {ID4}"Yes' +
        '"'
      ''
      '    { Make sure message is appended to mailbox }'
      'AppendToFile True'
      '    { Fetch the header content }'
      'ReadHeader $header $UserData1 %message'
      '    { Convert header to lowercase }'
      'Lowercase $header'
      '    { Convert user data to lowercase }'
      'Lowercase $UserData2'
      ''
      '    { Is user data contained in the header content? }'
      'If $UserData2 ^ $header then PerformCopy'
      '    { If not then simply exit }'
      'Exit'
      ''
      '    { If true, jump here and copy the message }'
      ':PerformCopy'
      'AddStrings $UserData3 ".mbx"'
      'SaveMessage %message $UserData3'
      ''
      '    { Force string variable $userdata4 to a boolean variable }'
      'Set &k $userdata4'
      'Not &k'
      ''
      'if &k then Delete'
      'Exit'
      ''
      '    { Finally, delete message if user enabled it }'
      ':Delete'
      'DeleteMessage %message'
      ''
      ''
      '{### Junk Messages from Sender'
      '{ Script will trash the message if the'
      '{ sender'#39's e-mail is found in the file'
      ''
      '{ Usage: Should be used on Incoming messages'
      ''
      '    { Initialize user settings: }'
      'External $userfile1 "Junk Senders..." junksender.txt'
      'set $file $userfile1'
      'set $mailbox trash.mbx'
      ''
      '    { Make sure message is appended to mailbox }'
      'AppendToFile True'
      '    { Fetch the header content }'
      'ReadHeader $header From %message'
      'ExtractEmail $header'
      '    { Convert header to lowercase }'
      'Lowercase $header'
      '    { Open list of banned sender'#39's e-mails }'
      'OpenBody $m $file'
      'Lowercase $m'
      'TrimLines $m'
      'LinePos #a $header $m'
      ''
      'if #a = -1 then Leave'
      ''
      '    { If found, copy the message }'
      'SaveMessage %message $mailbox'
      '    { Finally, delete message }'
      'DeleteMessage %message'
      ''
      ':Leave'
      ''
      ''
      '{### Junk Messages with Subject'
      '{ Script will trash the message if the'
      '{ subject line substring is found in the file'
      ''
      '{ Usage: Should be used on Incoming messages'
      ''
      '    { Initialize user settings: }'
      'External $userfile1 "Junk Subjects..." junksubject.txt'
      'set $file $userfile1'
      'set $mailbox trash.mbx'
      ''
      '    { Make sure message is appended to mailbox }'
      'AppendToFile True'
      '    { Fetch the header content }'
      'ReadHeader $header Subject %message'
      '    { Convert header to lowercase }'
      'Lowercase $header'
      '    { Open list of banned subject lines }'
      'OpenBody $m $file'
      'Lowercase $m'
      'TrimLines $m'
      '    { Set the upper boundary for search through lines }'
      'LineCount #count $m'
      'Dec #count'
      '    { Set initial value of the counter }'
      'set #i 0'
      ''
      '    { Start the loop }'
      ':Loop'
      'GetLine $a #i $m'
      'if $a ^ $header then FoundValue'
      'Inc #i'
      'if #i > #Count then Leave'
      'goto Loop'
      ''
      '    { If true, jump here and copy the message }'
      ':FoundValue'
      'SaveMessage %message $mailbox'
      '    { Finally, delete message }'
      'DeleteMessage %message'
      ''
      ':Leave'
      ''
      ''
      ''
      '{### New Message Template'
      '{ This script will start a new message from a saved template'
      '{ You can enter multiple addresses in the fields, as well as'
      '{ use any address book nicknames - they will be resolved'
      '{ once you create a message.'
      '{ Usage: not suitable for automatic use; use only on demand.'
      ''
      '    { Initialize user settings: }'

        'External $userdata1 "Enter the default subject line:" "Sample te' +
        'mplate message"'
      'External $userdata2 "Choose a primary recipient (From):" ""'
      'External $userdata3 "Choose a secondary recipient (Cc):" ""'
      'External $userdata4 "Choose an anonymous recipient (Bcc):" ""'
      'External $userfile1 "Create body template" "template.txt"'
      ''
      'CreateMessage %m'
      'OpenBody $Body $userfile1'
      'SetHeader %m Subject $userdata1'
      'AddTo %m $userdata2'
      'AddCc %m $userdata3'
      'AddBcc %m $userdata4'
      ''
      '    { If template file exists load it }    '
      'FileExists &F $userfile1'
      'if &F then UseBody'
      ''
      '    { Otherwise, use a blank template }'
      'Set $a "MESSAGE BODY TEMPLATE CURRENTLY NOT SET"'
      'AppendBody $a " "'
      'AppendBody $a " "'

        'AppendBody $a "To use this script, please setup a default messag' +
        'e body template:"'
      'AppendBody $a " "'

        'AppendBody $a "    press F4 to open Filters and Scripts window, ' +
        'then click on Setup."'

        'AppendBody $a "    From the drop down box select script \"New Me' +
        'ssage Template\""'

        'AppendBody $a "    and fill in the fields below. Click on the Cr' +
        'eate Body Template"'

        'AppendBody $a "    button to create a template. When done, just ' +
        'click on File, Save."'
      'AssignBody %m $a'
      'goto Edit'
      ''
      ':UseBody'
      'AssignBody %m $Body'
      ''
      ':Edit'
      'EditMessage %m'
      ''
      ''
      '{### Reply with Template'
      '{ This script will reply to a message from a saved template'
      '{ Usage: not suitable for automatic use; use only on demand.'
      ''
      '    { Initialize user settings: }'

        'External $userdata1 "Choose a character to quote message with:" ' +
        '":::"'
      'External $userfile1 "Create body template" "rtemplate.txt"'
      ''
      'CreateMessage %m'
      'ReadHeader $a Subject %message'
      'AddStrings $subject "Re: "'
      'AddStrings $subject $a'
      'SetHeader %m Subject $subject'
      ''
      'OpenBody $Body $userfile1'
      'ReadHeader $From From %message'
      'AddTo %m $From'
      ''
      '    { If template file exists load it }    '
      'FileExists &F $userfile1'
      'if &F then UseBody'
      ''
      '    { Otherwise, use a blank template }'
      'Set $a "MESSAGE BODY TEMPLATE CURRENTLY NOT SET"'
      'AppendBody $a " "'
      'AppendBody $a " "'

        'AppendBody $a "To use this script, please setup a default messag' +
        'e body template:"'
      'AppendBody $a " "'

        'AppendBody $a "To use this script, please setup a default messag' +
        'e body template:"'
      'AppendBody $a " "'

        'AppendBody $a "    press F4 to open Filters and Scripts window, ' +
        'then click on Setup."'

        'AppendBody $a "    From the drop down box select script \"Reply ' +
        'with Template\"."'

        'AppendBody $a "    Click on the Create Body Template button to c' +
        'reate a template."'
      'AppendBody $a "    When done, just click on File, Save."'
      'goto Edit'
      ''
      ':UseBody'
      'set $a $Body'
      ''
      ':Edit'
      'ReadBody $b %message'
      'QuoteBody $b $UserData1'
      'AppendBody $a " "'
      'AppendBody $a $b'
      'AssignBody %m $a'
      'EditMessage %m'
      ''
      ''
      '{### Vacation Message'
      '{ A bit more sophisticated, this script will reply to an'
      '{ incoming mail, with a pre-saved template. For this'
      '{ script to run unattended, make sure that in the program'
      '{ settings (F7) under Miscellaneous, Send Queued Messages'
      '{ When Checking Mail is checked.'
      ''
      '{ Usage: best used on Incoming messages'
      ''
      '    { Initialize user settings: }'
      'External $userfile1 "Create message template" "vacation.txt"'
      ''
      'AppendToFile True'
      'ReadHeader $Email "From:" %message'
      'ReadHeader $Subject "Subject:" %message'
      'CreateMessage %Out'
      'ReadEmail $From'
      'SetHeader %Out "From:" $From'
      'Set $Name $Email'
      'ExtractEmail $Email'
      'SetHeader %Out "To:" $Email'
      'Set $NewSubject "Re: "'
      'AddStrings $NewSubject $Subject'
      'SetHeader %Out "Subject:" $NewSubject'
      ''
      'OpenBody $NewBody $UserFile1'
      'ReadBody $OldBody %message'
      'QuoteBody $OldBody'
      'AppendBody $NewBody " "'
      'AppendBody $NewBody $OldBody'
      'AssignBody %Out $NewBody'
      ''
      'SaveMessage %Out "e:\temp3.txt"'
      'SaveMessage %Out "Out.mbx"'
      ''
      '{ Done }'
      ' ')
  end
  object SMTP: TmsSMTP
    WinsockLoaded = True
    DefaultPort = 25
    Left = 330
    Top = 4
  end
  object TimerWait: TTimer
    Enabled = False
    OnTimer = TimerWaitTimer
    Left = 302
    Top = 4
  end
end