| |
[ X-Mailer:HidemaruMail 5.26 (WinNT,501) ]
お世話になっております。
龍朋 です。
******** 秀まるお2 <xxxxxxxxxxxxxxxxxxx@maruo.co.jp> さん wrote
******** [ hidesoft.8:37318| RE 37312 マクロ：アカウントグループ一覧について ]
******** [ Sat, 14 Nov 2009 11:27:58 +0900 ]
> アカウントグループの一覧は、やりようによっては取得出来ます。
>
> Account関数でアカウント名を取得しつつ、そのアカウント名を使って
>GetAccountPropでszAccountGroupを指定してやれば、そのアカウントの所属して
>いるアカウントグループ名が分かります。
>
> それを利用すればどういうツリー構造になってるかも作成出来ると思います。
>
> ということでどうでしょ？
え？そういう関数があるのですか？・・・
あ、確かに「アカウント設定関係」に記載されていますね。
「TKInfo.dllの関数一覧」に記載されていなかったので、気付きま
せんでした。
おかげさまで、動作に不満はあるものの、とりあえず下記のマクロ
で全て折りたたむことができるようになりました。
有難うございました。
#AGroupMax = -1;
#LoopC = 0;
while ( 1 ) {
$AName = dllfuncstr( "Account", #LoopC );
if ( $AName != "" ) {
#Ret = dllfunc( "SelectFolder", $AName, "" );
if ( #Ret == 1 ) {
//--- 展開 = 1、折りたたむ = 0
#Ret = dllfunc( "ExpandFolder", 0 );
}
//--- 2009/11/14 Fts 1.01.00 アカウントグループを考慮
#Ret = dllfunc("LoadAccountProp", $AName );
if ( #Ret == 1 ) {
$AGroupName = dllfuncstr("GetAccountProp", "szAccountGroup");
if ( $AGroupName != "" ) {
#AGroupMax = #AGroupMax + 1;
$AGroups[#AGroupMax] = $AGroupName;
}
}
//--- 2009/11/14 Fts 1.01.00 アカウントグループを考慮 end
} else {
break;
}
#LoopC = #LoopC + 1;
}
//--- 2009/11/14 Fts 1.01.00 アカウントグループを考慮
#LoopC = 0;
while ( #LoopC <= #AGroupMax) {
#Ret = dllfunc( "SelectAccountGroup", $AGroups[#LoopC] );
if ( #Ret == 1 ) {
//--- 展開 = 1、折りたたむ = 0
#n = dllfunc( "ExpandFolder", 0 );
}
#LoopC = #LoopC + 1;
}
//--- 2009/11/14 Fts 1.01.00 アカウントグループを考慮 end
endmacro;
--
龍朋(Ryuhou)
---以下の内容はコミュニテックス会議室システムにより付加されました。
本文中のメールアドレスは伏せ字に変換されました。伏せ字にしたくない場合
はメールアドレスを""で囲んで書き込んでください。
|
|