Date:  Thu, 21 Feb 2008 11:22:00 +0100
From:  "Steffan" <snoord (at mark) planet.nl>
Subject:  [coba-e:12116] Bulk::Mail module
To:  <coba-e (at mark) bluequartz.org>
Message-Id:  <025f01c87473$99be8480$7800000a@pc11>
In-Reply-To:  <200802210930.28948.bq (at mark) solarspeed.net>
References:  <200712271748450637.0E7A2BCC (at mark) mail.loosle.com> <BAY129-DAV17F0A88A5FA8FCC5177171CA1C0 (at mark) phx.gbl> <200802210930.28948.bq (at mark) solarspeed.net>
X-Mail-Count: 12116

Hello does anybody has experience with the perl Bulkmail module
im treeing to get it working bit dummy tests works but real tests give
errors
the script is:

#!/usr/bin/perl

use strict;
use DBI();
use Mail::Bulkmail;
use Mail::Bulkmail::Server;

# Setting up the mail
my $server = Mail::Bulkmail::Server->new(
	 'Smtp' => '127.0.0.1',
       'Port' => 25
 ) || die Mail::Bulkmail::Server->error();


my $bulk = Mail::Bulkmail->new() || die Mail::Bulkmail->error();
$bulk->From("admin\ (at mark) somedomain.com");
$bulk->Sender("admin2\ (at mark) somedomain.com");
$bulk->ReplyTo("admin3\ (at mark) somedomain.com");
$bulk->Subject("Test");
$bulk->Message("Ooooo!");
$bulk->use_envelope(0);
$bulk->Trusting(1);
$bulk->servers([$server]);
$bulk->LIST("my.list.txt");
$bulk->bulkmail() || die $bulk->error;

but getting the error 
No available servers at test2.pl line 47.


Steffan