| |
たぶん7Zipがうまく動いてないんだろうと思うので、以下のテストマクロを動かしてみて欲しいです。
実行すると、新規メールが１つ出てきてそこにコマンドラインと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 files (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 "添付ファイルは１つもありません。";
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\\Explorer\\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 "コマンドラインは以下の１行です。\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", "パスワードの通知 - " + $subject );
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ファイルのファイル名なり圧縮対象ファイルのファイル名なりが正しいかどうか確認してみると何か分かると思います。
----------------------------------------------------------------------------------------
コマンドラインは以下の１行です。
"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
|
|