[FAQ] SMTP送信の確認方法

SMTP送信の確認方法

Shinさん (2014-05-07 20:37:11) なし

お世話になります。
メールフォームプロの3.21に、4.15の一部を移植し、
SMTP over SSLでの送信を試みているのですが、
実際のそうなっているか否かがわからないです。
何か確認方法とかはありますでしょうか？
よろしくお願い申し上げます。

Re:SMTP送信の確認方法

Shinさん (2014-05-09 11:44:39) なくてすみません

メールフォームプロ3.21を愛用させて頂いております。
掲題の件ですが、SMTP over SSLにて使用する場合、
config.cgi内にSMTPserver、SMTPport、SMTPuser、SMTPpasswd
を記述し、
functions.cgi内の680ラインから700ラインあたりを下記のように
してみました（POP部分はコメントアウトしています）。
↓
if($config{"mode"}){
if($config{’SMTPserver’}){
use Net::SMTP;
use Net::SMTP::SSL;
use Net::SMTP::TLS;
# if($config{’POPserver’}){
# use Net::POP3;
# $POP = Net::POP3->new($config{’POPserver’});
# $POP->login($config{’POPuser’},$config{’POPpasswd’});
# $POP->quit;
# }
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
@week = (’Sun’,’Mon’,’Tue’,’Wed’,’Thu’,’Fri’,’Sat’);
@month = (’Jan’,’Feb’,’Mar’,’Apr’,’May’,’Jun’,’Jul’,’Aug’,’Sep’,’Oct’,’Nov’,’Dec’);
$smtpdate = sprintf("%s, %d %s %04d %02d:%02d:%02d +0900 (JST)",$week[$wday],$mday,$month[$mon],$year+1900,$hour,$min,$sec);

$SMTP = Net::SMTP::SSL->new($config{’SMTPserver’}, Port =>$config{’SMTPport’}) || die "Connect failed over ssl";
$SMTP->auth($config{’SMTPuser’}, $config{’SMTPpasswd’}) || die "auth failed";

$SMTP = Net::SMTP::SSL->new($config{’SMTPserver’}, Hello=>$config{’SMTPserver’}, Port =>$config{’SMTPport’}, Debug =>1);
$SMTP->auth($config{’SMTPuser’}, $config{’SMTPpasswd’});
↑
こんな感じです。
これでSMTP over SSLで送れていますでしょうか？
一応確認として、SMTPのポートを不明なポートに
した場合や、パスワードを異なるものにした場合は
エラーになったので、いいような気はしているのですが。。。
申し訳有りません。
エンジニアではないものですから、何卒ご回答いただけますと
幸いです。
よろしくお願い申し上げます。