API概要

Perl版サンプル

/API/setを使用してメール配信の設定を行うサンプルです。

接続先ホスト名(example.com)および、接続時のIDとパスワード(login_id, password)につきましては適宜ご変更ください。

#!/usr/bin/env perl

# 3mail API接続サンプルプログラム
#
# perl 5.8.8 にて動作確認済み
# Author 3hands dev Team
# Copyright 3hands Inc.

use Encode;
use utf8;

# 以下のCPANモジュールが必要となります。
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use XML::Simple;

my $ua = LWP::UserAgent->new;
$ua->env_proxy;

# 送信データの設定
my $req = POST 'https://example.com/API/set',
    Content_Type => 'form-data',
    Content => [
                'login_id'      => 'login_id',
                'password'      => 'login_password',
                'file'          => ["sample.csv.gz"],
                'subject'       => Encode::encode('sjis','テスト'),
                'body'          => Encode::encode('sjis','テスト'),
                'from_address'  => 'from@example.com',
                'start_sending' => 'now',
                ]
    ;

# APIへ接続
my $response = $ua->request($req);

if ($response->is_success) {
    # 結果(XML形式)を取得
    my $parser = XML::Simple->new;
    my $content = Encode::encode('utf8',$response->decoded_content);
    my $data = $parser->XMLin($content);

    # 内容を表示
    print "status:" . $data->{status} . "\n";
    print "code:" . $data->{code} . "\n";
    print "message:" . $data->{message} . "\n";
}
else {
    die $response->status_line;
}