#! /usr/bin/perl use CGI; use lib '../../mt/lib'; #MTのlibフォルダまでの相対 or 絶対パス use MT::Mail; my $q = CGI->new; print $q->header( -charset => 'utf-8'), $q->start_html( -lang => 'ja', -encoding => 'utf-8'); print $q->h1("MT::Mailを使ってみるテスト"); &body($q); print $q->end_html; sub body{ my $q = shift; my $head = { To => 'to@example.jp', #ここは適宜書き換えてね Subject => 'From MT::Mail', #ここも任意 #From => 'from@example.jp' #なくても動作しました }; my $body = 'MT::Mailを使ったテストメールだよ'; my $flag; $flag = MT::Mail->send( $head, $body) or print $q->p("送れなかったーよ: ".MT::Mail->errstr); print $q->p("送れたみたい") if $flag; }