Perlで書く 

Perlで書く 2008.11.30 Vol.223

=====================================================================
Perlで書く 2008.11.30 Vol.223
[WAZA]添付ファイル付きのメールを送信する
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●添付ファイル付きのメールを送信する

　MIME::Liteモジュールを使うと簡単です。
　MIMEエンコードはEncodeモジュールでMIME-Header-ISO_2022_JPを使えば
できるそうですが、手元の環境でできなかったので日本語部分の処理には
Jcodeモジュールを使っています。

---------------------------------------------------------------------
use strict;
use warnings;
use MIME::Lite;
use Jcode;

my $from = 'from@example.com'; # 送信元
my $to = 'to@example.com'; # 送信先
my $path = './send_data.gz'; # 添付するファイル(このファイルを読み込む)
my $filename = 'data.gz'; # 添付ファイル名(このファイル名でメールに添付する)
my $type = 'application/x-gzip'; # 添付ファイルタイプ
my $subject = 'サブジェクトです'; # サブジェクト
my $message = '本文です'; # 本文

# メールサーバの指定(省略時はsendmailコマンドを使用する)
MIME::Lite->send('smtp', 'mail.example.com');

$subject = jcode($subject)->mime_encode();
$message = jcode($message)->jis;

my $msg = MIME::Lite->new(
    From => $from,
    To => $to,
    Subject => $subject,
    Type => 'multipart/mixed',
);

$msg->attach(
    Type => 'text/plain; charset="iso-2022-jp"',
    Encoding => '7bit',
    Data => $message,
);

$msg->attach(
    Type => $type,
    Path => $path,
    Filename => $filename,
    Disposition => 'attachment',
);

$msg->send;
---------------------------------------------------------------------

●関連項目

・メール送信
  http://www2u.biglobe.ne.jp/~MAS/perl/waza/mailsend.html

=====================================================================
■雑記

　ITProというサイトにPerlについて書きました(*1)。リファレンスに
関しては自分のサイトで公開しているPerlリファレンス(*2)よりも詳しく
書いていますのでサンプル付きのリファレンスサイトとしては一番の
おすすめです。
　Shibuya.pm Technical Talk #10の動画が公開されています(*3)。
比較的短時間の動画が多いのでちょっとした空き時間にでもご覧に
なってはいかがでしょうか。

*1 http://itpro.nikkeibp.co.jp/article/Reference/20081111/318984/
*2 http://www2u.biglobe.ne.jp/~MAS/perl/ref/
*3 http://www.nicovideo.jp/mylist/9691133

=====================================================================
Perlで書く(マガジンID：0000109251) 配信数：837
発行者：MAS
本メールマガジンに関するご意見・お問い合わせは
t-masuda@mvd.biglobe.ne.jp までお寄せ下さい。

解除 http://www2u.biglobe.ne.jp/~MAS/perl/magazine.html
検索 http://www2u.biglobe.ne.jp/~MAS/perl/search/index.html
バックナンバー http://archive.mag2.com/0000109251/index.html
RSS  http://archive.mag2.com/0000109251/rss10.xml

本メールマガジンは「まぐまぐ」 http://www.mag2.com/ を利用して発行
しています。
=====================================================================

• 前の記事
• 最新の記事
• 次の記事

規約に同意して

登録した方には、まぐまぐの公式メルマガ（無料）をお届けします。