unit1.dfm

delphi发送邮件的例子,包括源代码,详细说明了发送及接收邮件服务器开发的程序

object Form1: TForm1
  Left = 194
  Top = 103
  Width = 491
  Height = 363
  Caption = #37038#20214#29305#24555#19987#36882#31243#24207#31034#20363
  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 Label1: TLabel
    Left = 7
    Top = 78
    Width = 36
    Height = 12
    Caption = #25910#20214#20154
  end
  object Label4: TLabel
    Left = 215
    Top = 68
    Width = 48
    Height = 12
    Caption = #37038#20214#27491#25991
  end
  object Label5: TLabel
    Left = 7
    Top = 47
    Width = 36
    Height = 12
    Caption = #21457#20214#20154
  end
  object Label6: TLabel
    Left = 214
    Top = 45
    Width = 24
    Height = 12
    Caption = #20027#39064
  end
  object btnSend: TButton
    Left = 379
    Top = 256
    Width = 75
    Height = 25
    Caption = #21457#36865
    TabOrder = 0
    OnClick = btnSendClick
  end
  object mmContent: TMemo
    Left = 216
    Top = 86
    Width = 237
    Height = 161
    TabOrder = 1
  end
  object edtTo: TEdit
    Left = 54
    Top = 74
    Width = 153
    Height = 20
    TabOrder = 2
  end
  object edtFrom: TEdit
    Left = 53
    Top = 42
    Width = 152
    Height = 20
    TabOrder = 3
  end
  object edtSubject: TEdit
    Left = 245
    Top = 42
    Width = 206
    Height = 20
    TabOrder = 4
  end
  object IdDNSResolver: TIdDNSResolver
    Port = 53
    ReceiveTimeout = 4000
    Left = 32
    Top = 304
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 96
    Top = 304
  end
  object IdSMTP: TIdSMTP
    Left = 160
    Top = 307
  end
  object IdMsgSend: TIdMessage
    BccList = <>
    CCList = <>
    Recipients = <>
    ReplyTo = <>
    Left = 240
    Top = 309
  end
end