| |
とりあえず、題名部分からRe:を取り除いて検索するマクロを作りました。
loaddll "tkinfo.dll";
$subj = dllfuncstr("CurrentHeader", "Subject");
if( $subj == "" ) {
message "Subjectがありません。";
endmacro;
}
if( dllfuncstr("ToUpper", leftstr( $subj, 3 )) == "RE:" ) {
$subj = midstr( $subj, 3, 256 );
}
#i = 0;
$subj2 = "";
#len = strlen($subj);
while( #i < #len ) {
$s = midstr( $subj, #i, 1 );
#n = ascii($s);
if( (#n > 0x81 && #n <= 0x9F) || #n >= 0xE0 ) {
$s = midstr( $subj, #i, 2 );
#i = #i + 1;
}
if( $s == "\\" || $s == "\"" ) {
$s = "\\" + $s;
}
$subj2 = $subj2 + $s;
#i = #i + 1;
}
$subj2 = input( "題名から検索", $subj2 );
if( $subj2 != "" ) {
#n = dllfunc( "SetFindPack",
"(\"" + $subj2 + "\", target=subject)");
#n = dllfunc( "DoGrep",
dllfuncstr("CurrentAccount"),
"受信+送信済み");
}
|
|