DELPHI SEND MAIL

黑客动画吧 http://www.hack58.com 用DELPHI简单编写邮件发送 打开DELPHI 新建一个application,下面是一个页面设计，这里我就不演示了，我已经有保存好的页面 了，一共是7个Edit和8个Label1和一个按钮，两个组件IdSMTP1和IdMessage1，下面我就直接写代码了，看我操作，双击发送按钮，进入代码编辑。我测试一下 可不可以发送，，，现在邮箱没有新邮件，发送成功，看看有没有收到新邮件。收到了。 教程结束，下面是全部代码。 全部代码 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; Label6: TLabel; Edit6: TEdit; Label7: TLabel; Edit7: TEdit; Button1: TButton; Memo1: TMemo; StatusBar1: TStatusBar; Label8: TLabel; IdSMTP1: TIdSMTP; IdMessage1: TIdMessage; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin try IdSMTP1.AuthenticationType:=atLogin; //登陆类型 IdSMTP1.Username:=edit1.Text;//登陆帐号 IdSMTP1.Password:=Edit2.Text;//登陆密码。 IdSMTP1.Host:=edit3.Text; //SMTP地址。 IdSMTP1.Port:=strtoint(edit4.Text);//端口号必须转换为整形。 IdSMTP1.Connect; except showmessage('连接失败,请重试!'); exit; end; IdMessage1.Body.Clear;//清楚上次文本内容. IdMessage1.Subject:=edit5.Text;//发送标题. IdMessage1.Body.Assign(Memo1.Lines);//发送内容 IdMessage1.From.Address:=edit6.Text;// 发送者地址. IdMessage1.Recipients.EMailAddresses:=edit7.Text;// 收件人地址 try IdSMTP1.Send(idMessage1); showmessage('发送成功') ; except showmessage('发送失败,请重试!'); //代码就到这了.运行一下. end; end; end. 不明白的地方加我QQ:39366036 OR 252577315