perl mail sender 發送郵件

標籤：ar   os   sp   on   log   bs   ef   new   as   

#!/usr/bin/perluse Mail::Sender;#new一個sender,定義編碼格式防止亂碼 my $sender = new Mail::Sender{     ctype => ‘text/plain; charset=utf-8‘,     encoding => ‘utf-8‘,     }; #die "Error in mailing : $Mail::Sender::Error\n" unless ref $sender;if ($sender->MailFile({   smtp => ‘127.0.0.1‘,#hostname or ip    from => ‘[email protected]‘,   to =>‘[email protected]‘,   subject => ‘this is a test‘,   msg => "Hi all.\nHow are you? 這是測試資訊！ skip it! ",   auth => ‘LOGIN‘,#驗證方式   authid => ‘user‘,   authpwd => ‘pwd‘,   file=>‘perl_mail.pl‘,#添加附件#  charset=>‘gb2312‘ }) < 0) {  die "$Mail::Sender::Error\n"; }$sender->Close(); print "Mail sent OK.";

perl mail sender 發送郵件