NET::SMTP

use strict;

use warnings;

use Net::SMTP;

use Authen::SASL;

use MIME::Base64;

use Encode;

my $mailhost = "主机名"; # the smtp host

my $mailfrom = '你的email地址'; # your email address

my $hello = 'localhost';

my $sendName = '这个不知道有啥用'; #the sender name

my $sendPassword ='密码'; #the sender password

my $subject = "邮件标题"; #mail subject

#$subject = Encode::encode('utf8', $subject); #perl对文字的处理默认使用utf-8所以这里不再用utf-8编码

my $smtp; # the connet of mail server

sub new{

my $type = shift;

bless {}, $type;

}

sub sentMail{

$smtp = Net::SMTP->new($mailhost, Hello => $hello, Timeout => 120, Debug => 0);

# anth login, type your user name and password here

$smtp->auth($sendName,$sendPassword);

my($this,$hashCont)=(@_);

my $body = getcontent($hashCont);

my $mailto = $hashCont->{mailto};

# Send the From and Recipient for the mail servers that require it

$smtp->mail($mailfrom);

$smtp->to($mailto);

# Start the mail

$smtp->data();

# Send the header

$smtp->datasend("From: $mailfrom\n");

$smtp->datasend("To: $mailto\n");

$smtp->datasend("Content-Type:text/plain;charset=UTF-8\n"); #这里设置邮件内容的编码,即用户的客户端解码方式

$smtp->datasend("Subject:=?UTF-8?B?".encode_base64($subject, '')."?=\n\n"); #encode_base64是MIME::Base64模块中的函数，$title为UTF-8编码过的.用这个函数保证标题不乱码

$smtp->datasend($body."\n\n"); #$body为UTF-8 编码过的,perl默认已经编成utf8了,这里不用再编一次

# $smtp->datasend("Subject:=?utf-8?B?".$subject."?=\n");

# $smtp->datasend("Subject: $subject\n");

# $smtp->datasend("\n");

# $smtp->datasend($body."\n\n");

# $smtp->datasend(Encode::decode( "utf8", $body)."\n\n");

$smtp->dataend();

$smtp->quit;

}

sub smtpQuit{

$smtp->quit;

}