unitnewmail.dfm

用c++ builder编写的发送EMAIL程序的源码,此程序是利用C++ Builder自带控件NMPOP3、NMSMTP开发的

object FormNewMail: TFormNewMail
  Left = 326
  Top = 188
  Width = 499
  Height = 335
  Caption = #21457#26032#37038#20214
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 491
    Height = 113
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 48
      Top = 16
      Width = 48
      Height = 12
      Caption = #25910#20449#20154#65306
    end
    object Label2: TLabel
      Left = 60
      Top = 40
      Width = 36
      Height = 12
      Caption = #25220#36865#65306
    end
    object Label3: TLabel
      Left = 60
      Top = 64
      Width = 36
      Height = 12
      Caption = #20027#39064#65306
    end
    object Label4: TLabel
      Left = 59
      Top = 88
      Width = 36
      Height = 12
      Caption = #38468#20214#65306
    end
    object EditToAddress: TEdit
      Left = 102
      Top = 8
      Width = 283
      Height = 20
      TabOrder = 0
    end
    object EditSubject: TEdit
      Left = 102
      Top = 56
      Width = 283
      Height = 20
      TabOrder = 1
    end
    object Button1: TButton
      Left = 408
      Top = 76
      Width = 75
      Height = 25
      Caption = #38468#20214
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 408
      Top = 48
      Width = 75
      Height = 25
      Caption = #21457#36865
      TabOrder = 3
      OnClick = Button2Click
    end
    object ComboBoxAttach: TComboBox
      Left = 102
      Top = 80
      Width = 284
      Height = 20
      ItemHeight = 12
      TabOrder = 4
    end
    object EditCarbonCopy: TEdit
      Left = 102
      Top = 32
      Width = 283
      Height = 20
      TabOrder = 5
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 289
    Width = 491
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object MemoNewMail: TMemo
    Left = 0
    Top = 113
    Width = 491
    Height = 176
    Align = alClient
    Lines.Strings = (
      'MemoNewMail')
    TabOrder = 2
  end
  object NMSMTP1: TNMSMTP
    Port = 25
    ReportLevel = 0
    OnDisconnect = NMSMTP1Disconnect
    OnConnect = NMSMTP1Connect
    OnInvalidHost = NMSMTP1InvalidHost
    EncodeType = uuMime
    ClearParams = True
    SubType = mtPlain
    Charset = 'us-ascii'
    OnSendStart = NMSMTP1SendStart
    OnSuccess = NMSMTP1Success
    OnFailure = NMSMTP1Failure
    OnAttachmentNotFound = NMSMTP1AttachmentNotFound
    Left = 208
    Top = 168
  end
  object OpenDialog1: TOpenDialog
    Left = 240
    Top = 168
  end
end