| Subject: | Mail Sent ... |
Hi:
OS : SunOS 5.7 Generic_106541-16 sun4u sparc SUNW,Ultra-Enterprise
Perl : 5.6.1
Perl Module: Mail-Sender 0.7.13.1
Once in a long while, my users are NOT receiving emails sent through your module. I know I can turn the debug on and go thru the log file but there will be atleast 100 mails sent everyday and it's hard to go thru them all every day to find out whether any emails were not sent! I have all the error logic built into the program so that whenever there is an error, it displays on the users web browser! But the problem is there are NO error messages and the recipients email addresses are also correct but missed few emails. In one case, a user sent couple of emails one after the other and the second email arrived far earlier than the first one! Any clues?? Is there a way to find out whether the emails did NOT go through? I have the following logic:
my $mlSndr = new Mail::Sender {from => "$fromAddr",
debug => "sndMail.log",
smtp => "$smtpSvr"};
if ($mlSndr->OpenMultipart({to => "$bldMgrAdr",
cc => "$ccAdr",
subject => "$subMsg"})) {
$mlSndr->Body();
$mlSndr->Send($compMsg);
if ($mkFleExst == 1) {
$mlSndr->SendFile( {encoding => 'Base64',
description => "$mkFleNme",
ctype => "$q->uploadInfo($webMkFle)->{'Content-Type'}",
disposition => "attachment; filename = $webMkFle",
file => "$tmpMkFle"} );
}
unless ($mlSndr->Close()) {
$errMsg = "<ol>$Mail::Sender::Error!!<BR><BR>";
errNotify (2, $errMsg);
}
} else {
$errMsg = "<ol>$Mail::Sender::Error!!<BR><BR>";
errNotify (2, $errMsg);
}
-----------------
Thank you for going through this and I really appreciate your input!
Prabhu.