loaddll "tkinfo.dll";
if( dllfunc("IsThreadView") ) {
#n = dllfunc("SetThreadView", 0);
}
#count = dllfunc("MailCount");
#i = 0;
while( #i < #count ) {
$subject = dllfuncstr("GetMailListCache", #i, 0);
$subject2 = dllfuncstr("ToUpper", $subject);
if( strstr( $subject2, "TEST" ) >= 0 ) {
question str(#i) + "のメールにTESTがあります。選択しますか?" +
"\nSubject = " + $subject +
"\nTo/From = " + dllfuncstr("GetMailListCache", #i, 1);
if( result == yes ) {
#n = dllfunc("SetMailIndex", #i);
}
endmacro;
}
#i = #i + 1;
}
endmacro;
|