老问题！

流浪者

请问在使用Net：：Smtp模块发送邮件时，如何验证用户？我使用了它带的验证函数，但不行。

apile

#!/usr/bin/perl
use Net::SMTP;
$smtp = Net::SMTP->;new('10.xxx.xx.xx',  ## mail server ip
            Hello   =>;'10.xx.xx.xx',                  ## my ip address
            Timeout =>; 30,            ## timeout 時間 default 120秒
            Debug   =>; 1,               ## 將debug打開..看整個過程
         );
$smtp->;auth("apile","password";  ## 輸入帳號密碼
$smtp->;mail('apile@xxx.xxx.xxx');   ## 寄件人Email位址
$smtp->;to('apile@xxx.xxx.xxx');      ## 收件人Email位址
$smtp->;data();                                ## 發送信件
$smtp->;datasend("To: apile\n";     ## 第一行（不會顯示在outlook中)
                                                         ## 我也不知道為什麼
$smtp->;datasend("\n";         
$smtp->;datasend("A simple test message\n"; ##本文
$smtp->;dataend();                           ## 本文結束
$smtp->;quit;                                     ## 離開
=========================================
上面是我用perl 5.8在公司內網路測試的，可以發送Email...
要多安裝Authen:SASL module...
測試完成後，把Debug 設定成 0...就可以關掉傳送過程了..

流浪者

十分感谢。没有你的帮助我不能解决这个问题。