如何使用perl和sendmail从URL发送pdf [Mail :: Sendmail]

编程问答 2022-08-12

问题描述

我有一个需要更改的旧版应用程序。它是用perl编写的，并使用send :: mail向用户发送邮件。以前，我们在电子邮件正文中发送链接，但现在，他们需要PDF附件。 PDF是使用php在另一台服务器上生成的。

工作流程应该是

  1. 创建电子邮件正文
  2. 通过URL从另一台服务器获取pdf
  3. 将pdf作为附件添加到电子邮件中
  4. 发送。

我认为我可以使用

use LWP::Simple;
unless (defined ($content = get $URL)) {
    die "could not get $URL\n";
}

以获取URL的内容，但我不知道如何使用该var作为sendmail中的附件。当前的sendmail代码为：

my %maildata = (To  => $to,From    => 'OurSite - Billing <[email protected]>',Organization => 'OurSite,LLC      http://www.OurSite.com/',Bcc => '[email protected]',Subject => $subject{$message} || 'ourSite invoice',Message => $body
           );
print STDERR "notify1 now calling sendmail\n";
sendmail(%maildata) || print STDERR $Mail::Sendmail::error;

我遇到的另一个问题是，我不知道如何确定我拥有的sendmail版本（旧的freebsd系统）是否能够发送附件？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

perlsendmail