Hi,
I use a PERL script to send out a daily newsletter. Here's the send
fragment:
if (!defined $dry) {
$ENV{"QMAILUSER"} = $mailuser;
$ENV{"QMAILHOST"} = $mailhost;
$ENV{"QMAILINJECT"} = "r";
foreach $email (@subscribers) {
open MAIL, "|/var/qmail/bin/qmail-inject $email";
print MAIL "From: $mailfrom\n";
print MAIL "To: $email\n";
print MAIL "Subject: $header\n\n";
print MAIL $letter;
close MAIL;
}
print $letter;
}
As you can see, it's a very easy method which does only the crucial steps.
Of course I catch <mailuser>-default@<mailhost>, but some of the bounced
messages says they got the mail from <mailuser>-@<mailhost> instead of
<mailuser>-<touser>=<tohost>@<mailhost>.
In addition there's a mail server which refuses my newsletter just because
the envelope sender's address has a dash in it.
Anyone have such experience?
---jul
