カスタム検索
このエントリーをはてなブックマークに追加
tomo.gif (1144 ツバツイツト)line.gif (927 ツバツイツト)line.gif (927 ツバツイツト)line.gif (927 ツバツイツト)To previous pageTo home pageMailing to me

メールを送信する方法

Modified: 19 June 2005


"Net::SMTP"を使って送信 

#!/usr/bin/perl
print "Content-type: text/html\n\n";

use Jcode;
use MIME::Base64::Perl;
use Net::SMTP;

$mailbody = "
メール本文";
&Jcode::convert(\$mailbody, 'jis');  
# JISコードに変換する

$subject = "
サブジェクト";
$encoded_sub = &EncodeSubject($subject);  
# MIME変換する

$mail_from = "
送信元メールアドレス";
$mail_to = "
送信先メールアドレス";

$smtp = Net::SMTP->new('
メールサーバーのホスト名');
$smtp->mail($mail_from);
$smtp->to($mail_to);
$smtp->data();
$smtp->datasend("To: $mail_to\n");
$smtp->datasend("Subject: $encoded_sub\n");
$smtp->datasend("Content-Type: text/plain; charset=\"ISO-2022-JP\"\n");
$smtp->datasend("Content-Transfer-Encoding: 7bit\n");
$smtp->datasend("\n");
$smtp->datasend("$mailbody");
$smtp->dataend();
$smtp->quit;


To previous pageTo home pageMailing to meJump to Top of pageline.gif (927 ツバツイツト)line.gif (927 ツバツイツト)tomo.gif (1144 ツバツイツト)
カスタム検索



このエントリーをはてなブックマークに追加