perl发送邮件的另一种方法

今天在suse9上使用我之前写的那个邮件发送脚本，不知道为什么就是连接不上smtp服务器，让我很是郁闷，其他机器都是可以的，这台机器各方面也很正常啊，一直都没找到原因。然后突然想到linux不是有个发送邮件的命令吗，man了一下sendmail，没想到突然开到其中有一段perl写的代码，里面讲述了perl中的一些方法，来调用sendmail实现发送邮件。然后试了一下，果然可以，而且比我之前那个脚本有些优点。就是其中可以写上真实的邮件地址，这样smtp服务器可以解析你的邮件地址，就想现实中那样的发送邮件了，可以显示发送者的信息。

#! /usr/bin/perl -w use Mail::Mailer; my $from_address = "270115861/@163.com"; my $to_address = "270115861/@163.com"; my $subject = "test"; my $body = "hello world"; my $mailer = Mail::Mailer->new(); $mailer->open({ From => $from_address, To => $to_address, Subject => $subject, }) or die "Can't open: $!/n"; print $mailer $body; $mailer->close();

但目前这个脚本只能在linux底下使用，可能是windows对sendmail没有支持吧。但这种方式在linux底下运行的很顺畅。

大家不妨试试。