| |
はんぺんさん今日は、ひろです。
> > マクロが必要でしたらすぐに作りますので連絡ください。
>
> お手すきの時で構いませんので、お願い申し上げます。
作者ではありませんが、X-Attach ヘッダがそのままの場合、末尾のような
マクロになります。Windows98 でしか確認していませんが、NT 系でも動くは
ずです。
//--------- delete attachment file (selected mail)-------------------
// X-Attach header はそのまま
loaddll "tkinfo.dll";
$shell = dllfuncstr( "ToLower", getenv( "COMSPEC" ));
if( strstr( $shell, "command.com" ) == -1 ){//NT 系
$opttion = "\" /S /Q";
$shell = "cmd /C rd \"";
}
else{//95 系
$opttion = "\"";
$shell = "deltree.exe /Y \"";
}
#tmp = dllfunc( "DisableDraw", 1 );
#n = dllfunc("LockSelection");
$dir = dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount")+ "\\";
while(1) {
if( !dllfunc("EnumSelection", 1) )break;
$attach = dllfuncstr("CurrentHeader", "X-Attach");
if( $attach != "" ) {
$src = $dir + $attach;
// フォルダ名のみに変換する。
#xFolder = -1;
#xFile = -1;
while(1) {
#x = strstr( midstr( $src, #xFile + 1, 256 ), "\\" );
if( #x < 0 ) {
break;
}
#x = #x + #xFile + 1;
#xFolder = #xFile;
#xFile = #x;
}
$src = leftstr( $src, #xFile );
if( existfile( $src ) )runsync2 $shell + $src + $opttion;
}
}
#n = dllfunc( "UnlockSelection", 0);
#n = dllfunc( "EnableDraw" );
freedll;
|
|