Question

我有以下代码邮寄

#!perl
use MIME::Lite;
open (LOG_FILE, '>Mail_Log.txt');
print LOG_FILE "  creating mail\n";
    $msg = MIME::Lite->new(
    From =>'me@mine.com',
    To =>'me@mine.com',
    Subject =>'Congrats',
    Data =>"some messgae."
);
print LOG_FILE "  attaching to mail\n";
$msg->attach
(
    Type=>'TEXT',
Path=>'Log.txt',
Filename=>'log File.txt',
    Disposition => 'attachment'
);
print LOG_FILE "  sending the mail\n";
$msg->send( "smtp", "mailout.server.com" );
print "message sent successfully";
print LOG_FILE "  mail sent\n";

上面的代码在我的本地工作正常。 :) 我能够发送和接收邮件。

我使用PerlPackager（pp）转换了这个Perl（.pl）文件可执行文件（.exe），并将其传送到我应该实际执行该功能的Windows服务器。但是执行在

之后停止了

print LOG_FILE "  creating mail\n";

因为我可以看到写在Mail_Log.txt上的日志。

帮我解决这个问题。

提前致谢。：）

Answer 1

您没有说您有任何错误消息，但此主题可能会有所帮助：Missing MIME\types.db from pp-generated code

为什么MIME :: Lite-＆gt; new（）在我的服务器中不起作用？

1 个答案: