Catalyst::Plugin::Email - Send emails with Catalyst
use Catalyst 'Email'; __PACKAGE__->config->{email} = [qw/SMTP smtp.oook.de/]; $c->email( header => [ From => 'sri@oook.de', To => 'sri@cpan.org', Subject => 'Hello!' ], body => 'Hello sri' );
Send emails with Catalyst and Email::Send and Email::MIME::Creator.
config accepts the same options as Email::Send.
config
To send using the system's sendmail program, set config like so:
sendmail
__PACKAGE__->config->{email} = ['Sendmail'];
To send using authenticated SMTP:
__PACKAGE__->config->{email} = [ 'SMTP', 'smtp.myhost.com', username => $USERNAME, password => $PASSWORD, ];
For different methods of sending emails, and appropriate config options, see Email::Send::NNTP, Email::Send::Qmail, Email::Send::SMTP and Email::Send::Sendmail.
email() accepts the same arguments as Email::MIME::Creator's create().
email()
create()
$c->email( header => [ To => 'me@localhost', Subject => 'A TT Email', ], body => $c->subreq( '/render_email' ), );
To send a multipart message, include a parts argument containing an arrayref of Email::MIME objects.
parts
my @parts = ( Email::MIME->create( attributes => { content_type => 'application/pdf', encoding => 'quoted-printable', name => 'report.pdf', }, body => $FILE_DATA, ), Email::MIME->create( attributes => { content_type => 'text/plain', disposition => 'attachment', charset => 'US-ASCII', }, body => $c->subreq( '/render_email' ), ), ); $c->email( header => [ To => 'me@localhost', Subject => 'A TT Email', ], parts => \@parts, );
A common practice is to handle emails using the same template language used for HTML pages. If your view supports the 'render' method (Like the TT view does), you just set the body like this: $c->email( header => [ To => 'me@localhost', Subject => 'A TT Email', ], body => $c->view('TT')->render($c,'mytemplate.tt'), }
If your view doesn't support render, you can just forward to it, then reset the body like this:
sub send_email : Local { my ( $self, $c ) = @_; { local $c->stash->{names} = [ qw/andyg sri mst/ ], local $c->stash->{template}= 'mytemplate.tt'; $c->forward($c->view('MyView')); $c->email( header => [ To => 'me@localhost', Subject => 'A TT Email', ], body => $c->res->body, ); $c->res->body(undef); } }
And the template:
[%- FOREACH name IN names -%] Hi, [% name %]! [%- END -%] -- Regards, Us
Output:
Hi, andyg! Hi, sri! Hi, mst! -- Regards, Us
Catalyst, Catalyst::Plugin::SubRequest, Email::Send, Email::MIME::Creator
Sebastian Riedel, sri@cpan.org Andy Grundman Carl Franks Marcus Ramberg mramberg@cpan.org
sri@cpan.org
mramberg@cpan.org
This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.
To install Catalyst::Plugin::Email, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Catalyst::Plugin::Email
CPAN shell
perl -MCPAN -e shell install Catalyst::Plugin::Email
For more information on module installation, please visit the detailed CPAN module installation guide.