[EMAIL PROTECTED] wrote:
>
> foreach(my $ref = $sth->fetchrow_hashref()) {
> print qq(<tr><td width= 400>$ref->{'pager'}</td></tr>);
> use Net::SMTP;
> my $smtp = Net::SMTP->new('mailhost', Hello => 'hawkeye.dmtn.com', Debug
> => 1,);
> $smtp->mail ( $ref ); # mail($ref);#->{'pager'});
i don't think you want to put $ref in there - $smtp->mail() will be
looking for a scalar and an options hash, not a hash ref.
> $smtp->to('$name');
this should probably be something like:
$smtp->to($ref->{email});
or whatever the name of the field you're storing the email address in is.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
