Skip addresses that exceed bounce score threshold.

lib/WebGUI/Mailing/Email.pm

@@ -163,6 +163,18 @@ sub send {
         return;
     }
 
+    # Check bounce score
+    my $bounceScoreOk = WebGUI::Mailing::Bounce->new( $session )->bounceScoreOk( $to );
+    if ( !$self->get( 'isTest' ) && !$bounceScoreOk ) {
+        $self->update( { 
+            status          => 'skipped',
+            sendDate        => time,
+            errorMessage    => "Bounce score for $to too high",
+        } );
+
+        return;
+    }
+
     # Fetch subject
     my $subject   = $asset->getSubject( $configuration );