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


記事No: 13644
投稿日: 2015/01/13(Tue) 22:11:31
タイトル最新版でのpostmail通し番号設置について
ID情報: kan0000
投稿者: KAN
URLhttp://nobel-leather.jp/postmail/check.cgi

先ほどcheck.cgiの件でお世話になった者です。
無事出来まして、感謝しております!
ありがとうございました。

もう一つだけお教えいただけますでしょうか?

過去記事No3057やNo2969を参考にしながら、
通し番号・自動連番できるよう、postmail.cgiをいじっているのですが、
行や書き方が最新バージョンと違うのもあり、ソフトウエアエラーが出てしまうのです(汗)

本文中に、6桁の番号が受信順に付加されるようなものを作れればと思っております。
【受付番号】[No.000000]といったイメージです。

みなさま、お忙しいとは思いますが、
お時間あります時に、ご教授いただければと思います。

何卒よろしくお願いいたしますm(_ _)m







記事No: 13645
投稿日: 2015/01/14(Wed) 09:45:55
タイトルRe: 最新版でのpostmail通し番号設置について
ID情報: hirayama
投稿者: hirayama
URLhttp://shade-search.com/sts/fsw/wiki.cgi

一案です。
mail.txtに

▼送信内容
------------------------------------------------------------
!count!
!message!

のように!count!を追加します。

postmail.cgiの252行目あたり

$mail =~ s/!host!/$host/g;
の下に

my $count = '【受付番号】[No.' . sprintf("%06d",(stat('./count.dat'))[7]) . ']';
$mail =~ s/!count!/$count/g;

と追加します。

さらにその下

# 本文送信
open(MAIL,"| $scmd") or error("メール送信失敗");
print MAIL "$body\n";
close(MAIL);

の下あたりに

open(COUNT,">>./count.dat");
print COUNT "1";
close(COUNT);

を追加します。


記事No: 13649
投稿日: 2015/01/14(Wed) 22:19:21
タイトルRe^2: 最新版でのpostmail通し番号設置について
ID情報: kan0000
投稿者: KAN
URLhttp://nobel-leather.jp/postmail/check.cgi


> 一案です。
> mail.txtに
>
> ▼送信内容
> ------------------------------------------------------------
> !count!
> !message!
>
> のように!count!を追加します。
>
> postmail.cgiの252行目あたり
>
> $mail =~ s/!host!/$host/g;
> の下に
>
> my $count = '【受付番号】[No.' . sprintf("%06d",(stat('./count.dat'))[7]) . ']';
> $mail =~ s/!count!/$count/g;
>
> と追加します。
>
> さらにその下
>
> # 本文送信
> open(MAIL,"| $scmd") or error("メール送信失敗");
> print MAIL "$body\n";
> close(MAIL);
>
> の下あたりに
>
> open(COUNT,">>./count.dat");
> print COUNT "1";
> close(COUNT);
>
> を追加します。




hirayama様、ご返信遅くなりまして申し訳ありませんm(_ _)m
ご指示通りにしたところ、表示されました!
ありがとうございます。
本当に感謝しております。

ちなみにreply.txtにも受付番号を表示したくて、
!count!を入れてみたのですが、
!count!のままになってしまいました。
こちらにも同じ通し番号を入れてきたいのですが、
お教えいただいてもよろしいですか(汗)

素人が手を出すのは難しすぎましたが、
お力をお借りして、ぜひ完成させたいです。

お時間あります時に、ご教授お願いいたしますm(_ _)m



記事No: 13651
投稿日: 2015/01/15(Thu) 00:59:05
タイトルRe^3: 最新版でのpostmail通し番号設置について
ID情報: hirayama
投稿者: hirayama
URLhttp://shade-search.com/sts/fsw/wiki.cgi

編集したことによって
postmail.cgiの269行目あたりになっているかと思いますが、

# 変数変換
$reply =~ s/!date!/$date1/g;

の下に

$reply =~ s/!count!/$count/g;

を追加すればいいと思います。


記事No: 13652
投稿日: 2015/01/15(Thu) 13:27:10
タイトルRe^4: 最新版でのpostmail通し番号設置について
ID情報: kan0000
投稿者: KAN
URLhttp://nobel-leather.jp/postmail/check.cgi

hirayama様、お忙しいところ、ご教授いただき、
ありがとうございました。

両方のメールに番号が表示されるようになりました!
本当に助かりました。

もう一つだけ改良してみたいのですが、お聞きしてもよろしいでしょうか?

[No.000000]を[No.150000]と
最初の二桁を任意の数字に変えることは出来るのでしょうか?
000001始まりですと、少々恥ずかしく思いまして(汗)。。。

これ以上の贅沢は申しません。


お忙しいところ、大変恐縮ですが、
何卒よろしくお願いいたしますm(_ _)m



記事No: 13653
投稿日: 2015/01/15(Thu) 16:49:42
タイトルRe^5: 最新版でのpostmail通し番号設置について
ID情報: hirayama
投稿者: hirayama

my $count = '【受付番号】 [No.' . sprintf("%06d",(stat('./count.dat'))[7]) . ']';

の行 を

my $count = '【受付番号】 [No.' . sprintf("%06d",150000 + (stat('./count.dat'))[7]) . ']';

とすればいいと思います。


記事No: 13654
投稿日: 2015/01/15(Thu) 17:34:57
タイトルRe^6: 最新版でのpostmail通し番号設置について
ID情報: kan0000
投稿者: KAN
URLhttp://nobel-leather.jp/postmail/check.cgi

hirayama様、

何度もお付き合いいただきまして、ありがとうございます。

ご指示通りにしたところ、イメージ通りにすることができました。

本当にありがとうございましたm(_ _)m

心からお礼申し上げます!


[検索ページ] [掲示板]