![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Webサイトに問い合わせフォームを作る必要があり、メッセージ送信用のCGIを探しています。いくつかフリーのものを見つけたのですが、SPAM対策のために認証やPOP Before SMTPなどが主流な昨今、従来のようなシンプルなSMTPサーバー以外ですぐ使えるCGIプログラムが見つかりません。あえてメールサーバーを立てるのも大変なので、今後の汎用性も考えてGmailのSMTPを利用できるものを探しているのですが、どなたかご存知ありませんか? 国内外のものを探してみたのですが、意外にも今のところ見つけられておりません。
もしそのようなものが存在しない場合に、Clip mail( http://www.kent-web.com/data/clipmail.html )あたりをベースにCPANのモジュール(Email::Send::GmailかSend::Gmail::Simpleあたり)を組み合わせて改造するか、もしくは自作することも考えていますが、なにぶん当方プログラミングの技術はそこまで高くはないので、できれば避けたいです。
どなたか詳しい方がいらっしゃいましたら、アドバイスいただければ幸いです。よろしくお願いします。
No.2ベストアンサー
- 回答日時:
以下のcpan モジュールをサーバに入れられるなら、できると思います。
Net::SMTP
Authen::SASL Module
Net::SMTP::SSL
MIME::Entity
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use Carp;
use Encode;
use Net::SMTP; # Require Authen::SASL Module
use Net::SMTP::SSL;
use MIME::Entity;
my $smtp_server = 'smtp.gmail.com';
my $smtp_port = '465';
my $smtp_acc = shift || croak "Require Gmail Acount";
system "stty -echo";
print "Password: ";
chop( my $smtp_pwd = <STDIN> );
print "\n";
system "stty echo";
my $mail_to = $smtp_acc;
my $mail_bcc = $smtp_acc;
my $mail_from = $smtp_acc;
my $mail_attached = shift || undef;
my $mail_subject = '件名';
my $mail_body = << 'END_MAILBODY';
本文1
本文2
END_MAILBODY
$mail_subject = encode( 'MIME-Header-ISO_2022_JP', $mail_subject );
$mail_to = encode( 'MIME-Header-ISO_2022_JP', $mail_to );
$mail_bcc = encode( 'MIME-Header-ISO_2022_JP', $mail_bcc );
$mail_from = encode( 'MIME-Header-ISO_2022_JP', $mail_from );
$mail_body = encode( 'ISO_2022_JP', $mail_body );
my $mime = MIME::Entity->build(
From => $mail_from,
To => $mail_to,
Bcc => $mail_bcc,
Subject => $mail_subject,
Type => "text/plain; charset=ISO-2022-JP",
Data => $mail_body
) or croak "mime build error : $!";
if ($mail_attached) {
if ( -f $mail_attached ) {
$mime->attach(
Path => $mail_attached,
Type => "application/octet-stream",
Encoding => "Base64"
) or croak "mime attach error : $!";
}
else {
croak "no such file exsits : $mail_attached";
}
}
my $smtp_ssl
= Net::SMTP::SSL->new( $smtp_server, Port => $smtp_port, Debug => 1 )
|| croak "smtp ssl conn error : $!";
$smtp_ssl->auth( $smtp_acc, $smtp_pwd ) or croak "smtp ssl auth error : $!";
$smtp_ssl->mail($mail_from);
$smtp_ssl->to($mail_to);
$smtp_ssl->bcc($mail_bcc);
$smtp_ssl->data();
$smtp_ssl->datasend( $mime->stringify ) or croak "data send error : $!";
$smtp_ssl->dataend() or croak "data end error : $!";
$smtp_ssl->quit;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
apacheでPerl CGIが作動せず、5...
-
フォームを再送信しますか?
-
フォームメールを受信すると文...
-
入力フォーム(電話番号)
-
フォントを探しています
-
メールフォームの設置方法を教...
-
めちゃきれい
-
number 改行が追加できない
-
生成AI画像について
-
3DCG
-
ホームページにメールフォーム...
-
cgi アクセス制限 エラー
-
CGIの記述について教えてくださ...
-
CGIの設置が分かりません・・・
-
ホームページにCGIを設置したの...
-
ホームページにCGIを設置したの...
-
サーバーのエラーでおしえてく...
-
ホームページの事でおしえてく...
-
さくらサーバーにcgiフォームを...
-
ホームページでCGIのフォームを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Perl メール件名について
-
Net::SMTPでメール配信できる限...
-
cgi 実行時のエラー
-
PerlでSMTP-AUTH認証をする
-
DelegateでPOP3、SMTPのリバー...
-
Net::SMTPでのメール送信について
-
perlでSMPT認証してメールを送...
-
添付ファイルはファイルでなけ...
-
Perlでのメール添付送信のエラー
-
ASP.netについて
-
ビジネスメールの敬称
-
テキストボックスの番号を使っ...
-
エクセルVBA テキストボックス...
-
DATE型変数を初期化する方法
-
初歩的な事だと思います。 Sub...
-
Excel-VBAでInputBox+Pulldown...
-
お問い合わせフォームから送信...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
VBAでInputBoxの再入力をさせる...
おすすめ情報