perl Mail::Sender模組發送郵件

標籤：class   send   subject   int   標題   郵件   font   hello   bsp   

 1 #!/usr/bin/perl -w 2 use strict; 3 use Mail::Sender; 4   5 my $count = 1; 6 while(1){ 7 my $sender = Mail::Sender->new({ 8     smtp => ‘smtp.163.com‘, 9         #這裡以163為例10     from => ‘這裡寫你的163郵箱地址:[email protected]‘,11     auth => ‘LOGIN‘,12     authid => ‘這裡寫你的163信箱使用者名:username‘,13     authpwd => ‘這裡寫你的郵箱密碼:password‘}14 ) or die "Cannot send mail:$!\n";15  16 my $messages = ‘hello這裡是要發送的內容‘;17  18     $sender->MailMsg({19         to => ‘要發送到哪個郵箱:[email protected]‘,20         subject => ‘郵箱標題‘,21         msg => $messages}22     );23 $sender->Close();24 print "第$count封發送完畢!\n";25 $count++;26 }

這裡用了一個while(1)測試一直發送
perl預設沒有安裝Mail::Sender模組， 要自行安裝

 

perl Mail::Sender模組發送郵件