论坛 › Perl › perl Mail::Sender发邮件

g87616758 发表于 2018-8-31 10:06:43

perl Mail::Sender发邮件

　　#!/usr/bin/perl -w
　　use strict;
　　use warnings;
　　use Mail::Sender;
　　my $pass='***';
　　my $sender= new Mail::Sender{
　　smtp=> 'smtp.163.com',
　　from=>'***@126.com',
　　auth=>'LOGIN',
　　authid=>'***@126.com',
　　authpwd=> $pass,
　　};
　　$sender->MailFile({
　　to=>'test@126.com',
　　#cc=>'test1@126.com,test2@126.com',
　　subject=>'test',
　　msg=>"Message",
　　file=>'*.txt' ,
　　}) or die "failed";
　　$sender->Close();

查看完整版本: perl Mail::Sender发邮件