使用TNMSMTP控件在需认证服务器上发送邮件

前言：

　　现在很多STMP服务器在发送邮件时均需重新认证一遍，而Delphi的TNMSMTP控件对它没有很“可视化”的支持，使很多人在开发过程中大打问号。

　　由于前段时间在做《CSDN查询助手》的时候，使用的也是需认证的服务器（163.com）。从其它地方摘取了部分代码得以解决，现在此发布与大家共享。

实现：

1、在NMSMTP的OnConnect事件中添加代码：

var  strUserName, strPassword: String;
begin
  strUserName := EncodeString('CoolSlob');//CoolSlob是服务器的帐号
  strPassword := EncodeString('Password');//Password是密码
  {进行认证，输入编码后的用户名、密码}
  nmsmtp1.Transaction('EHLO') ;
  nmsmtp1.Transaction('AUTH LOGIN');
  nmsmtp1.Transaction(strUserName);
  nmsmtp1.Transaction(strPassword);
  StatusBar1.SimpleText := '连接成功';
end;

2、EncodeString函数实现过程：

{对参数Decoded字符串进行Base64编码，返回编码后的字符串}
function EncodeString(Decoded:string):String;
var
    mmTemp,mmDecoded:TMemoryStream;
    str