| |
ワッキーさん今日は、Iranoan です。
> マクロでやってください。ただし、今いろいろ忙しいのでマクロを作って差し
> 上げる余裕は無いです。
取り敢えず作ってみました。何か希望と異なっていたら、改めて書き込んで
ください。
//---------- 選択したメールの添付ファイル削除 ------------------------
//添付ファイルを削除するだけ
//メールがコピーされていても考慮せずに削除
//HTML メールの index.htm はそのまま
loaddll "tkinfo.dll";
#tmp = dllfunc( "DisableDraw", 0 );
#j = dllfunc( "LockSelection" );
$dir = dllfuncstr( "HomeDir" ) + dllfuncstr( "CurrentAccount" ) + "\\";
while( #i < #j ){
#tmp = dllfunc( "EnumSelection", 1 );
#attach = dllfunc( "CountCurrentHeader", "X-Attach" );
if( #attach ){
while( #k < #attach ){
$attach = dllfuncstr( "CurrentHeader2", "X-Attach", #k );
#tmp = dllfunc( "Bypass_DeleteFile", $dir + $attach );
message $dir + $attach;
#k = #k + 1;
}
call strstr2 $attach, "\\";
$attach = $dir + leftstr($attach, ##return );
if( dllfunc( "Bypass_DeleteFile", $attach +
"\\$$$ReferenceCount$$$.$$$" ) != 0xFFFFFFFF ){
#tmp = dllfunc( "Bypass_DeleteFile", $attach +
"\\$$$ReferenceCount$$$.$$$" );
}
if( dllfunc( "Bypass_GetFileAttributes", $attach )&0x10 ){
#tmp = dllfunc( "Bypass_RemoveDirectory", $attach );
}
}
#i = #i + 1;
}
#tmp = dllfunc( "UnlockSelection", 1 );
#tmp = dllfunc( "EnableDraw" );
freedll;
endmacro;
strstr2:// 文字列の後方から文字列を検索するサブルーチン
##RC = -1;
##Size = strlen($$2);
while( 1 ){
##Pos = strstr( $$1, $$2 );
if( ##Pos == -1 )break;
##RC = ##RC + ##Pos + ##Size;
$$1 = rightstr( $$1, strlen( $$1 ) - ##Pos - ##Size );
}
return ##RC;
|
|