1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| my $bulk;
eval {
$bulk = Mail::Bulkmail::Dynamic->new
(
"LIST" => $ficMail,
"ERRFILE" => $erreurLog,
"GOOD" => $goodLog,
"BAD" => $badLog,
From => $from_email,
merge_delimiter => "::",
Subject => $objet,
Message => $src_html,
"servers" => [$server],
) or die Mail::Bulkmail->error();
$bulk->Trusting('duplicates' => 1);
$bulk->ReplyTo($reply_to);
$bulk->merge_keys ($mege);
$bulk->header("Content-type", "text/html; charset=iso-8859-1");
$bulk->header("Mime-Version", "1.0");
$bulk->bulkmail;
}; |
