| 32 | | <p>メールを送信するのには Email::Send をつかいます。</p> |
| 33 | | |
| 34 | | <h3>つかいかた</h3> |
| 35 | | |
| 36 | | <pre><code>use strict; |
| 37 | | use warnings; |
| 38 | | use utf8; |
| 39 | | use Encode; |
| 40 | | use Email::MIME; |
| 41 | | use Email::MIME::Creator; |
| 42 | | use Email::Send; |
| 43 | | |
| 44 | | # メールオブジェクトをつくる |
| 45 | | my $mail = Email::MIME->create( |
| 46 | | header => [ |
| 47 | | From => 'from@example.com', |
| 48 | | To => 'to@example.com', |
| 49 | | Subject => Encode::encode('MIME-Header-ISO_2022_JP', 'コンニチワ'), |
| 50 | | ], |
| 51 | | parts => [ |
| 52 | | encode('iso-2022-jp', '元気でやってるかー?'), |
| 53 | | ], |
| 54 | | ); |
| 55 | | |
| 56 | | # Email::Send で送信する |
| 57 | | my $sender = Email::Send->new({mailer => 'Sendmail'}); |
| 58 | | $sender->send($mail); |
| 59 | | </code></pre> |
| 60 | | |
| 61 | | <p>メールオブジェクトを作成し、それを送信します。</p> |
| 62 | | |
| 63 | | <h3>その他のメール送信モジュール</h3> |
| 64 | | |
| 65 | | <ul> |
| 66 | | <li>PHP::Functions::Mail(yappo) |
| 67 | | <ul> |
| 68 | | <li>作者がつかわない方がいいといってました</li> |
| 69 | | </ul></li> |
| 70 | | </ul> |
| | 31 | このページは移動しました。 |
| | 32 | <a href="http://perl-users.jp/modules/email_send.html">http://perl-users.jp/modules/email_send.html</a> |