Category: | |
Author/Contact Info | Val Polyakov vpolyakov@katrillion.com |
Description: | This is an amazingly fast script for sending out newsletters. And by fast I mean REALLY fast. From start to finish, of sending out a 20kb newsletter to 90,000 recipients, it takes around 15 minutes. |
#!/usr/bin/perl ###################################################################### +## # This little guy will send out your newsletters AMAZINGLY fast. # I do 90,000 recipients (approximately 20kb newsletter) in approximat +ely # 15 minutes with it. # # Be *sure*, and I mean absolutely POSITIVELY sure that your email # list is sorted by domain. all aol.com's together, all yahoo.com's # together, etc. THAT IS *VERY* IMPORTANT, if it will not be sorted # then you sacrifice pretty much all the speed of this thing. # You also need to install Mail::Bulkmail module. # # Val Polyakov August 11, 2002 # vpolyakov@katrillion.com ###################################################################### +## use Mail::Bulkmail; $/ = undef; # Path to a something.list that contains email addresses to send # the newsletters to. One address per line, in the file $list = </home/ds2/test/*.list>; # Path to something.msg which is the actual newsletter $msg = </home/ds2/test/*.msg>; # Path to the error log $errfile = "/home/ds2/test/log/error.log"; # Path to the success log $success = "/home/ds2/test/log/success.log"; open(NEWSLETTER, $msg) or die "Couldnt open message file\n"; $newsletter = <NEWSLETTER>; $bulk = Mail::Bulkmail->new( "LIST" => $list, "From" => 'vpolyakov@katrillion.com', "Subject" => 'Default subject', "Message" => $newsletter, "ERRFILE" => $errfile, "HTML" => '1', "use_envelope" => '1', "BAD" => $errfile, "GOOD" => $success ); $bulk->HFM(1); $bulk->envelope_limit(1000); $bulk->header("Content-type", "text/html"); $bulk->bulkmail; |
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Yet another tool for sending out newsletters
by Aristotle (Chancellor) on Aug 13, 2002 at 00:33 UTC | |
by vxp (Pilgrim) on Aug 13, 2002 at 02:58 UTC | |
by Aristotle (Chancellor) on Aug 13, 2002 at 13:24 UTC | |
by Anonymous Monk on Aug 13, 2002 at 14:02 UTC | |
Re: Yet another tool for sending out newsletters
by tadman (Prior) on Aug 12, 2002 at 23:27 UTC | |
Re: Yet another tool for sending out newsletters
by Anonymous Monk on Aug 13, 2002 at 15:25 UTC | |
by vxp (Pilgrim) on Aug 13, 2002 at 15:35 UTC | |
by Anonymous Monk on Aug 13, 2002 at 17:11 UTC |
Back to
Code Catacombs