KENT-WEB サポートコーナー 過去ログ [ 0126 ]


記事No: 9545
投稿日: 2011/11/04(Fri) 14:02:47
タイトルPostmail6.0で自動返信のnameに様を付ける
ID情報: sele8
投稿者: ノエ
URLhttp://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
URLhttp://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
投稿者: ノエ
URLhttp://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様
先ほどに引き続きご返信大変ありがとうございました。
無事、自動返信内容のお名前の値に様を付けることができました!

分かりやすく教えていただきありがとうございました。


[検索ページ]