Hi folks!
I'm trying to do a test on one of our servers where I'd like to send one
mail message to upto 1000 recipients.
For this I'd like to use Mail::Bulkmail...
Now, I seems to be messing it up somehow, and am very short on time.. :(
Could someone help me out here??
The usernames I'm sending to is user[1-1000]@mydomain.com...
Here's the quick and dirty code I threw together..
#!/usr/local/bin/perl
use Mail::Bulkmail;
$bulk = Mail::Bulkmail->new(
From => '[EMAIL PROTECTED]',
Smtp => 'smtp.mydomain.com',
Port => '25',
Subject => 'Testing ISS mail service',
Message => 'TEST'
);
while($rcpt <= 1000) {
$bulk->List("user" . "$rcpt" . "@mydomain.com");
}
Best Regards
Anders Holm
Critical Path Technical Support Engineer
----------------------------------------------------------------------
Tel USA/Canada: 1 800 353 8437
Tel Worldwide: +1 801 736 0806
E-mail: [EMAIL PROTECTED]
Internet: http://support.cp.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
