in reply to Email lists (the Righteous sort)
Its just a basic rundown, but it shows the point. Also Ive had great results using Perl, and like I said I send emails in the millions, so 500 is a breeze. Also again I do not know the particulars of the modules implementation, but assume it was written by a far wiser man than I. It should support the rcpt or rcpt_to or something similar. Just make sure that if you are trying to Bcc the list that the module isnt going to append that info to the headers of the data section.@users = &Get_Users_from_Db("$some_db"); while ( defined($usr = shift(@users)) ) { chomp($usr); # # Assume the rcpt and send methods appropriatly process the # reponse from the server also here we would add error # checking for properly formated email addie. # $smtp->rcpt("$usr"); $cc_head ? $cc_head .= ", $usr" : $cc_head = "$usr"; } print $smtp->send("DATA"); # # At this point we talk directly to the socket because the # smtp server does not repond with anything till we are done # $socket = $smtp->socket(); print $socket "From: $from\n"; print $socket "To: $list_name\n"; print $socket "CC: $cc_head\n" if ($CC && $cc_head); print $socket "Subject: $subject\n\n"; print $socket "@message_body\n\n"; $ok = $smtp->send('.'); &Some_Error_Routine("sending mail") if (!$ok);
|
|---|