幫朋友寫(xiě)的。
　　本程序從一個(gè)文本文件中讀取郵件地址和一些需要的記錄。
　　activeperl 5.8 + winxp下通過(guò)。
　　#!/usr/bin/perl
　　use Net::Smtp;
　　
　　#郵件發(fā)送服務(wù)器地址
　　$smtp_server = 'smtp.126.com';
　　
　　#發(fā)件人地址
　　$from = 'sleetdrop@126.com';
　　
　　#郵件標(biāo)題
　　$title = '測(cè)試郵件一個(gè)，接好，別砸到!';
　　
　　#發(fā)一封歇息多久
　　$delay = 1;
　　
　　#包含收件人列表及可變信息的文本文件
　　#格式為：用戶(hù)名，密碼，詳細(xì)信息
　　#請(qǐng)把它放在當(dāng)前目錄下，并把它命名為list.txt
　　$f_list='list.txt';
　　open(FILE,$f_list) || die "Can not open list file/n";
　　while(<FILE>){
　　chomp;
　　($usr,$passwd,$detail) = split(/,/);
　　

　　
　　#如果您的列表里直接存儲(chǔ)的是email地址，請(qǐng)用如下一句替換上面一句
　　$to = $usr;
　　
　　#根據(jù)列表文件構(gòu)建郵件內(nèi)容。
　　#因?yàn)檫@里的heredoc要求頂格所以不能正常縮進(jìn)
　　$msg=<<HTML;
　　$detail，您好。
　　
　　我們的郵件服務(wù)器地址已經(jīng)變?yōu)閤xxxxxxx.
　　您的用戶(hù)名為$usr密碼為$passwd
　　請(qǐng)盡快登陸修改。
　　由于本次更改給您工作帶來(lái)的不便在此表示歉意。
　　謝謝您的支持。
　　
　　HTML
　　
　　print "I am sending Email No.".($cnt+=1)." to ".$to."....../n";
　　&gingerMail($smtp_server,$from,$to,$title,$msg);
　　print "Email No.".$cnt." has been sent to: ".$to."/n";
　　sleep($delay);
　　}
　　
　　close(FILE);
　　print "/n......All Finished!!!";
　　
　　###########################
　　#
　　#例程gingerMail
　　#參數(shù)列表
　　#$smtp_server發(fā)郵件smtp服務(wù)器地址
　　#$from發(fā)件人地址
　　#$to收件人地址
　　#$title郵件標(biāo)題
　　#$msg郵件內(nèi)容
　　#
　　###########################
　　sub gingerMail{
　　my($smtp_server,$from,$to,$title,$msg) = @_;
　　$smtp = Net::SMTP->new($smtp_server);
　　#如果您的服務(wù)器需要認(rèn)證，請(qǐng)?jiān)谙旅孑斎胗脩?hù)名和密碼。
　　#需要Auth-SASL模塊的支持
　　#windows下可以用ppm安裝，unix下請(qǐng)用CPAN安裝。
　　$smtp->auth('sleetdrop','xxxxxxxxx');
　　$smtp->mail($from);
　　$smtp->to($to);
　　$smtp->data();
　　$smtp->datasend('From: '.$from);
　　$smtp->datasend("/n");
　　$smtp->datasend('To: '.$to);
　　$smtp->datasend("/n");
　　$smtp->datasend('Subject: '.$title);