マクロファイルの動きNo.00566
officenoji さん 20/12/09 15:01
 
添付ファイル圧縮-7zip-パスワード別便通知.mac を利用させていただいております
が、本日急に7zipフォルダ内にzipファイルができず、添付することができません。
特にマクロファイルを変更等はしておりません。7zipファイルは最新版に入れ替えな
ど行ったのですが改善しません。
とても使い勝手のよいマクロなので何とか解決したく思います。
よろしくお願いいたします。

[ ]
RE:00566 マクロファイルの動きNo.00567
秀まるお さん 20/12/09 16:13
 
 今ちょっとこちらで簡単にテストした限りはうまく動いたようです。

 マクロを実行すると、

 1.「圧縮して作成するファイル名は?」の問い合わせが出る。
 2.乱数を生成するための問い合わせが何回か出る。
 3.その後、添付ファイルがzipファイルに置き換わりつつ、別便メールも
   作成される。

 の手順になりますが、「2」までは正常だけども「3」のタイミングでうまくいか
ないってことですよね。

 何かエラーメッセージが出てませんでしょうか。出るとしたら、

    7zipで生成されたはずのファイルがありません。たぶん圧縮に失敗しています。
    ファイル名 = XXXXXXXXXXX

 みたいなのが出てるんじゃないかと思いますが、そういうのは出てませんでしょう
か。

 あと他に確認するとしたら、圧縮用のフォルダがちゃんとあるかどうか確認してみ
る手はあります。圧縮用のフォルダは、ご自身の「ドキュメント」フォルダ配下に
「ZipTemp」って名前で作成されます。そのフォルダがあるかどうか一回見てみて欲
しいです。

[ ]
RE:00567 マクロファイルの動きNo.00568
officenoji さん 20/12/09 16:24
 
お世話になっております。
早速のご回答ありがとうございます。


>    7zipで生成されたはずのファイルがありません。たぶん圧縮に失敗しています。
>    ファイル名 = XXXXXXXXXXX
>
> みたいなのが出てるんじゃないかと思いますが、そういうのは出てませんでしょう
>か。
上記の表示が出ます。
>
> あと他に確認するとしたら、圧縮用のフォルダがちゃんとあるかどうか確認してみ
>る手はあります。圧縮用のフォルダは、ご自身の「ドキュメント」フォルダ配下に
>「ZipTemp」って名前で作成されます。そのフォルダがあるかどうか一回見てみて欲し
>いです。
「ZipTemp」フォルダには何も入っていません。
昨日まで問題なく動いていたのに不思議です。
よろしくお願いいたします。

[ ]
RE:00568 マクロファイルの動きNo.00569
秀まるお さん 20/12/09 17:08
 
 たぶん7Zipがうまく動いてないんだろうと思うので、以下のテストマクロを動かし
てみて欲しいです。

 実行すると、新規メールが1つ出てきてそこにコマンドラインと7Zipからの応答が
出てきて、「中断しますか?」の問い合わせが出てくると思います。それで中断して
中身を教えていただければ、何か分かると思います。

----------------------------------------------------------------------------
------------
// 添付ファイル圧縮-7zip-パスワード別便通知.mac by 斉藤秀夫
// 2019.02.24
// 7-zipのダウンロード先:  http://sevenzip.sourceforge.jp/
//
// 2019.03.08 Version 1.1 署名も付けるようにした。乱数発生用のメッセージ表示
回数を少し減らした。
// 2020.12.09 テスト版

    //パスワード付きにする場合はここにパスワードを設定しておく。
    //パスワード無しにするなら""を代入する。
    //パスワードを毎回入力したい場合は $password = "*"としておく。
    //パスワードの中には空白は入れないでください。
    //受信したメールの添付ファイルを圧縮する場合についてはパスワードの指定は
効きません。常にパスワード無しで圧縮されます。
    //
    // 例:
    //  $password = "";         ... パスワード無し
    //  $password = "pass";     ... パスワードを"pass"にする。
    //  $password = "*";        ... パスワードを毎回入力する。
    //  #passwordlength = 10;   ... パスワードを自動生成。長さ指定。
    #passwordlength = 6;

    loaddll "tkinfo.dll";
    $7zip = "C:\\Program files\\7-Zip\\7z.exe";
    if( ! existfile( $7zip ) ) {
        $7zip = "C:\\Program files (x86)\\7-Zip\\7z.exe";
        if( ! existfile( $7zip ) ) {
            message "7-Zipのプログラム用ファイルが見つかりません。7-Zipをイ
ンストールしてください。\n\n" +
                    "7-Zipは、C:\\Program files\\7-Zip またはC:\\Program fil
es (x86)\\7-Zip にインストールされてる必要があります。";
            endmacro;
        }
    }
    openreg "CURRENTUSER", "Software\\Hidemaruo\\TuruKame\\Config";
    $home = getregstr( "HomeDir" );
    closereg;
    $account = dllfuncstr("CurrentAccount");
    if( dllfunc("IsTuruKameMain") ) {
        message "このマクロは送信するメール専用です。";
        endmacro;
    }

    if( dllfunc("MailType") == 3 || readonly ) {
        message "受信したメールの添付ファイル・圧縮は、このマクロでは出来ま
せん。";
        endmacro;
    }
    if( dllfuncstr("CurrentHeader", "To" ) == "" ) {
        message "宛先がまだ指定されてません。このマクロは宛先/件名を入力した
後に実行してください。";
        endmacro;
    }
    if( dllfuncstr("CurrentHeader", "Subject" ) == "" ) {
        message "件名がまだ指定されてません。このマクロは宛先/件名を入力した
後に実行してください。";
        endmacro;
    }
    #cAttach = 0;
    while(1) {
        $aAttach[#cAttach] = dllfuncstr("CurrentHeader2", "X-Attach"
                                       , #cAttach );
        if( $aAttach[#cAttach] == "" ) break;
        #cAttach = #cAttach + 1;
    }
    if( #cAttach == 0 ) {
        message "添付ファイルは1つもありません。";
        endmacro;
    }
    if( #cAttach == 1 ) {
        if( rightstr( $aAttach[0], 4 ) == ".zip" ) {
            message "添付ファイルは既に圧縮されてます。";
            endmacro;
        }
        $dest = $aAttach[0] + ".zip";
    } else {
        $dest = $aAttach[0] + "など.zip";
    }
    while(1) {
        #n = strstr( $dest, "\\" );
        if( #n < 0 ) {
            break;
        }
        $dest = midstr( $dest, #n + 1, 256 );
    }
    $dest = input( "圧縮して作成するファイル名は?", $dest );
    if( $dest == "" ) {
        endmacro;
    }
    if( #passwordlength != 0 ) {
        #i = 0;
        $password = "";
        #rand_init = tickcount + #i + val(second) + val(minute);
        while( #i < #passwordlength ) {
            if( #i == 0 ) {
                #rand = #rand_init / (10 + 26 + 26) % (10 + 26 + 26);
            } else if( #i == 1 ) {
                #rand = #rand_init % (10 + 26 + 26);
            } else {
                message "乱数を生成する用に、何かキーを押してください。(あ
と" + str( #passwordlength - #i ) + "回)";
                refreshdatetime;
                #rand = (tickcount + #i + val(second) + val(minute)) % (10 +
 26 + 26);
            }
            if( #rand < 10 ) {
                $rand = char( '0' + #rand );
            } else if( #rand < 10 + 26 ) {
                $rand = char( 'a' + #rand - 10 );
            } else {
                $rand = char( 'A' + #rand - 10 - 26 );
            }
            $password = $password + $rand;
            #i = #i + 1;
        }
    } else {
        if( $password == "*" ) {
            $password = input( "パスワードは?" );
            if( $password == "" ) {
                question "パスワード無しにしますか?";
                if( result != yes ) {
                    endmacro;
                }
            }
        }
    }

    //「ドキュメント」フォルダ配下に生成する?
    openreg "CURRENTUSER","Software\\Microsoft\\Windows\\CurrentVersion\\Exp
lorer\\Shell Folders";
    $outfolder = getregstr("Personal");
    closereg;
    $outfolder = $outfolder + "\\ZipTemp";
    runsync2 "cmd.exe /c rmdir /s /q \"" + $outfolder + "\"";       //古いフ
ァイルのゴミを削除
    #n = dllfunc("Bypass_CreateDirectory", $outfolder);

    $destbase = $dest;
    $dest = $outfolder + "\\" + $dest;
    #n = dllfunc("Bypass_SetFileAttributes", $dest, 0x00000020);
    #n = dllfunc("Bypass_DeleteFile", $dest);
    //添付ファイル圧縮-7zip.macで修正。
    //$cmd = "-j \"" + $dest + "\"";
    $cmd = "a \"" + $dest + "\"";
    #i = 0;
    while( #i < #cAttach ) {
        $cmd = $cmd + " \"" + $home + $account + "\\" + $aAttach[#i] + "\"";
        #i = #i + 1;
    }
    //添付ファイル圧縮-7zip.macで修正。
    //#n = dllfunc("Zip", hidemaruhandle(0), $cmd);

    if( $password != "" ) {
        $cmd = "-p" + $password + " " + $cmd;
    }
    $cmdline = "\"" + $7zip + "\" " + $cmd;

    //テスト
    //runsync2 $cmdline;
    #handle = hidemaruhandle(0);
    #n = dllfunc("NewMail");
    gofiletop;
    beginsel;
    gofileend;
    delete;
    insert "コマンドラインは以下の1行です。\n" + $cmdline + "\n\n";
    runex $cmdline, 1, 0, "", 5, "", 5, "", 0;
    question "中断しますか?";
    if( result == yes ) {
        endmacro;
    }
    #handle2 = hidemaruhandle(0);
    setactivehidemaru #handle;
    closehidemaruforced #handle2;



    if( !result ) {
        message "7zipの実行に失敗しました。";
        endmacro;
    }
    if( ! existfile( $dest ) ) {
        message "7zipで生成されたはずのファイルがありません。たぶん圧縮に失
敗しています。\nファイル名 = " + $dest;
        endmacro;
    }
    #n = dllfunc("AddAttach", $dest);

    //テスト
    if( #n != 0 ) {
        message "AddAttachに失敗してます。";
        endmacro;
    }

    // ファイルの削除
    #n = dllfunc("Bypass_DeleteFile", $dest);
    #i = 0;
    while( #i < #cAttach ) {
        #n = dllfunc("UndoAttach", $aAttach[#i]);
        #i = #i + 1;
    }
    if( $password != "" ) {
        $to = dllfuncstr("CurrentHeader", "To");
        $toname = dllfuncstr("SetNameOnly", $to);
        if( $toname == "" ) {
            $toname = $to;
        }
        $subject = dllfuncstr("CurrentHeader", "Subject");
        $sign = dllfuncstr("CurrentSignName");
        #attachhidemaru = hidemaruhandle(0);
        #n = dllfunc("NewMail");
        #n = dllfunc("SwitchSign", "");         //署名無しに一回切り替え
        #n = dllfunc("SetHeader", "To", $to );
        #n = dllfunc("SetHeader", "Subject", "パスワードの通知 - " + $subjec
t );
        gofiletop;
        beginsel;
        gofileend;
        delete;
        insert $toname + " 様\n\n暗号化したファイルを別メールで送信しました
ので、\nパスワードをお知らせします。\n\n" +
                "件名 : " + $subject + "\n" +
                "\n" +
                "添付ファイル名: " + $destbase + "\n" +
                "解凍パスワード: " + $password + "\n" +
                "\n" +
                "よろしくお願いします。\n";
        if( leftstr($sign, 1) == "\\" ) {
            //切り替えできない
            $signContent = dllfuncstr("LoadTemplate", "sign", $sign);
            if( $signContent != "" ) {
                insert "\n" + $signContent;
            }
        } else {
            #n = dllfunc("SwitchSign", $sign);          //署名をここで切り替え
        }
        gofiletop;
        setactivehidemaru #attachhidemaru;
    }
    endmacro;

----------------------------------------------------------------------------
------------

 僕の所でテストした結果はこんな風でした。中身にある7z.exeへのパス名が違って
たりとか、zipファイルのファイル名なり圧縮対象ファイルのファイル名なりが正し
いかどうか確認してみると何か分かると思います。


----------------------------------------------------------------------------
------------
コマンドラインは以下の1行です。
"C:\Program files\7-Zip\7z.exe" -p2nl9Hf a "C:\Users\hideo\Documents\ZipTemp
\test.txt.zip" "e:\hidemailhome\斉藤秀夫メイン\送信添付\201209_06\test.txt"


7-Zip 19.00 (x64) : Copyright (c) 1999-2018 Igor Pavlov : 2019-02-21

Scanning the drive:
1 file, 6 bytes (1 KiB)

Creating archive: C:\Users\hideo\Documents\ZipTemp\test.txt.zip

Add new data to archive: 1 file, 6 bytes (1 KiB)


Files read from disk: 1
Archive size: 168 bytes (1 KiB)
Everything is Ok

[ ]