投稿日:2002年04月25日 作成鷹の巣

No.2665 確認メールの発送方法を教えていただけないでしょうか



確認メールの発送方法を教えていただけないでしょうか

No.2665 投稿時間:2002年04月25日(Thu) 22:13 投稿者名:JUN URL:

メールフォームで投稿すると、すぐに確認メールが帰って着ますが。かなり難しいことなのでしょうか?宜しくお願いいたします


もう少し詳しくご説明願います。

No.2666 投稿時間:2002年04月25日(Thu) 22:32 投稿者名:水芹 URL:http://www.dream-seed.com

水芹です。

> メールフォームで投稿すると、すぐに確認メールが帰って着ますが。かなり難しいことなのでしょうか?

情報が少なすぎて、何のことだかよくわからないのですが、
フォームからメールを送信した際に、送信した本人にも送った内容を確認メールとして
送りたいということでしょうか?

上記解釈であっているなら、CGI(Perl)の知識があれば簡単です。

お使いのCGIがどういったものかわからないのでヒントだけ。
CGI中でメールを送る処理をしている部分があると思います。その処理と同じものを用意して、
あて先をフォームで入力された送信者のものに、内容を適宜確認用に書き換えて、
本来の送信処理の後(もしくは前)に追加した処理を実行するようにするだけです。


説明不足で申し訳ございません

No.2669 投稿時間:2002年04月25日(Thu) 22:56 投稿者名:JUN URL:

現在、送信フォームから自宅サーバーのデータベースに直接取り込むCGI(COBOL言語で作りました)を作成中です。送信フォームからデータベースにデータは取り込めるようになりましたが、送信フォームで入力された、メールアドレスに内容を返信しようと思っています。


送信するところのCGI。ご参考まで。

No.2673 投稿時間:2002年04月26日(Fri) 00:13 投稿者名:鷹の巣 URL:http://sakaguch.com/

> 現在、送信フォームから自宅サーバーのデータベースに直接取り込むCGI(COBOL言語で作りました)を作成中です。送信フォームからデータベースにデータは取り込めるようになりましたが、送信フォームで入力された、メールアドレスに内容を返信しようと思っています。
 
 
「サーバー稼動検査サービス(無料)お申込み受付用紙」
http://sakaguch.com/cgi/WebMail/SCmail/SCmail.html
は、「送信する」ボタンを押されますと、直ぐに以下の様な「確認メール」が「サーバー停止通知用メールアドレス」宛てに送られる様になっています。
 
 
送信するところのCGIは、以下の様になっています。ご参考まで。
 
--------------------------------------------------------------------------------------------------------------
Web入力フォーム
 
<form action="./SCmail.cgi" method="POST">
送信先メールアドレス:<input type=text name="_email" size=35>(<font color="#FF0000">半角文字で入力必須 </font><br>
<input type=submit value="送信する"><input type=reset value="リセット">
</form>
 
--------------------------------------------------------------------------------------------------------------
メール送信処理CGI(perl)
 
 
#┌─────────────────────────────────
#│ PostMail v1.7 (2002/01/27)
#│ Copyright(C) Kent Web 2002
#│ webmaster@kent-web.com
#│ http://www.kent-web.com/
#└─────────────────────────────────
$ver = 'PostMail v1.7';
 
 
# ・タグの記述例 (3)
#   E-mail <input type=text name="email" size=25>
#   → name値に「email」という文字を使うとこれはメールアドレス
#      と認識し、アドレスの書式を簡易チェックします
#   → (○) abc@xxx.co.jp
#   → (×) abc.xxx.co.jp → 入力エラーとなります
#
# ・タグの記述例 (4)
#   E-mail <input type=text name="_email" size=25>
#   → name値の先頭に「アンダーバー 」を付けると、その入力値は
#     「入力必須」となります。
#      上記の例では、「メールアドレスは入力必須」となります。
 
 
# $mail_bodyの作成
	$mail_body .= "「$subject」\n";
	$mail_body .= "$mailWebURL\n";
	$mail_body .= "よりメールが送信されました。\n\n";
	$mail_body .= "送信日時:$date\n";
	$mail_body .= "ブラウザ:$ENV{'HTTP_USER_AGENT'}\n";
	$mail_body .= "ホスト名:$host\n\n";
	$mail_body .= "このメールに覚えがない場合は、お手数をお掛け致しますが\n";
	$mail_body .= "$mailPostまでご転送の上、破棄して下さい。\n\n";
	$mail_body .= "下記のお\申\込み内容に間違いがなければ、\n";
	$mail_body .= "このメールをこのまま返送して下さい。近日中にサービスを開始致します。\n\n";
	foreach (@key) {
		next if ($_ eq "mode");
		next if ($bef eq $_);
		$in{$_} =~ s/</</g;
		$in{$_} =~ s/>/>/g;
		$in{$_} =~ s/"/\"/g;
		$in{$_} =~ s/<br>/\n/g;
		$in{$_} =~ s/\.\n/\. \n/g;
		if ($in{$_} =~ /\n/) {
			$mail_body .= "$_ = \n\n$in{$_}\n";
		} else {
			$mail_body .= "$_ = $in{$_}\n";
		}
		$bef = $_;
	}

	# JISコード変換
    	&jcode'convert(*mail_body,'jis');

	# メールアドレスがない場合はダミーに置き換え
	if ($in{'email'} eq "") { $email = 'nomail@xxx.xxx'; }
	else { $email = $in{'email'}; }

	# MIMEエンコード
	if (-e $mimer) {
		require $mimer;
		$subject2 = &mimeencode($subject);
		if ($in{'name'}) {
			$email = "\"$in{'name'}\" <$email>";
			$email = &mimeencode($email);
		}
	} else {
		$subject2 = $subject;
		&jcode'convert(*subject2,'jis');
	}
 
 
 
# mailを作成して、Perlの標準出力し、これをsendmailの標準入力へ入力する。
 
# $mailprog = '/usr/lib/sendmail';						<-----PC-UNIX用
$mailprog = 'X:/Perl.exeへのパス/Perl.exe  D:/sendmail.cgiのパス/sendmail.cgi';	<-----windows用
 
	open(MAIL,"| $mailprog -t") || &error("メール送信に失敗しました");
	print MAIL "To: $email\n";
	print MAIL "From: $mailfrom\n";
	print MAIL "Subject: $subject2\n";
	print MAIL "MIME-Version: 1.0\n";
	print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
	print MAIL "Content-Transfer-Encoding: 7bit\n";
	print MAIL "X-Mailer: $ver\n\n";
	print MAIL "$mail_body\n";
	close(MAIL);
 
 
# cobolに比べるとPerlは、ドキュメント性がないのと、インタープリタですから、速度は遅いしで、大変ですけど頑張って下さいね。


ありがとうございます。

No.2675 投稿時間:2002年04月26日(Fri) 00:28 投稿者名:JUN URL:

COM版メール送信プログラムを見つけました。これからチャレンジです。又よろしくお願いします


|目次|掲示板|過去ログ目次|▲頁先頭|