Question

我正在尝试使用脚本发送HTML电子邮件。我将不得不使用本机unix东西和Email::Mime，因为这些是我发现卡在安装盒中的唯一安装物。我正在创建Email::Mime消息并将其发送到sendmail。

但是我一直收到错误消息：在标头中找不到收件人地址 我已经看到其他使用sendmail的RUBY脚本，因此适用于此框。

有人可以帮助我解决以下片段中的错误吗？

sub send_mail(){

use MIME::QuotedPrint;
use HTML::Entities;
use IO::All;
use Email::MIME;

# multipart message
my @parts = (
    Email::MIME->create(
        attributes => {
            content_type => "text/html",
            disposition  => "attachment",
            encoding     => "quoted-printable",
            charset      => "US-ASCII",
        },
        body_str => "Hello there!",
    ),
);

my $email = Email::MIME->create(
    header_str => [
        To => 'abc@xxx.com',
        From => 'abc@xxx.com',
        Subject => "Test Email",
    ],
    parts      => [@parts],
);

# die $email->as_string;
# die YAML::XS::Dump(\%mail);

open(MAIL, "|/usr/sbin/sendmail -t");

print MAIL $email;

close (MAIL);

}

谢谢。

Answer 1

besto@host:~/tmp$ sudo /etc/init.d/webmin restart
Stopping Webmin server in /usr/share/webmin
Starting Webmin server in /usr/share/webmin
Cron 15430088014649 missing any time spec
besto@host:~/tmp$

应该是

print MAIL $email;

Answer 2

首先，如果您的电子邮件服务器需要身份验证（当然大多数情况下需要这样做），则需要指定SMTP会话：

$transport = EMail::Sender::Transport::SMTP::Persistent->new({
  # host, port, ssl, etc
})

此外，我认为您实际上不需要将内容创建为自己的MIME内容。我在自己的工作中确实使用了类似的方法：

$email = Email::MIME->Create(
  header_str => [ ... ],
  body_str => $message,
  attributes => {
    charset => 'UTF-8',
    encoding => 'base64',
    content_type => 'text/html',
  }
)

通过sendmail($email, { transport => $transport })发送邮件后，您需要通过$transport->disconnect关闭会话。

对于您的应用程序，您可能需要调整一些内容，例如实际的发送协议（如果与SMTP不同）或属性哈希内容。

如何在sendmail中使用Email :: Mime

2 个答案: