使用perl的Mail::SendEasy模块来发送邮件,首先需要确定已安装Mail::SendEasy模块
#! /usr/bin/perl -w use strict; print "mail to start............/n"; use Mail::SendEasy; my $mail = new Mail::SendEasy( smtp => 'smtp.qq.com', user => '51cto@qq.com', pass => "51cto", ); my $status = $mail->send( from => '51cto@qq.com', from_Title => 'qq mail', to => 'admin@qq.com', subject => "$ARGV[0]", msg => "$ARGV[1]", ); if (!$status) { print $mail->error; }总结
以上是内存溢出为你收集整理的使用perl的Mail::SendEasy模块来发送邮件全部内容,希望文章能够帮你解决使用perl的Mail::SendEasy模块来发送邮件所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)