The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

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

VERSION

Version 0.02

SYNOPSIS

    use Email::Send::Netease;
    my $smtp = Email::Send::Netease->new('john@126.com','mypasswd');
    $smtp->sendmail($subject,$html_body,'foo@163.com','bar@sina.com');

METHODS

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

Create the object.

The email and password are what you registered on Netease, whose domains include 126.com, 163.com, 188.com, yeah.net

    my $smtp = Email::Send::Netease->new('foo@126.com','password');
    # or with debug
    my $smtp = Email::Send::Netease->new('foo@126.com','password',1);

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 =<<EOF;
<html>
<body>
<h1>Hello there</h1>
<p>It's nice to see you.</p>
</body>
</html>
EOF

    $smtp->sendmail($subject,$html_body,'foo@163.com');
    # send to more than one people
    $smtp->sendmail($subject,$html_body,'foo@163.com','bar@sina.com', ...);
    

AUTHOR

Ken Peng <yhpeng@cpan.org>

BUGS/LIMITATIONS

If you have found bugs, please send email to <yhpeng@cpan.org>

SUPPORT

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

    perldoc Email::Send::Netease

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.