| |
こんばんわ。秀まるお様
秀丸メール本体から下記マクロを実行すると、
(1)添付ファイルを削除するのみの場合は0
(2)添付ファイルを削除し、メール中の該当するX-Attach:ヘッダをいっしょに削除し
たい場合は1
(3)メール中のX-Attach:ヘッダをX-DelAttach:ヘッダに改変させたい場合は2
(1)は正常
(2)は、添付ファイルは削除されるがX-Attachヘッダは削除されない。
(3)は、添付ファイルは削除されるがX-Attachヘッダが変更されない。
という症状です。
DeleteAttachのコマンドは、エディタ上で実行すると説明どおりの動作に
なりました。
秀丸メール本体から実行したDeleteAttachは、パラメータ2の設定に関係なく
添付ファイルが削除されるだけの動作なのでしょうか？
よろしくお願いします。
動作環境
OS:Win2K
秀丸メール:Ver4.63
//---------------------sample macro
call HidemaruMail ;
##n = dllfunc("IsHidemaruMailMain") ;
call Res_check ##n , "秀丸メール本体でないです\n" ;
##n = dllfunc("BeginEditMail");
call Res_check ##n , "編集を許可に失敗しました\n" ;
//添付ファイルを削除するのみの場合は0
//添付ファイルを削除し、メール中の該当するX-Attach:ヘッダをいっしょに削
除したい場合は1
//メール中のX-Attach:ヘッダをX-DelAttach:ヘッダに改変させたい場合は2
$$a[0] = "(&0)添付ファイルを削除するのみ" ;
$$a[1] = "(&1)添付ファイルを削除し、メール中の該当するX-Attach:ヘッダを
いっしょに削除" ;
$$a[2] = "(&2)メール中のX-Attach:ヘッダをX-DelAttach:ヘッダに改変" ;
menuarray $$a, 3;
if( result == 0 ) {
goto LEND ;
}
else {
##sel = result -1 ;
}
##n = dllfunc("DeleteAttach", dllfuncstr("CurrentHeader", "X-Attach"), #
#sel);
call Res_check ##n , "添付ファイル削除に失敗しました\n" ;
##n = dllfunc("SaveEditMail", 0, 0 );
call Res_check ##n , "Mailの保存に失敗しました\n" ;
LEND:
freedll;
endmacro;
HidemaruMail: //秀丸メール起動チェック&DLLロード
//機能:TKInfo.dllをロードする
// DLL を Load する
openreg "CURRENTUSER","Software\\Hidemaruo\\TuruKame\\Config";
##res = result ;
closereg ;
if( !##res ) {
message "秀丸メールがインストールされてないです (^^;)\n"+$info;
endmacro;
}
loaddll "TKInfo.dll";
if( !result ) {
message "DLLロードに失敗\n"+$info;
endmacro;
}
return ;
Res_check:
//処理:処理の判定&メッセージ表示
//引数渡し
##num = ##1; $$mes = $$2 ;
if(##num != 1){
message $$mes ;
goto LEND;
}
return ;
|
|