perlquestion
joshe
<p>Fellow Monks: please help with this. I have this code to send email from script to a list of email address: </p>
<br><br>
<code>
sub sendtextemail {
use MIME::Lite;
$from = "\"$from_name\" <$from_email>\n";
$sender = "\<$reply_1>\n";
$reply = "\"$from_name\" <$from_email>\n";
$to = "\"$fname\" <$email>\n";
$unsubscribe .="<$shortlink/r.cgi?s=$subid&a=$username&k=$valkey>\n";
use Net::SMTP;
MIME::Lite->send('smtp', 'localhost');
$mailmsg = MIME::Lite->new(
From => $from,
'Reply-to' => $reply,
Sender => $sender,
To => $to,
Subject => $subjectline,
Type => "text/plain; charset=iso-8859-1",
"X-Identifier:" => "$subid-$username\n",
"X-Ip:" => "$ip\n",
Data => "$message",
);
$mailmsg->add("Complaints-To" => "$emailabuse\n");
$mailmsg->send;
}
</code>
<br>
<p>
The problem is when it enconter a bad email, stop the procces with this error:
</p>
<br>
<code>
SMTP recipient() command failed:
<myname@gmail..com>: domain missing or malformed
</code>
<br>
<p>
How i can do to skip the bad address without stop the process?
<br><br>
Many thanks
</p>
</p>