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;
}; |
Partager