欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

用perl發(fā)一大堆郵件的一種方法

  發(fā)布時(shí)間:2009-08-02 00:32:55   作者:佚名   我要評(píng)論
  幫朋友寫的。   本程序從一個(gè)文本文件中讀取郵件地址和一些需要的記錄。   activeperl 5.8 + winxp下通過。   #!/usr/bin/perl   use Net::Smtp;

  幫朋友寫的。
  本程序從一個(gè)文本文件中讀取郵件地址和一些需要的記錄。
  activeperl 5.8 + winxp下通過。
  #!/usr/bin/perl
  use Net::Smtp;
  
  #郵件發(fā)送服務(wù)器地址
  $smtp_server = 'smtp.126.com';
  
  #發(fā)件人地址
  $from = 'sleetdrop@126.com';
  
  #郵件標(biāo)題
  $title = '測試郵件一個(gè),接好,別砸到!';
  
  #發(fā)一封歇息多久
  $delay = 1;
  
  #包含收件人列表及可變信息的文本文件
  #格式為:用戶名,密碼,詳細(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要求頂格所以不能正??s進(jìn)
  $msg=<<HTML;
  $detail,您好。
  
  我們的郵件服務(wù)器地址已經(jīng)變?yōu)閤xxxxxxx.
  您的用戶名為$usr密碼為$passwd
  請(qǐng)盡快登陸修改。
  由于本次更改給您工作帶來的不便在此表示歉意。
  謝謝您的支持。
  
  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)谙旅孑斎胗脩裘兔艽a。
  #需要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);
  $smtp->datasend("\n\n");
  $smtp->datasend("$msg\n");
  $smtp->dataend();
  $smtp->quit;
  }
  
  list.txt范例文件
  ginger@syau.edu.cn,1111,臭老九
  sleetdrop@hotmail.com,2222,姜源
  sleetdrop@126.com,3333,醬小魚
  sleetdrop@sohu.com,4444,小姜
  
  運(yùn)行結(jié)果


  用outlook成功收到

相關(guān)文章

最新評(píng)論