DELPHI实现发送EMAIL的文章.docVIP

网上有许多在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 ? := metals@ ; ? ? ? ? //发件人地址 IdMessage1.Recipients.EMailAddresses ? := metals@ ; ? ? ? ? //收件人地址，这里改为你的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:= zhm001x@163.com;? smtp.Password:=paswrd;? smtp.Port:=25;? smtp.Connect();? MgeSend.Recipients.EMailAddresses:= zhm001x@;? MgeSend.From.Text := zhm001x@163.com;? MgeSend.Subject:=test;? MgeSend.Body.Text:=发邮件测试;? SMTP.Authenticate;? Smtp.Send(mgeSend);end; Delphi?6?发送电子邮件,我以前编过，就是用TNMSMTP控件发送成功的。不过很不幸，源程序在最近删了。因为程序在Delphi7里不能通用。网上的资料应该有用，可能除了一点没讲：发送邮件需要用到“身份验证”。在发送邮件时，需要把用户名、密码，变成BASE64编码，再发送过去验证。TNMSMTP控件没有提供身份验证的部分。如何加入身份验证？Use?里加入：IdCoder3to4;在NMSMTP的OnConnect事件中添加代码：var?strUserName,?strPassword:?String;begin??strUserName?:=?Base64Encode(帐号);?//