|
私は、下記のようにしてました。
-------
loaddll "tkinfo.dll";
#count = dllfunc("SelectedMailCount");
if( #count == 0 ) {
endmacro;
}
#n = dllfunc("LockSelection");
while(1) {
#n = dllfunc("EnumSelection", 1);
if( #n == 0 ) {
break;
}
$s = dllfuncstr("CurrentHeader", "Subject");
if( strstr( $s , "[!! SPAM] " ) >= 0 ) {
#x = dllfunc( "OpenMail" );
$s = dllfuncstr("CurrentHeader", "Subject");
$m = midstr( $s, 10, 250 );
//message $m;
$s = dllfuncstr("SetHeader", "Subject", $m);
save;
#whd = hidemaruhandle( 0 );
#x = dllfunc( "SetMainWndTop" );
closehidemaru #whd;
#tmp = dllfunc( "SetMailFlag", "altered", 0 );//改変フラグ OFF
}
if( strstr( $s , "[?? Probable Spam] " ) >= 0 ) {
#x = dllfunc( "OpenMail" );
$s = dllfuncstr("CurrentHeader", "Subject");
$m = midstr( $s, 19, 250 );
//message $m;
$s = dllfuncstr("SetHeader", "Subject", $m);
save;
#whd = hidemaruhandle( 0 );
#x = dllfunc( "SetMainWndTop" );
closehidemaru #whd;
#tmp = dllfunc( "SetMailFlag", "altered", 0 );//改変フラグ OFF
}
}
#n = dllfunc("UnlockSelection", 0);
|
|