电子邮件脚本无法在IIS上运行

Question

我有以下测试脚本可以发送电子邮件：

use strict;
use Net::SMTP;

print "Content-Type: text/plain\n\n";
print "Sending email...\n";

my $smtp = Net::SMTP->new('10.0.0.1', Port => 25, Timeout => 10, Debug => 1);
$smtp->mail("user1\@domain.local");
$smtp->to("user2\@domain.local");
$smtp->data();
$smtp->datasend("From: user1\@domain.local\n");
$smtp->datasend("To: user2\@domain.local\n");
$smtp->datasend("Subject: Test\n\n");
$smtp->datasend("Testing 1 2 3\n");
$smtp->datasend();
$smtp->quit;

当我从命令行运行它时，它工作正常，我立即收到了电子邮件。 但是，当我将其放入C:\\inetpub\\wwwroot并从Web浏览器运行它时，我得到了Sending email...文本，但随后什么也没有。 没有发送电子邮件，没有错误消息显示。 我查看了邮件服务器日志，甚至没有建立连接。 我不确定为什么它可以从cmd而不是从IIS运行。 通过IIS进行脚本操作是否需要一些额外的配置？

我也尝试过sendmail()并得到类似的结果。

Answer 1

首先，将以下标头添加到文件中

use strict 'vars';
use warnings;
use diagnostics;
use feature qw/say/;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

... your code...

# Print Warnings
warningsToBrowser(1);

如果它失败或对某些东西发出警告，那将为您提供更多信息。

其次，您如何安装Net :: SMTP？ 确保它及其所有依存关系都具有IIS工作进程的权限。