[kansaipm] Re:２周年記念（前打ち合わせ？）

[KAWAI,Takanori]

川合孝典です。

----- Original Message -----
From: "Hiroyuki OYAMA" <oyama at crayfish.co.jp>
To: <kansai-pm-list at pm.org>
Sent: Thursday, April 11, 2002 10:25 PM
Subject: [kansaipm] Re:２周年記念（前打ち合わせ？）


> クレイフィッシュの小山です。
> # 関係ないところに反応する奴
>
> Net::Telnetでメール送信ったらこんな感じでしょか。CSVも添付
> してみたりして♪
（以下略）
ありがとうございます。
さっそく以下のようにしてJPEGファイルを送信してみました。
MIME::Entityを使いましたけど、MIME::Liteもあるんですよね。
＃これにも送信機能が...。（どこまで続く泥濘ぞ）

なぜメール送信はこんなに種類が多いんでしょうねぇ。
＃Windowsが多かったのでNet::SMTPを使う私

#!perl
use Jcode;
use Net::Telnet;
use Sys::Hostname;
use MIME::Entity;

use strict;
my $Server  = 'smtp.hoge.ne.jp';
my $From    = 'GCD00051 at nifty.ne.jp';
my $To      = 'GCD00051 at nifty.ne.jp';

my $oMime = MIME::Entity->build(
    To       => jcode('川合孝典')->mime_encode(). '<GCD00051 at nifty.ne.jp>',
    From     => 'GCD00051 at nifty.ne.jp',
    Subject => 'TO-HEN' . jcode('メール')->mime_encode(),
    Type     => 'text/plain;charset="iso-2022-jp"', #後ろのcharsetがミソ
    Data => jcode('河馬のメールなのです 添付ファイル付き
(Net::Telnt)')->jis(),
    Encoding => "7bit"
);
#1.2 添付ファイル
$oMime->attach(
    Path     => 'test.jpg',
    Type     => "image/jpeg",
    Encoding => "Base64"
);

my @smtp_command = (
    'HELO '. hostname(),
    "MAIL FROM: <$From>",
    "RCPT TO: <$To>",
    'DATA',
);

my $telnet = Net::Telnet->new(
    Host       => $Server,
    Port       => 25,
    Telnetmode => 0,
);
eval {
    print $telnet->getline;
    for my $command (@smtp_command, $oMime->stringify. "\r\n.") {
        $telnet->print($command);
        my $response = $telnet->getline;
        print $response;
        die "$response" unless $response =~ /^(?:2\d\d|3\d\d)/;
    }
};
if ($@) {
    print "ERROR: $@\n";
    $telnet->print('RSET');
    $telnet->print('QUIT');
    $telnet->close;
    exit 1;
}
$telnet->print('QUIT');
print $telnet->getline;
$telnet->close;

===================================================
川合 孝典 (Hippo2000)
   DBI日本語メーリングリスト管理人、Kansai.pm所属
   kwitknr at cpan.org GCD00051 at nifty.ne.jp
   http://member.nifty.ne.jp/hippo2000
   http://www.hippo2000.info/
「Perlを256倍使うための本　DBI編」　発売中
http://member.nifty.ne.jp/hippo2000/p256dbi/p256dbi.htm
===================================================