home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 192
- Top = 109
- Width = 586
- Height = 419
- Caption = 'SMTP Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- OnCloseQuery = FormCloseQuery
- PixelsPerInch = 120
- TextHeight = 16
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 578
- Height = 374
- ActivePage = TabSheet2
- Align = alClient
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'Connection'
- object Label1: TLabel
- Left = 119
- Top = 26
- Width = 34
- Height = 16
- Caption = 'Host: '
- end
- object Label2: TLabel
- Left = 123
- Top = 59
- Width = 30
- Height = 16
- Caption = 'Port: '
- end
- object Label4: TLabel
- Left = 102
- Top = 94
- Width = 51
- Height = 16
- Caption = 'User ID: '
- end
- object Edit1: TEdit
- Left = 158
- Top = 21
- Width = 148
- Height = 24
- TabOrder = 0
- end
- object Edit2: TEdit
- Left = 158
- Top = 54
- Width = 44
- Height = 24
- TabOrder = 1
- Text = '25'
- end
- object Button1: TButton
- Left = 207
- Top = 126
- Width = 92
- Height = 30
- Caption = 'Connect'
- TabOrder = 2
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 207
- Top = 156
- Width = 92
- Height = 31
- Caption = 'Disconnect'
- TabOrder = 3
- OnClick = Button2Click
- end
- object Edit4: TEdit
- Left = 158
- Top = 89
- Width = 148
- Height = 24
- TabOrder = 4
- end
- object GroupBox1: TGroupBox
- Left = 0
- Top = 242
- Width = 570
- Height = 92
- Align = alBottom
- Caption = 'Local Information'
- TabOrder = 5
- object Label5: TLabel
- Left = 177
- Top = 20
- Width = 43
- Height = 16
- Caption = 'Name: '
- end
- object Label6: TLabel
- Left = 127
- Top = 49
- Width = 98
- Height = 16
- Caption = 'E-Mail Address: '
- end
- object Edit5: TEdit
- Left = 223
- Top = 15
- Width = 149
- Height = 24
- TabOrder = 0
- end
- object Edit6: TEdit
- Left = 223
- Top = 44
- Width = 149
- Height = 24
- TabOrder = 1
- end
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Sending E-Mail'
- object Memo1: TMemo
- Left = 0
- Top = 166
- Width = 570
- Height = 177
- Align = alClient
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 570
- Height = 100
- Align = alTop
- TabOrder = 1
- object Label7: TLabel
- Left = 17
- Top = 9
- Width = 23
- Height = 16
- Caption = 'To: '
- end
- object Label8: TLabel
- Left = 16
- Top = 38
- Width = 24
- Height = 16
- Caption = 'CC: '
- end
- object Label9: TLabel
- Left = 7
- Top = 69
- Width = 33
- Height = 16
- Caption = 'BCC: '
- end
- object Label10: TLabel
- Left = 209
- Top = 4
- Width = 73
- Height = 16
- Caption = 'Attachments'
- end
- object Edit7: TEdit
- Left = 43
- Top = 4
- Width = 149
- Height = 24
- TabOrder = 0
- end
- object Edit8: TEdit
- Left = 43
- Top = 33
- Width = 149
- Height = 24
- TabOrder = 1
- end
- object Edit9: TEdit
- Left = 43
- Top = 64
- Width = 149
- Height = 24
- TabOrder = 2
- end
- object ListBox1: TListBox
- Left = 207
- Top = 20
- Width = 149
- Height = 70
- ItemHeight = 16
- TabOrder = 3
- end
- object Button4: TButton
- Left = 364
- Top = 20
- Width = 93
- Height = 30
- Caption = 'Add'
- TabOrder = 4
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 364
- Top = 49
- Width = 93
- Height = 31
- Caption = 'Remove'
- TabOrder = 5
- OnClick = Button5Click
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 100
- Width = 570
- Height = 66
- Align = alTop
- Caption = 'Panel2'
- TabOrder = 2
- object Label11: TLabel
- Left = 143
- Top = 34
- Width = 51
- Height = 16
- Caption = 'Subject: '
- end
- object Button6: TButton
- Left = 23
- Top = 21
- Width = 88
- Height = 29
- Caption = 'Send'
- TabOrder = 0
- OnClick = Button6Click
- end
- object Edit10: TEdit
- Left = 217
- Top = 25
- Width = 267
- Height = 24
- TabOrder = 1
- end
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Verify User'
- object Label3: TLabel
- Left = 62
- Top = 82
- Width = 123
- Height = 16
- Caption = 'UserName to Verify: '
- end
- object Edit3: TEdit
- Left = 183
- Top = 79
- Width = 149
- Height = 24
- TabOrder = 0
- end
- object Button3: TButton
- Left = 162
- Top = 114
- Width = 93
- Height = 31
- Caption = 'Verify'
- TabOrder = 1
- OnClick = Button3Click
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'Expand Mailing List'
- object Memo2: TMemo
- Left = 0
- Top = 139
- Width = 570
- Height = 195
- Align = alClient
- TabOrder = 0
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 570
- Height = 139
- Align = alTop
- TabOrder = 1
- object Label14: TLabel
- Left = 4
- Top = 113
- Width = 126
- Height = 16
- Caption = 'Mailing List Members'
- end
- object Label12: TLabel
- Left = 62
- Top = 14
- Width = 89
- Height = 16
- Caption = 'List to Expand: '
- end
- object Button7: TButton
- Left = 167
- Top = 49
- Width = 93
- Height = 31
- Caption = 'Expand List'
- TabOrder = 0
- OnClick = Button7Click
- end
- object Edit11: TEdit
- Left = 154
- Top = 10
- Width = 149
- Height = 24
- TabOrder = 1
- end
- end
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 374
- Width = 578
- Height = 18
- Panels = <>
- SimplePanel = True
- end
- object NMSMTP1: TNMSMTP
- Port = 25
- ReportLevel = 0
- OnDisconnect = NMSMTP1Disconnect
- OnConnect = NMSMTP1Connect
- OnInvalidHost = NMSMTP1InvalidHost
- OnHostResolved = NMSMTP1HostResolved
- OnStatus = NMSMTP1Status
- OnConnectionFailed = NMSMTP1ConnectionFailed
- OnPacketSent = NMSMTP1PacketSent
- OnConnectionRequired = NMSMTP1ConnectionRequired
- PostMessage.LocalProgram = 'NetMasters SMTP Demo'
- EncodeType = uuMime
- ClearParams = True
- SubType = mtPlain
- OnRecipientNotFound = NMSMTP1RecipientNotFound
- OnHeaderIncomplete = NMSMTP1HeaderIncomplete
- OnSendStart = NMSMTP1SendStart
- OnSuccess = NMSMTP1Success
- OnFailure = NMSMTP1Failure
- OnEncodeStart = NMSMTP1EncodeStart
- OnEncodeEnd = NMSMTP1EncodeEnd
- OnMailListReturn = NMSMTP1MailListReturn
- Left = 388
- Top = 32
- end
- object OpenDialog1: TOpenDialog
- Left = 388
- Top = 64
- end
- end
-