首页 > 代码库 > perl Mail::Sender模块发送邮件
perl Mail::Sender模块发送邮件
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邮箱地址:username@163.com‘, 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 => ‘要发送到哪个邮箱:test@qq.com‘, 20 subject => ‘邮箱标题‘, 21 msg => $messages} 22 ); 23 $sender->Close(); 24 print "第$count封发送完毕!\n"; 25 $count++; 26 }
这里用了一个while(1)测试一直发送
perl默认没有安装Mail::Sender模块, 要自行安装
perl Mail::Sender模块发送邮件
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。