| |
アカウント毎設定を一括で変更する機能は無いのですが、マクロを使えば一応でき
ます。
一応サンプルで作ってみました。POP3用のアカウントだけに限って設定を変更しま
す。確認メッセージで「はい」とすれば変更します。
----------------------------------------------------------------------------
-----------
loaddll "tkinfo.dll";
#n = dllfunc("SetJapaneseCodePageMode", 1);
#accountIndex = 0;
while(1) {
$account = dllfuncstr("Account", #accountIndex);
message $account;
if( $account == "" ) {
break;
}
#n = dllfunc("LoadAccountProp", $account);
if( #n == 0 ) {
message "エラー;" + $account;
endmacro;
}
#serverType = dllfunc("GetAccountProp", "recvSrv");
if( #serverType == 0 ) {
//POP3の場合
#saveOnServerFlag = dllfunc("GetAccountProp", "fSaveOnServer");
#saveOnServerDate = dllfunc("GetAccountProp", "cSaveOnServerDate");
if( #saveOnServerFlag == 1
&& #saveOnServerDate == 5 ) {
//そのままでOK
} else {
question "アカウント=" + $account
+ "\n受信したメールをサーバー上に残す: " + str(#saveOnSe
rverFlag)
+ "\n残す日数 = " + str(#saveOnServerDate)
+ "\n\n設定を変更してもいいですか？";
if( result == yes ) {
#n = dllfunc("SetAccountProp", "fSaveOnServer", 1);
#n = dllfunc("SetAccountProp", "cSaveOnServerDate", 5);
#n = dllfunc("SaveAccountProp");
}
}
}
#accountIndex = #accountIndex + 1;
}
message "マクロ終了";
|
|