| |
SasadaNaoya さん今日は、Iranoan です。
> 右クリックから選んでも同じメールを受信してもまだspmaの
> ままだったりする場合がある
これについては、カモノハシさんの掲示板
http://www14.big.jp/~inami/kamobbs/wforum.cgi?no=127&mode=allread
を御覧ください。そうなる理由が解ります。
> spamとして登録して、ゴミ箱に移動する こ
> のマクロとは逆に非spamとして登録し、受信フォルダに
> 移動するマクロ
は、元のマクロを 3 箇所変更すればよいです。
> #n = sendmessage( hidemaruhandle(0), 0x0111 , 40259 , 0);
を ^^^^^
#n = sendmessage( hidemaruhandle(0), 0x0111 , 40230 , 0);
に、 ^^^^^
> $ret = dllfuncstr("SetHeader" , "X-TuruKame-Filter" ,
> "spam (add to spam dic)");
を
#n = dllfunc("DeleteHeader" , "X-TuruKame-Filter" );
に
> #n = dllfunc( "Move", "", "ゴミ箱" );
を
#n = dllfunc( "Move", "", "受信" );
にします。
ついでに、上記 URL で話題にしている反復学習のマクロのサンプルを末尾
に記載しておきます。
//spam/unspam の学習をさせる
//まだ
//複数選択していた場合
//を考えていない
loaddll "tkinfo.dll";
if( dllfuncstr( "GetSpamFilterTitle" ) != "kbsフィルタ" ){
message "迷惑メール・フィルタに「kbsフィルタ」が指定されていません";
goto End;
}
call CheckType;
menu "spam として辞書に登録(&S)", "非 spam として辞書に登録(&U)";
if( !result )goto End;
else if( result == 1 )call UpdateDic "spam", 40259;
else if( result == 2 )call UpdateDic "safe", 40260;
End:
freedll;
endmacro;
CheckType://mail type の確認
##type = dllfunc( "MailType" );
if( ##type <= 2 || ##type == 6 )goto End;
return;
UpdateDic://実際に辞書に登録
##main = findwindowclass( "TuruKameFrame" );
if( !##main ){
message "本体が起動していないと実行できません";
goto End;
}
if( !(dllfunc( "IsHidemaruMailMain" ) | dllfunc( "IsHidemaruMailGrep" )) ){
//editor window
#tmp = dllfunc( "Sync" );
if( !#tmp ){//選択失敗
goto End;
}
}
#tmp = dllfunc( "DisableDraw", 0 );
##unread = dllfunc( "IsUnread" );
$$type = dllfuncstr( "CurrentHeader", "X-TuruKame-Filter:" );
if( $$type == "" ){
#tmp = sendmessage( hidemaruhandle( 0 ), 0x0111, 40241, 0 );
$$type = dllfuncstr( "CurrentHeader", "X-TuruKame-Filter:" );
}
while( strstr( $$type, $$1 ) == -1 ){
#tmp = dllfunc( "BeginEditMail" );
#tmp = dllfunc( "DeleteHeader", "X-TuruKame-Filter:" );
#tmp = dllfunc("SaveEditMail", 0, 0 );
#tmp = sendmessage( ##main, 0x0111 , ##2 , 0 );
#tmp = sendmessage( hidemaruhandle( 0 ), 0x0111, 40241, 0 );
$$type = dllfuncstr( "CurrentHeader", "X-TuruKame-Filter:" );
}
if( ##unread & (!dllfunc( "IsUnread" )) )#tmp = dllfunc( "SwitchUnread" );
#tmp = dllfunc( "EnableDraw" );
return;
|
|