Bullock, Howard A. wrote:
> I have stripped my PerlSvc program to a minimal MIME::Lite email
> program. Using a firewall I blocked access to the mailhost and tested
> the "eval" code as both of you suggested and then using an "if" block to
> check [EMAIL PROTECTED]
>
> The "croak" was indeed trapped using the syntax:
>
> eval {$msg->send};
> if ($@) {
> WriteLog( "Failed to send: $@");
> }
> else {
> WriteLog("message sent");
> }
Did you try the below as a success test ? :
if ($msg->last_send_successful) {
print "message successful\n";
} else {
print "message not successful\n";
}
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
