Chinaunix

标题: 老问题！ [打印本页]

作者: 流浪者 时间: 2003-01-24 11:55
标题: 老问题！
请问在使用Net：：Smtp模块发送邮件时，如何验证用户？我使用了它带的验证函数，但不行。

作者: apile 时间: 2003-01-29 08:45
标题: 老问题！
#!/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...就可以關掉傳送過程了..

作者: 流浪者 时间: 2003-02-09 13:19
标题: 老问题！
十分感谢。没有你的帮助我不能解决这个问题。

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)