# NAME

Email::MIME::MobileJP - E-mail toolkit for Japanese Mobile Phones

# DESCRIPTION

**WARNING! THIS MODULE IS IN THE BETA QUALITY. API MAY CHANGE WITHOUT NOTICE!**

Email::MIME::MobileJP is all in one E-mail toolkit for Japanese mobile phones.

�瓐�䎚�胯��Email::MIME �瑯�芥�潦�箝���𨳍���喋��mobile �硄靽��柴�U�詻�乓�潦�怒�鉝�具�𨳍�整�具���艾���怒�詻�乓�U�怒�怒�扎�卝���卝�����怒�踺�卝�麄���柴�U�詻�乓�潦�怒�扼�踺��

E-mail �整�譌�𨳍�桀𨤍���鉝���卝�麄���柴�汿�艾�譌�艾�鉝�整�具���艾�𨳍�㻫�啜��敺䎚�����𦠜�埈末�怒�扼�溻�卝�胯�𠾼�具�����瓐�具�扼�踺��

# �胯���胯�硔����

## �~�潦�怒�桀�𦯀縑(Parsing)

�~�潦�怒�柴�㻫�潦�箝�胯��隞乩�卝�柴�����怒���~�潦�怒�格���堒�𨰜�鉝�譌�譌�䜘�艾���䎚�啜�����扼�踺��

    use Email::MIME::MobileJP::Parser;

    my $src_text = do { local $/; <> };
    my $mail = Email::MIME::MobileJP::Parser->new($src_text);

�~�潦�怒�芥�硔�詻�扼�胯���卝�� Subject �鉝���卝�怒�臭誑銝卝�柴�����怒�𨰜�整�𨰜������
�瓐�瓐�扼�具�䎚�卝���柴�� MIME �塩�����怒�胯�����艾���𧢲���𥼚�鉝���具�怒��UTF-8 �� decode �𨰻�䎚�����堒�𨰜�扼�踺��
�虾�賬�芥�剹�啁紫����𨰜�� decode �𨰜�整�踺���瓐�䎚�怒�� [Encode::JP::Mobile](https://metacpan.org/pod/Encode::JP::Mobile) �鍦⏚�鍂�𨰜�艾���整�踺��

    my $subject = $mail->subject(); # �萸�硔�詻�扼�胯���鉝����

From �鉝���卝�怒�臭誑銝卝�柴�����怒�𨰜�整�踺����閬�蝝𨬭�� [Email::Address::Loose](https://metacpan.org/pod/Email::Address::Loose) �柴�扎�喋�嫘�踴�喋�嫘�扼�踺��

    my ($from) = $mail->from();

To ����峕�塩�扼�踺��

    my ($to) = $mail->to();

### text part �鉝����

text/plain �� part �鉝�踺�嫘�艾���麄���聦����怒�臭誑銝卝�柴�����怒�𨰜�整�踺��餈𢛵�𠰴�扎�胯��UTF-8 decode �𨰻�䎚�麄������堒�𨰜�桅�滚�𨰜�扼�踺��

    my @texts = $mail->get_texts();

text/html �芥�㻫�潦���柴�踴�䎚�颯�𨰜���聦����怒�臭誑銝卝�柴�����怒�𨰜�整�踺��

    my @texts = $mail->get_texts(qr{^text/html});

### �𤫇�� part �鉝����

隞乩�卝�柴�����怒��get\_parts �具�����~�賬���剹�扼���扎���整�𨰜������@images �桀�閬�蝝𨬭�胯���㻫�潦���鉝���剹�譌�� Email::MIME �柴�扎�喋�嫘�踴�喋�嫘�扼�踺��

    my $mail = Email::MIME::MobileJP->new($src);
    my @images = $mail->get_parts(qr{^image/jpeg});;

### SPF�桃Ⅱ隤�

SPF �扼���𧋦敶瓐�怒�晞�潦�踴�扎�卝�剹�𨳍�譌�剹�䎚�艾�卝�卝�具�卝���扼���胯�扼�溻�整�踺�䎚��softbank �� SPF �䎚�譌�𨰻���艾�卝���� nekokak �䎚�����艾�麄�柴�扼�����瓐�整�𠰴蝴�怒�麄�麄�芥���卝���𨰜�䎚�芥����@masason �押���怒�卝�𨰜�艾�譌�𨬭�𨰻����閰喟敦�臭誑銝卝�柴�萸�扎���鉝�踴�艾�譌�𨬭�𨰻����

http://blog.nekokak.org/show?guid=Vl8eRFxp3xGW08LZob1Swg

## �~�潦�怒�桅��靽�

### �~�潦�怒�芥�硔�詻�扼�胯���雴�𨀣�僐�踺��

Email::MIME::MobileJP::Creator �鉝�扎�卝���啜��蝪∪�塩�怒�~�潦�怒�芥�硔�詻�扼�胯���雴�𨀣�僐�扼�溻�整�踺��

    use utf8;
    use Email::MIME::MobileJP::Creator;
    use Email::Send;

    my $to = 'example@ezweb.ne.jp';
    my $creator = Email::MIME::MobileJP::Creator->new($to);
       $creator->body('��瘞𨰜�扼�����艾�卝�卝��?');
       $creator->from('from@example.com');
       $creator->subject('�喋�喋�卝����');
    my $mail = $creator->finalize();

    # Email::Send �折��靽~�踺��
    my $sender = Email::Send->new({mailer => 'Sendmail'});
    $sender->send($mail);

### 瘛颱�塩�𨰜�麄���聦���

�𠺶�怒���㻫�潦���批�嗵�麄�芥�押�埝溶隞塩�𨰜�麄���聦����怒�臭誑銝卝�柴�����怒�踺�䎚�啜�����扼�𨰜������

    use utf8;
    use Email::MIME::MobileJP::Creator;

    my $to = 'example@ezweb.ne.jp';
    my $creator = Email::MIME::MobileJP::Creator->new($to);
       $creator->from('from@example.com');
       $creator->subject('�喋�喋�卝����');
       $creator->add_text_part('��瘞𨰜�扼�����艾�卝�卝��?');
       $creator->add_part(
            $photo => {
                    'fimename'     => 'hoge.jpg',
                    'content_type' => 'image/jpeg',
                    'encoding'     => 'base64',
                    'name'         => 'sample.jpg',
            },
       );
    my $mail = $creator->finalize;

    # Email::Send �折��靽~�踺��
    my $sender = Email::Send->new({mailer => 'Sendmail'});
    $sender->send($mail);

### Email::MIME::MobileJP::Template �柴���扎�鉝�扎�卝���㻫�踴�潦��

    my $mail_maker = Email::MIME::MobileJP::Template->new('Text::Xslate' => {path => ['email_tmpl/']});
    my $mail = $mail_maker->render('signup.eml', {token => $token, syntax => 'TTerse'});
    my $sender = Email::Send->new({mailer => 'Sendmail'});
    $sender->send($mail);

�麄�𨬭�𨰜�瓐�瓐�� email\_tmpl/signup.eml �桐葉頨怒�胯��隞乩�卝�柴�具�𨳍�𨳍��

    Subject: [Example] �萸�扎�喋�U����!

    隞乩�卝�鉝�胯�芥���胯�䜘��
    http://example.com/signup/[% token %]

�瓐���������喋�𨰜�研�鉝�𨳍���艾�𨳍�㻫�啜��蝪∪�塩�怒�~�潦�怒�㘾��靽~�扼�溻�卝�柴�扼�麄���詻�瓐�嫘�瓐�𨳍�扼�踺�准��

# AUTHOR

Tokuhiro Matsuno <tokuhirom AAJKLFJEF@ GMAIL COM>

# SEE ALSO

# LICENSE

Copyright (C) Tokuhiro Matsuno

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