"Kevin" <[EMAIL PROTECTED]> wrote:
> I am trying to send mail using Mail::Sender and have been unsuccessful. I am
> using HTML::Template object to hold the mail template .
>
> my $thtml = $self->load_tmpl($config->get_base_template_path .
> $config->get_MAIL_order_confirm_client, die_on_bad_params => 0);
since you set die_on_bad_params to 0, this may have failed silently. you might want
to leave die_on_bad_params on (it's default setting) so that when it fails, it will
tell you it failed, and why.
assuming that it succeeded though, and your template is good...
> my $sender = new Mail::Sender {smtp => 'smtp.irubin.com', from =>
> '[EMAIL PROTECTED]'};
again, you're not doing any error-checking. note the "examples" setion of the
Mail::Sender documentation says:
EXAMPLES
use Mail::Sender;
$sender = new Mail::Sender { from => '[EMAIL PROTECTED]',
smtp => 'mail.yourISP.com', boundary => 'This-is-a-mail-boundary-435427'};
# if you do not care about errors. (But you should!)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
obviously, since you're asking for help, this failed, and you *do* care about errors!
so i'd take the author's advice and:
# # otherwise use
ref (
$sender = new Mail::Sender {
from => '[EMAIL PROTECTED]',
smtp => 'mail.yourISP.com',
)
or die "Error($sender) : $Mail::Sender::Error\n";
ref $sender->Open({
to => '[EMAIL PROTECTED]',
subject => 'Hello dear friend'
})
or die "Error: $Mail::Sender::Error\n";
$sender->Send("stuff") or die "Error: $Mail::Sender::Error\n";
> Thanks in advance.
>
> -Kevin
you're welcome :-)
-dave
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
