调用perl,Mail::Sender模块发送邮件代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】调用perl,Mail::Sender模块发送邮件

作者:Suzm / 发布于2014-11-7/ 413


	#!/usr/bin/perl
	use 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 => 'yourmail@qq.com',
	 to =>'someonemail@qq.com',
	 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.";

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　发送邮件　

同语言下

可能有用的

Suzm贡献的其它代码(1)

.调用perl,Mail::Sender模块发送邮件