Yet Another CPAN Grep

QQ-exmail ( Y/YO/YOURSELF/QQ-exmail-1.10.zip, YOURSELF, 2019; MetaCPAN )

QQ-exmail/lib/QQ/exmail.pm ( view source; MetaCPAN )

试应用，对接企业邮接口

=cut

use strict;
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '1.10';
our @EXPORT = qw/ gettoken /;

=head1 FUNCTION

=head2 g

=$corpid&corpsecret=$corpsecret");
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
        }

    }
    return 0;
}

QQ-exmail ( Y/YO/YOURSELF/QQ-exmail-1.10.zip, YOURSELF, 2019; MetaCPAN )

QQ-exmail/lib/QQ/exmail/department.pm ( view source; MetaCPAN )

理部门

=cut

use strict;
use base qw(QQ::exmail);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '1.10';
our @EXPORT = qw/ create update delete list search /;

=


    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox

oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8

QQ-exmail ( Y/YO/YOURSELF/QQ-exmail-1.10.zip, YOURSELF, 2019; MetaCPAN )

QQ-exmail/lib/QQ/exmail/service.pm ( view source; MetaCPAN )

点登录

=cut

use strict;
use base qw(QQ::exmail);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '1.10';
our @EXPORT = qw/ get_login_url /;

=head1 FUNCTION

=

en=$access_token&userid=$userid");
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
        }

    }
    return 0;
}

QQ-exmail ( Y/YO/YOURSELF/QQ-exmail-1.10.zip, YOURSELF, 2019; MetaCPAN )

QQ-exmail/lib/QQ/exmail/group.pm ( view source; MetaCPAN )

件群组

=cut

use strict;
use base qw(QQ::exmail);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '1.10';
our @EXPORT = qw/ create update delete get /;

=head1 FU


    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox

oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8

QQ-exmail ( Y/YO/YOURSELF/QQ-exmail-1.10.zip, YOURSELF, 2019; MetaCPAN )

QQ-exmail/lib/QQ/exmail/log.pm ( view source; MetaCPAN )

统日志

=cut

use strict;
use base qw(QQ::exmail);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '1.10';
our @EXPORT = qw/ mailstatus mail login batchjob operation


    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox

oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8

QQ-exmail ( Y/YO/YOURSELF/QQ-exmail-1.10.zip, YOURSELF, 2019; MetaCPAN )

QQ-exmail/lib/QQ/exmail/useroption.pm ( view source; MetaCPAN )

能设置

=cut

use strict;
use base qw(QQ::exmail);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '1.10';
our @EXPORT = qw/ get update /;

=head1 FUNCTION

=hea


    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox

oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8

QQ-exmail ( Y/YO/YOURSELF/QQ-exmail-1.10.zip, YOURSELF, 2019; MetaCPAN )

QQ-exmail/lib/QQ/exmail/user.pm ( view source; MetaCPAN )

理成员

=cut

use strict;
use base qw(QQ::exmail);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '1.10';
our @EXPORT = qw/ create update delete get simplelist list


    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox

oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8

QQ-exmail ( Y/YO/YOURSELF/QQ-exmail-1.10.zip, YOURSELF, 2019; MetaCPAN )

QQ-exmail/lib/QQ/exmail/tag.pm ( view source; MetaCPAN )

理标签

=cut

use strict;
use base qw(QQ::exmail);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '1.10';
our @EXPORT = qw/ create update delete get addtagusers del


    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox

oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8

QQ-exmail ( Y/YO/YOURSELF/QQ-exmail-1.10.zip, YOURSELF, 2019; MetaCPAN )

QQ-exmail/lib/QQ/exmail/mail.pm ( view source; MetaCPAN )

件提醒

=cut

use strict;
use base qw(QQ::exmail);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '1.10';
our @EXPORT = qw/ newcount /;

=head1 FUNCTION

=head2

 $_[2] eq 'HASH' ) {
        my $access_token = $_[0];
        my $userid = $_[1];
        my $json = $_[2];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox

ken&userid=$userid",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8