DELPHI实现发送EMAIL的文章.doc

网上有许多在DELPHI下实现发送EMAIL的文章，但都写得太烦琐且不直观。 跟着下面的步骤，你会发现发送EMAIL原来如此简单。 首先，打开DELPHI，程序会自动建立一个工程。 点击 “查看”- “组件列表”，分别输入“TIDSMTP”和“TIDMESSAGE”，把这两个组件添加到窗体，放在你喜欢的地方。 （网上有DELPHI 7.0的汉化补丁，BAIDU一下吧） 然后在窗体上添加两个 BUTTO（按扭），分别命名为“连接服务器”和“发送EMAIL”。 双击“连接服务器”按扭，进入代码编辑拦，在begin语句下输入以下代码： IdSMTP1.Username := metals ; /服务器上的用户名 IdSMTP1.Password := 0236521 ; /服务器上的密码 IdSMTP1.Host := mx.eY ; /服务器SMTP地址 IdSMTP1.Port :=25; /服务器端口 IdSMTP1.Connect; /建立连接 注意：以上是（免费）邮箱的设置，你也可以去申请一个。然后把 IdSMTP1.Username 和 IdSMTP1.Password 属性改成你的用户名和密码就行了，其他属性不用修改。 如果要使用其他的邮箱，可以到该邮箱的网站上查找相关资料。例如新浪的SMTP地址是：。 端口通常设置为 25 。 接下来双击“发送EMAIL”的按扭，在begin语句下输入以下代码： begin IdMessage1.Body.Add( 邮件正文 ); /邮件正文件内容 IdMessage1.From.address := ; /发件人地址 IdMessage1.Recipients.EMailAddresses := ; /收件人地址，这里改为你的EMAIL地址 IdMessage1.Subject:= 标题 ; /邮件标题 IdMessage1.Priority := mphigh; /优先级，mphigh为最高级。 IdSMTP1.Send(IdMessage1); /发送邮件 end; OK，到这里就全部完成了，调试通过后先点击“连接服务器”等几秒（因为这需要时间），然后点击“发送EMAIL”按扭，好了，打开你的邮箱看一下，是不是已经收到EMAIL了呢？很简单吧。控件smtp: TIdSMTP;MgeSend: TIdMessage;代码procedure TForm1.Button1Click(Sender: TObject);begin SMTP.Host:=; smtp.Username:=; smtp.Password:=paswrd; smtp.Port:=25; smtp.Connect(); MgeSend.Recipients.EMailAddresses:=; MgeSend.From.Text :=; MgeSend.Subject:=test; MgeSend.Body.Text:=发邮件测试; SMTP.Authenticate; Smtp.Send(mgeSend);end; Delphi6发送电子邮件,我以前编过，就是用TNMSMTP控件发送成功的。不过很不幸，源程序在最近删了。因为程序在Delphi7里不能通用。网上的资料应该有用，可能除了一点没讲：发送邮件需要用到“身份验证”。在发送邮件时，需要把用户名、密码，变成BASE64编码，再发送过去验证。TNMSMTP控件没有提供身份验证的部分。如何加入身份验证？Use里加入：IdCoder3to4;在NMSMTP的OnConnect事件中添加代码：varstrUserName,strPassword:String;beginstrUserName:=Base64Encode(帐号);/帐号字符串变成Base64编码strPassword:=Base64Encode(密码);/密码字符串变成Base64编码nmsmtp1.Transaction(EHLO);nmsmtp1.Transaction(AUTHLOGIN);/身份验证nmsmtp1.Transaction(strUserName);nmsmtp1.Transaction(strPassword);end;至于其它部分，很容易在网上找到。有兴趣请在网上找到base64编码规则，弄清楚Base64Encode()函数是怎么编码的。如果找不到Base64Encode函数，我把当时自己编码的函数写给你，看看有没有用。functionencodebase64(s:string):string;/上面代码的函数名相应改过来。constTb:String64=(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);vari,a:integer;temp,temp1:string;begintemp:=;temp1:=s;iflength(temp1)mod30thentemp1:=temp1+char(0);fori:=1tolength(temp1)dobegincase(i-1)mod3of0:begina:=ord(temp1i);a:=ashr2;temp:=temp+tba+1;end;1:begina:=ord(temp1i-1)and3;a:=ashl8+ord(si);a:=ashr4;temp:=temp+tba+1;end;2:begina:=ord(temp1i-1)and$F;a:=ashl8+ord(temp1i);a:=ashr6;temp:=temp+tba+1;a:=ord(temp1i);a:=aand$3f;temp:=temp+tba+1;end;end;end;a:=length(s);ifamod3=2thenbegintemp1:=;fori:=1tolength(temp)-1dotemp1:=temp1+tempi;temp:=temp1;end;if(a0)and(amod30)thenifamod3=1thentemp:=temp+=elsetemp:=temp+=;result:=temp;end;作者：jtchang 发表时间：2006-5-9 20:27:00 第3楼呵呵！无意中找到了以前编的程序，这是一个简单得不能再简单的邮件发送程序。刚刚还用exe文件试发成功过。注意：下面程序只适用于DELPHI6。程序基本写出了发邮件的要点，其它的你自己实践吧！用的是Delphi6自带的TNMSMTP控件。有很多人说用这个控件没办法发送邮件，其实可以的。unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Psock,NMsmtp,StdCtrls,IdCoder3to4;typeTForm1=class(TForm)NMSMTP1:TNMSMTP;Label1:TLabel;Edit1:TEdit;Label2:TLabel;Edit2:TEdit;Label3:TLabel;Edit3:TEdit;Label4:TLabel;Edit4:TEdit;Label5:TLabel;Edit5:TEdit;Edit6:TEdit;Label6:TLabel;Memo1:TMemo;Label7:TLabel;Label8:TLabel;Button1:TButton;ListBox1:TListBox;OpenDialog1:TOpenDialog;Button2:TButton;Button3:TButton;procedureButton1Click(Sender:TObject);procedureNMSMTP1Connect(Sender:TObject);procedureButton2Click(Sender:TObject);procedureButton3Click(Sender:TObject);privatePrivatedeclarationspublicPublicdeclarationsend;varForm1:TForm1;implementation$R*.dfmprocedureTForm1.Button1Click(Sender:TObject);发送邮件主要过程beginNMSmtp1.Host:=Edit1.Text;SMTP服务器名，例如：NMSmtp1.UserID:=Edit2.Text;用户名，例如：jtchangNMSmtp1.PostMessage.FromAddress:=Edit4.Text;发件人地址，例如：NMSmtp1.PostMessage.ToAddress.Clear;清除所有收件人地址NMSmtp1.PostMessage.ToAddress.Add(Edit5.Text);加一个收件人地址，例如：,可以加多个收件人地址NMSmtp1.PostMessage.Subject:=Edit6.Text;邮件主题NMSmtp1.PostMessage.Body.Assign(Memo1.Lines);邮件正文，memo1里的文字NMSmtp1.PostMessage.Attachments.AddStrings(ListBox1.Items);邮件的附件。注意：为了防病毒某些邮箱不能发送*.exe、*.com、*.dll等文件。listbox1里字符串保存的是附件的文件名/开始发送NMSmtp1.Connect;连接smtp服务器，当连接时NMSMTP1的OnConnect事件被激活。NMSmtp1.SendMail;发送邮件NMSmtp1.Disconnect;关闭连接application.MessageBox(邮件发送完成！,成功,0);end;procedureTForm1.NMSMTP1Connect(Sender:TObject);发邮件时身份验证varstrUserName,strPassword:String;beginstrUserName:=Base64Encode(edit2.Text);自已的邮箱帐号，例如jtchang，有些服务器可能要带域名，如strPassword:=Base64Encode(edit3.Text);邮箱密码，我可不能告诉你。nmsmtp1.Transaction(AUTHLOGIN);请求服务器身份验证nmsmtp1.Transaction(strUserName);发送经过base64编码的帐号nmsmtp1.Transaction(strPassword);发送经过base64编码的密码en