Righto. Here is my stab at this:
use strict;
use warnings;
use Email::Send;
use Email::Simple;
my %received;
my @email;
#my $box = Email::Folder->new('/home/jonathan/mail/Recruiters/');
@email = <>;
my $message = join "\n", @email;
my $mail = Email::Simple->new($message);
$mail->header_set('To','target@host.com');
my $sender = Email::Send->new({mailer => 'SMTP'});
#my $sender = Email::Send->new({mailer => 'Sendmail'});
$sender->mailer_args([Host => 'localhost']);
my $rv = $sender->send ($mail->as_string());
use Data::Dumper;
print Dumper($rv);
my @available = $sender->all_mailers;
print Dumper(@available);
Unfortunately, though it sppears to be proper code and all, it produces the following error:
$VAR1 = bless( {
'prop' => {},
'string' => 'Can\'t call method "address" on an undef
+ined value at /usr/lib/perl5/vendor_perl/5.8.8/Email/Send/SMTP.pm lin
+e 56, <> line 68.
',
'type' => 'failure',
'errno' => 1
}, 'Return::Value' );
Anyone have any idea what is wrong here?
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|