使用 MIME::Lite:TT 发送列表

Posted 2023-03-15

【中文标题】使用 MIME::Lite:TT 发送列表

【英文标题】：Sending Lists Using MIME::Lite:TT

【发布时间】：2011-08-09 03:57:50

【问题描述】：

我正在尝试通过电子邮件从 Postgres 查询中发送 IP 列表。

我找到了 MIME::Lite::TT，现在已经安装并运行了。我想在换行分隔列表中的每封电子邮件中传递 20-30 个 IP。我可以通过为我需要发送的每封电子邮件生成一个新的 .txt 模板来做到这一点，但这似乎效率低下。我在 cpan 上找到了 Template，我认为 @list 部分是我需要的，但我不知道如何实现它。

传递 $paramsips = "1.2.3.4\n2.3.4.5\n3.4.5.6\n" 也不起作用。

感谢您的意见。

此代码成功发送单个 IP：

#!/usr/bin/perl -w
use MIME::Lite::TT;

# SendTo email id
my $email = '[e-mail]';

my %params;
$paramsips = "1.2.3.4";

# create a new MIME Lite based email
my $msg = MIME::Lite::TT->new
(
Subject => "html email test",
From    => '[e-mail]',
To      => $email,
Type    => 'text/html',
Template => 'test.txt',
TmplParams => \%params 
);

$msg->send();

【参考方案1】：

啊。是的。

在不知道您的模板是什么样子的情况下，很难提出具体的建议。但是，如果您将其设置为：

$paramsips = [ qw 1.2.3.4  2.3.4.5  3.4.5.6  ];

你的模板有一个看起来像这样的区域：

[% FOREACH address IN ips %]
[% address %]
[% END %]

我想你的问题会解决的。我将数组拆分为 20-30 个元素列表作为练习。 :)

【讨论】：

您的回答正是我所需要的。谢谢！