如何使用Email :: Mime与sendmail

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 => '[email protected]',
        From => '[email protected]',
        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

print MAIL $email;

应该

print MAIL $email->as_string;

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不同）或属性哈希内容。