|
Mark,
I'm using the
package Mail::Transport::SMTP to send an email message to a list of recipients,
some of which may be bad as determined by the SMTP server I am sending to. I
would like the send to suceed for at least the valid recipients within the
this. After looking at the source it appears that this option has
been contemplated but not implemented at the trySend level (at least not
that I can determine). Is there are way to invoke this behavior with the
current implementation (short of writing the code)? If not, would it be
reasonable to implement it in the way which was previously studied (in the
commented out code)?
sub
trySend($@)
{ my ($self, $message, %args) =
@_;
foreach (@to)
{ next if
$server->to($_);
# must we be able to disable this?
# next if
$args{ignore_erroneous_destinations}
$server->quit;
return 0;
}
.....
sub
recipient
{
my $smtp = shift;
my $opts = "";
my
$skip_bad = 0;
if(@_
&& ref($_[-1]))
{
my %opt =
%{pop(@_)};
my $v;
$skip_bad = delete $opt{'SkipBad'};
etc...
Steve
| 
