| 記事No | ： 9545 |
| 投稿日 | ： 2011/11/04(Fri) 14:02:47 |
| タイトル | ： Postmail6.0で自動返信のnameに様を付ける |
| ID情報 | ： sele8 |
| 投稿者 | ： ノエ |
| URL | ： http://ert8.toypark.in/postmail_mailto_13/postmail.cgi |
お世話になります。Postmail6.0を使わせていただいております。
http://www.kent-web.com/support/bbs/?list=log&no=9524&pg=0
先日は、上記のスレで「自動返信メールの差出人名」についてお答えいただきありがとうございました。
すみませんもう一つ教えていただきたいことがあります。
自動返信メールを
お名前 = name 様
このようにして送りたいです。
postmail.cgiの271行目から280行目を以下のように書き換えました。
# 本文内容
my $tmp;
if ($$in{$_} =~ /\n/) {
$tmp = "$key_name = \n$$in{$_} 様\n";##←修正
} else {
$tmp = "$key_name = $$in{$_} 様\n";##←修正
}
$mbody .= $tmp;
$bef = $_;
↑のように書き換えると自動返信メールの内容が
【送信日時】
2011/11/04(Fri) 13:25:43
【送信内容】
お名前 = テスト 様
メールアドレス = ***@***.ne,jp 様
問合せ種別 = ご質問 様
メッセージ =
テストテスト
様
このようにすべての項目に様がついてしまいました。
そこで、http://ert8.toypark.in/postmail_mailto_14/postmail.cgiで
同じ箇所を今度は以下のように書き換えて見ました。
# 本文内容
my $tmp;
if ($$in{name} =~ /\n/) {
$tmp = "$key_name = \n$$in{name} 様\n";##←修正
if ($$in{$_} =~ /\n/) {
$tmp = "$key_name = \n$$in{$_} \n";
} else {
$tmp = "$key_name = $$in{$_} \n";
}
} else {
$tmp = "$key_name = $$in{name} 様\n";##←修正
}
$mbody .= $tmp;
このようにすると、自動返信メールでは
【送信日時】
2011/11/04(Fri) 13:25:15
【送信内容】
お名前 = テスト 様
メールアドレス = テスト 様
問合せ種別 = テスト 様
メッセージ = テスト 様
↑このようにすべてがnameに置き変わってしまいました。
自動返信のお名前にだけ様がつくようにするのはどのように書き換えればよろしいでしょうか？
よろしければ教えてください。
| 記事No | ： 9546 |
| 投稿日 | ： 2011/11/04(Fri) 15:23:01 |
| タイトル | ： Re: Postmail6.0で自動返信のnameに様を付ける |
| ID情報 | ： Fuyuki |
| 投稿者 | ： BAL |
| URL | ： http://f43.aaa.livedoor.jp/~sumure/ |
これでいけると思います。
#-----------------------------------------------------------
# プレビュー
#-----------------------------------------------------------
-- 省略 --
# 項目
my ($bef,$item);
foreach my $key (@$key) {
next if ($bef eq $key);
next if ($key eq "x");
next if ($key eq "y");
next if ($key eq "need");
next if ($key eq "match");
next if ($$in{match} && $key eq $match2);
if ($key eq 'subject') {
$hidden .= qq|<input type="hidden" name="$key" value="$$in{subject}" />\n|;
next;
}
if ($key eq "name") {$$in{$key} .= " 様";} ## 追加
# 引数
$hidden .= qq|<input type="hidden" name="$key" value="$$in{$key}" />\n|;
| 記事No | ： 9547 |
| 投稿日 | ： 2011/11/04(Fri) 15:59:17 |
| タイトル | ： Re^2: Postmail6.0で自動返信のnameに様を付ける |
| ID情報 | ： sele8 |
| 投稿者 | ： ノエ |
| URL | ： http://ert8.toypark.in/postmail_mailto_15/postmail.cgi |
> これでいけると思います。
>
> #-----------------------------------------------------------
> # プレビュー
> #-----------------------------------------------------------
> -- 省略 --
>
> # 項目
> my ($bef,$item);
> foreach my $key (@$key) {
> next if ($bef eq $key);
> next if ($key eq "x");
> next if ($key eq "y");
> next if ($key eq "need");
> next if ($key eq "match");
> next if ($$in{match} && $key eq $match2);
> if ($key eq 'subject') {
> $hidden .= qq|<input type="hidden" name="$key" value="$$in{subject}" />\n|;
> next;
> }
> if ($key eq "name") {$$in{$key} .= " 様";} ## 追加
> # 引数
> $hidden .= qq|<input type="hidden" name="$key" value="$$in{$key}" />\n|;
BAL様
先ほどに引き続きご返信大変ありがとうございました。
無事、自動返信内容のお名前の値に様を付けることができました！
分かりやすく教えていただきありがとうございました。