| |
いつも鶴亀メールには大変お世話になっております。
掲題の件にて、ｍｅｎｕａｒｒａｙ関数を実行するとメニュー表示が下の方に
表示されるようになりました。
Ｖ１．６４でも実験しましたが、特に問題なかったです。
（Ｖ１．６７ではどうなんでしょうか？）
以上です。
すみませんが対処を宜しくお願いいたします。
//--フォルダ移動用マクロ-----------------------------------
//今のアカウントを取得。
//
loaddll "TKInfo.dll" ;
$s = dllfuncstr( "CurrentAccount" ) ;
//
//フォルダ枠を選択。
//
#c = dllfunc( "SelectPane", 0);
if( 1 != #c )
{
message "フォルダ枠の選択失敗。" ;
freedll ;
endmacro ;
}
//アカウントのカレントフォルダに移動。
//
#n = dllfunc( "SelectFolder", $s, "" ) ;
//次のフォルダに移動。
//
if( !dllfunc( "NextFolder" ) )endmacro ;
//フォルダ名取得。
//
#i = 0 ;
$folder[#i] = dllfuncstr( "CurrentFolder" ) ;
$milcnt[#i] = $folder[#i] + " : 0" ;
disabledraw ;
while( 1 )
{
//サブフォルダを展開。
//
#n = dllfunc( "ExpandFolder", 1 ) ;
//次のフォルダに移動
//
if( !dllfunc( "NextFolder" ) )
break;
//アカウントが変わったら終了。
//
if( dllfuncstr( "CurrentAccount" ) != $s )
break ;
//フォルダ名取得。
//
#i = #i + 1 ;
$folder[#i] = dllfuncstr( "CurrentFolder" ) ;
//フォルダ内格納メール数
//
#n = dllfunc("MailCountAll");
$milcnt[#i] = $folder[#i] + " : " + str( #n ) ;
}
//フォルダ名をメユー表示。
//
moveto 0, 0;
menuarray $milcnt, #i;
#c = result ;
if( 0 == #c )
{
freedll ;
endmacro ;
}
else
{
#c = dllfunc( "SelectFolder", $s, $folder[#c - 1] ) ;
}
freedll;
endmacro;
//-------------------------------------------------------
|
|