| |
マクロで上書き禁止属性をOFFにする例を作ってみました。こんなマクロでどうで
しょうか。
loaddll "tkinfo.dll";
#attachCount = dllfunc("CountCurrentHeader", "X-Attach");
if( #attachCount == 0 ) {
message "添付ファイルがありません。";
endmacro;
}
if( #attachCount != 1 ) {
question "添付ファイルが複数あります。複数の添付ファイルすべての上書
き禁止属性をOFFにします。よろしいですか？";
} else {
question "添付ファイルの上書き禁止属性をOFFにします。よろしいですか？";
}
if( result != yes ) {
endmacro;
}
#n = dllfunc("SetJapaneseCodePageMode", 1);
#i = 0;
#successCount = 0;
while( #i < #attachCount ) {
$path = dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount") + "\\"
+ dllfuncstr("CurrentHeader2", "X-Attach", #i );
#attr = dllfunc("Bypass_GetFileAttributes", $path);
if( #attr == -1 ) {
message "添付ファイルの属性の取得に失敗しました。添付ファイル="
+ $path;
} else {
if( (#attr & 1) != 0 ) {
#attr = #attr & 0xFFFFFFFE;
#n = dllfunc("Bypass_SetFileAttributes", $path, #attr);
if( #n == 0 ) {
message "添付ファイルの属性の変更に失敗しました。添付フ
ァイル=" + $path;
} else {
#successCount = #successCount + 1;
}
}
}
#i = #i + 1;
}
message str(#successCount) + " 個の添付ファイルの属性を変更しました。";
|
|