File Coverage

blib/lib/Email/Send/Zoho.pm

Criterion	Covered	Total	%
statement	22	41	53.6
branch	0	6	0.0
condition			n/a
subroutine	8	10	80.0
pod	2	2	100.0
total	32	59	54.2

package Email::Send::Zoho;

use 5.006;
use strict;
use warnings;
use MIME::Lite;
use MIME::Words qw(encode_mimewords);
use Net::SMTP::SSL;
use Carp qw/croak/;

BEGIN { @MIME::Lite::SMTP::ISA = qw(Net::SMTP::SSL); }

our $VERSION = '0.01';

sub new {

    my $class = shift;
    my $email = shift;
    my $passwd = shift;
    my $debug = shift;

    $debug = 0 unless defined $debug;

    eval {
        require MIME::Base64;
        require Authen::SASL;
    } or croak "Need MIME::Base64 and Authen::SASL for sendmail";

    bless {email=>$email,passwd=>$passwd,debug=>$debug}, $class;
}

sub sendmail {

    my $self = shift;
    my $title = shift;
    my $html_body = shift;
    my @recepients = @_;

    my $to_address = join ',',@recepients;
    my $from_address = $self->{email};

    my $subject = encode_mimewords($title,'Charset','UTF-8');

    my $msg = MIME::Lite->new (
        From => $from_address,
        To => $to_address,
        Subject => $subject,
        Type     => 'text/html',
        Data     => $html_body,
        Encoding => 'base64',
    ) or croak "create container failed: $!";

    $msg->attr('content-type.charset' => 'UTF-8');
    $msg->send('smtp',
               'smtp.zoho.com',
                Port => 465,
                AuthUser => $from_address,
                AuthPass => $self->{passwd},
                Debug => $self->{debug}
              );
}


1;

=head1 NAME

Email::Send::Zoho - Send email with Zoho's SMTP servers

=head1 VERSION

Version 0.01


=head1 SYNOPSIS

    use Email::Send::Zoho;
    my $smtp = Email::Send::Zoho->new('[e-mail]','mypasswd');
    $smtp->sendmail($subject,$html_body,'[e-mail]','[e-mail]');


=head1 METHODS

=head2 new($email, $password, [$debug])

Create the object.

The email acount can be at zoho.com, or any other domains you setup with zoho business application.

    my $smtp = Email::Send::Zoho->new('[e-mail]','password');
    # or with debug
    my $smtp = Email::Send::Zoho->new('[e-mail]','password',1);

=head2 sendmail($subject, $html_body, @recepients)

Send the message.

The subject and body can be Chinese (if so they must be UTF-8 string).
They will be encoded with UTF-8 for sending.

The message body should be HTML syntax compatible, it will be sent with text/html format.

    my $subject = "Hello";
    my $html_body =<


Hello there
It's nice to see you.


EOF

    $smtp->sendmail($subject,$html_body,'[e-mail]');
    # send to more than one people
    $smtp->sendmail($subject,$html_body,'[e-mail]','[e-mail]', ...);


=head1 AUTHOR

Ken Peng


=head1 BUGS/LIMITATIONS

If you have found bugs, please send email to


=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Email::Send::Zoho


=head1 COPYRIGHT & LICENSE

Copyright 2012 Ken Peng, all rights reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.