Блог

Вот фрагмент из моего скрипта Perl:

 my %params = (
  sub_name            => $sub_name, 
  asm_name            => $asm_name,
  zsm                 => $zsm,
  store               => $store,
  pin                 => $pin,
  tier                => $tier,
  avg_weekly_all      => $avg_weekly_all,
  avg_weekly_br       => $avg_weekly_brakes,
  expected_sales      => $expected_sales,
  numOfBays           => $numOfBays,
  numOfTechs          => $numOfTechs,
  estimatedJobs       => $estimatedBrakeJobs,
  brand               => $brand,
  qty                 => $qty
);

my %options = (INCLUDE_PATH => '.');

my $msg = MIME::Lite::TT::HTML->new(
  From        => 'xxx.xxxx@somecompany.com',
  To          => 'me@somecompany.com',
  Subject     => "Request (MSG ID: $id)",
  Template    => { html => 'edge14.html.tt' },
  TmplOptions => %options,
  TmplParams  => %params
);

$msg->attr("content-type" => "multipart/mixed");

$msg->attach(
  Type => 'text/csv',
  Path => 'out.txt',
  Filename => "brake_lift_$id" . ".csv",
  Disposition => 'attachment'
);

$msg->send or die "Unable to send message: $!";
  

Он отлично отправляет электронное письмо (с вложением), но не отображает содержимое html в теле письма. Он отправляет в виде обычного текста и прикрепляет html в формате «ATT00001..htm «, да, это ДВЕ точки перед «htm»…

Что я делаю не так??

Ответил на мой собственный вопрос! Заметил, что ВСЕ остальные атрибуты хэша были пустыми словами, поэтому я убрал кавычки из «content-type», и это работает как шарм!