| |
かとうさん今日は、ひろです。(こちらは平仮名なのね)
> 未読メールにジャンプし、下に
> なければ上のフォルダにジャンプするというようなことを実現できるか、
お約束どうり、御返事します。
ただし下記のマクロはエディタウィンドでメールを見ていた場合の処理が
入っているので、私信でお答えした hit より複雑になっています。
//------------------ NexUnread2.mac ---------------------------------------
loaddll "tkinfo.dll";
$$messageID = dllfuncstr("CurrentHeader","Message-Id");
##tmp = dllfunc( "NextUnread" );
##main = dllfunc("MainWnd");
if(##main == 0){//
#open = 1;
##handle = hidemaruhandle(0);
if(dllfunc("IsTrayIcon")){
##main = sendmessage(findwindowclass("TuruKameFrame"),0x0112, 0xF120, 0 );
setactivehidemaru ##handle;
##main = dllfunc("MainWnd");
}
else{
message "本体が起動していないと、これ以上の追跡は出来ません。";
goto END;
}
}
if( $$messageID == dllfuncstr("CurrentHeader","Message-Id") ){
##tmp = dllfunc("ExecAt",##main,"DisableDraw",0);
execmacro macrodir + "\\tkmail\\TopUnread.mac";
##tmp = dllfunc("ExecAt",##main,"EnableDraw");
}
##handle = hidemaruhandle(0);
if(##handle != ##main){
if(!dllfunc("BackSync"))goto error;
}
goto ENDING;
error:
message "DLL 関数失敗";
ENDING:
if(#open)##tmp = dllfunc("ExecAt",##main,"Exit");
END:
freedll;
endmacro;
|
|