请求解决sakemail的SMTP认证问题(100分)

各位大哥：
在本论坛看到有以下代码，据说可以改进sakemail的smtp认证问题，可是下面的这段
代码怎么去使用啊？该放在那儿，怎么调用？
小弟拜托了！

function TSakSMTP.Authenticate: boolean;

function AuthLogin: Boolean;
var
Base64: TBase64;
stemp: string;
begin
FSendTextToSocket('auth LOGIN' + crlf);
FReceiveTextFromSocket;
if FReplyCode <> '334' then
begin
Result := false;
exit;
end;

Base64 := TBase64.Create;

Base64.EncodeData(UserID, stemp);
FSendTextToSocket(stemp + crlf);
FReceiveTextFromSocket;
if (FReplyCode <> '235') and (FReplyCode <> '334') then
begin
Result := false;
Base64.Free;
exit;
end;
stemp:='';
Base64.EncodeData(Password, stemp);
FSendTextToSocket(stemp + crlf);
FReceiveTextFromSocket;
if FReplyCode <> '235' then
begin
Result := false;
Base64.Free;
exit;
end;
Base64.Free;
Result := True;
end;

begin
Result := False;
case FAUthenticationType of
atLogin: Result := AuthLogin;
end;
FDidAuthenticate := True;
end;

http://www.playicq.com/dispdoc.php?t=19&id=1588 这是我改的
http://www.playicq.com/dispdoc.php?t=19&id=1654 这是新版的，已支持认证和HTML邮件

谢大哥！
在原码空间用sakemail搜索不完全啊。。。在sakemail网站也没找到最新版本啊，多谢！
那几个DOS批处理文件有用吗？

另外请教：
如果sever需要SMTP认证，在sakemail的SMTP例子中需要做怎么样的修改？
急啊，大哥！
多谢！

你在源码空间下的不行吗？
就在它的例子里有认证这部分呀，它是在TsakSmtp控件里加入了两个属性
username和password，你只要在程序里设置了就可以了

我试了试，如果需要认证的话，
设置好username和password属性，
还要在saksmtp1.connect后加上一句
saksmtp1.login就可以了，

感谢！

如果server不需要认证，按以上的语句也不会出错。

那几个DOS批处理文件有用吗？

接受答案了.