开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
Unit1.pas
资源名称：smpt.rar　[点击查看]
上传用户：yunbing78
上传日期：2018-02-16
资源大小：7k
文件大小：2k
源码类别：

Email服务器

开发平台：

Delphi

Unit1.pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
  8.   IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, ExtCtrls;
  10. type
  11.   TForm1 = class(TForm)
  12.     SMTP1: TIdSMTP;
  13.     IdMsg: TIdMessage;
  14.     Button1: TButton;
  15.     Edit1: TEdit;
  16.     Edit2: TEdit;
  17.     Label3: TLabel;
  18.     Memo1: TMemo;
  19.     Edit3: TEdit;
  20.     Button2: TButton;
  21.     Label6: TLabel;
  22.     Edit4: TEdit;
  23.     Label7: TLabel;
  24.     Edit5: TEdit;
  25.     Label8: TLabel;
  26.     Edit6: TEdit;
  27.     OpenDialog1: TOpenDialog;
  28.     Edit7: TEdit;
  29.     Label1: TLabel;
  30.     Label2: TLabel;
  31.     Label4: TLabel;
  32.     Label5: TLabel;
  33.     Bevel1: TBevel;
  34.     Button3: TButton;
  35.     procedure Button1Click(Sender: TObject);
  36.     procedure Button2Click(Sender: TObject);
  37.     procedure Button3Click(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  44. var
  45.   Form1: TForm1;
  47. implementation
  49. {$R *.dfm}
  51. procedure TForm1.Button1Click(Sender: TObject);
  52. begin
  54. SMTP1.AuthenticationType := atLogin;
  56. SMTP1.username:= edit2.text;
  57. SMTP1.Password := edit1.text;
  59. SMTP1.Host := edit3.text;
  60. SMTP1.Port :=25;
  61.   try
  62.    SMTP1.Connect;
  63.    except
  64.     Showmessage('连接SMTP服务器失败!');
  65.     Exit;
  66.     end;
  67.  try
  68.    with IdMsg do
  69.     begin
  70.      body.Clear;
  71.      Body.Assign(memo1.lines);
  72.      From.address := edit5.text;
  73.      Recipients.EMailAddresses :=edit6.text;
  74.      Subject:=edit4.text
  75.    end;
  76.   SMTP1.Send(IdMsg);
  77.   finally
  78.   showmessage('您的信件已成功发送');
  79.   SMTP1.Disconnect;
  80.   end;
  82. end;
  84. procedure TForm1.Button2Click(Sender: TObject);
  85. begin
  86. if opendialog1.Execute then
  87. memo1.Lines.Add(opendialog1.filename);
  88. end;
  90. procedure TForm1.Button3Click(Sender: TObject);
  91. begin
  92.    close;
  93. end;
  95. end.