论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2010-04-12 18:21 |只看该作者 |倒序浏览

我使用sendmail 发送html格式的邮件，可是收到的邮件格式不对，该如何做才能得到html格式？请各为高手帮帮忙！
源码如下：

#!/usr/bin/perl
use Mail::Sender;
$count=694;
$linkerr="error test\n";
$msg="<html><body><table border=1  bordercolor=#000000><tr><td>总链接数</td><td> $count </td></tr><tr><td>错误链接</td><td>$linkerr</td></tr></table></body></html>";
$maillist='kevin@test.com';
$smtp_server="mail.test.com";
$from="alertautosender@test.com";
$title=" Access Failure!";
&sendmail($maillist,$smtp_server,$from,$title,$msg);

sub sendmail{
my($maillist,$smtp_server,$from,$title,$msg)=@_;
my @listmail=split(/,/,$maillist);
  foreach my $usr(@listmail){
   $sender = new Mail::Sender
   {smtp => $smtp_server,
   from => $from};
#发送普通邮件
   $sender->MailMsg(
{to => $usr,
subject =>$title,
msg => $msg
   });
}
}

可是收到的邮件中没有解析html语言，邮件内容如下：
<html><body><table border=1  bordercolor=#000000<tr><td>总链接数</td><td> 694 </td></tr><tr><td>错误链接</td><td>error test</td></tr></table> <BR><BR </body></html>

文库|博客

兰花仙子

版主

论坛徽章:: 0

2楼 [报告]

发表于 2010-04-12 20:42 |只看该作者

高度封装带来的结果是不知所谓 -- 这就是Mail::Sender这类库的毛病。
用 MIME::Lite 自己构造邮件，了解邮件是怎样组成的。
用 Net::SMTP 发送邮件，了解email是怎样传递的。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

skskevin

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2010-04-13 10:04 |只看该作者

谢谢仙子，我先试试

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

skskevin

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 2010-04-13 11:08 |只看该作者

呵呵，问题搞定了。使用MIME::Lite模块。贴出子函数代码，希望对和我一样还在迷茫的人能有帮助。 .
sub sendmail{
my($maillist,$smtp_server,$from,$title,$msg)=@_;
### Create a new multipart message:
my $mail = MIME::Lite->new(
      From => $from,
      To    => $maillist,
      Subject =>$title,
      Type    => 'text/html',
      Data    => $msg

);
$mail->send;
}