joshe has asked for the wisdom of the Perl Monks concerning the following question:
Fellow Monks: please help with this. I have this code to send email from script to a list of email address:
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; }
The problem is when it enconter a bad email, stop the procces with this error:
SMTP recipient() command failed: <myname@gmail..com>: domain missing or malformed
How i can do to skip the bad address without stop the process?
Many thanks
Back to
Seekers of Perl Wisdom