- 追加された行はこの色です。
- 削除された行はこの色です。
* デコメール送信 [#vf590ab8]
** キャリア公式資料 [#w4a8571d]
** 資料 [#dfc76b95]
*** キャリア公式 [#w4a8571d]
-ドコモ
-- http://www.nttdocomo.co.jp/service/imode/make/content/deco_mail/index.html
-- MIMEフォーマットについて http://www.nttdocomo.co.jp/service/imode/make/content/deco_mail/mechanism/internet/
- AU
-- http://www.au.kddi.com/ezfactory/tec/spec/decorations/index.html
- ソフトバンク
-- http://mb.softbank.jp/mb/service/3G/mail/arrange/
** デコメール携帯4社MIMEマルチパート比較 [#zdc9e19b]
*** デコメール携帯4社MIMEマルチパート比較 [#zdc9e19b]
- http://www.cpa-lab.com/tech/0126
** 開封率の高いデコメールでメルマガ配信！ [#of2eb33a]
*** 開封率の高いデコメールでメルマガ配信！ [#of2eb33a]
- http://thinkit.jp/article/757/3/
** Perlを使ったドコモデコメールの実例 [#dbec1449]
*** Perlを使ったドコモデコメールの実例 [#dbec1449]
- http://codezine.jp/article/detail/550
** CPAN [#meae4c2f]
*** CPAN [#meae4c2f]
- MIME::Lite http://search.cpan.org/perldoc?MIME::Lite
** サンプルコード [#hffe2c38]
*** AU [#a39d0e27]
#!/usr/local/bin/perl
use strict;
use MIME::Lite;
use HTML::Scrubber;
use Jcode;
use Path::Class;
my $html = <<'END';
<html>
<body>
<font color="#FF0000">こんにちは</font>
<img src="cid:my@image">
</body>
</html>
END
my $scrubber = HTML::Scrubber->new;
my $text = $scrubber->scrub($html);
my $alternative = MIME::Lite->new( Type => 'multipart/alternative', );
$alternative->attach(
Type => 'text/html',
Data => Jcode->new($html)->jis,
Encoding => '8bit',
);
$alternative->attach(
Type => 'text/plain',
Data => $text,
Encoding => '8bit',
);
my $image = MIME::Lite->new(
Type => 'image/gif; name="image.gif"',
Id => '<my@image>',
Data => scalar file( '.', 'image.gif' )->slurp,
Encoding => 'base64',
);
my $msg = MIME::Lite->new(
Type => 'multipart/mixed',
Subject => 'hello',
From => 'taro@example.net',
To => 'hanako@ezweb.ne.jp',
);
$msg->attach($alternative);
$msg->attach($image);
$msg->send;
Contents-IDは"@"を1つだけ含まなければならない。2個以上含んではならない（とのこと→http://www.cpa-lab.com/tech/0135）。
