Perl Mail::Sender Excel 的附件发送不了？[已解决]

changejun

很是郁闷阿,不知道什么原因。

代码如下:
my $sender = new Mail::Sender {
                    smtp => 'smtp.163.com',
                     from => 'xxx@163.com',
                     auth => 'LOGIN',
                     authid => 'xxx',
                     authpwd => 'xxx',
                     on_errors => undef,
        } or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";

$sender->Body({
                        encoding => 'gbk',
                        charset =>  'gbk',
        });
$sender->MailFile({
                        to =>'xxx@163.com',
                        Cc =>'xxx@gmail.com',
                        subject => "$subject",
                        msg => "$msg",
                        file =>'/path/xxx.xls'}) or print $Mail::Sender::Error;
        $sender->Close();


发送 csv 和 zip 等文件都没有问题，只是发送*.xls 的的时候，发过去的文件都是空的。


朋友们帮帮忙啦！







结帖了！  

原因找到了, 在用perl 写 Excel  文件的时候，忘记 $workbook->close(); 啦！！

教训啊, 折腾了大半天！

笨！



[ 本帖最后由 changejun 于 2009-6-13 17:35 编辑 ]