| |
> では、こういう要望があるということで将来検討したいと思います。
ありがとうございました。
> りますが…。僕がもっとちゃんとしたのを作ってもいいですけど。
とても参考になりました。自分で使う分にはフォルダ名も解ってい
るし、とりあえず以下のような感じで考えました。もっと汎用的に
(※)するためのアドバイス（その他でも）あればお願いします。
※フォルダ名や対象ヘッダ文字列をiniファイルから取り込めれば
理想的かなと思っています。それと、どうせなら配下のフォルダ
も一括で処理したいです。
loaddll "TKInfo.dll";
#headerCnt=3;
$headerStr[0]="X-XXXXX";
$headerStr[1]="X-YYYYY";
$headerStr[2]="X-ZZZZZ";
#folderCnt=3;
$accountName[0]="あるアカウント１";
$folderName[0]="あるフォルダ１"
$accountName[1]="あるアカウント２";
$folderName[1]="あるフォルダ２"
$accountName[2]="あるアカウント３;
$folderName[2]="あるフォルダ３"
while(#i<#folderCnt){
call DeleteHeader $accountName[#i],$folderName[#i];
#i=#i+1;
}
endmacro;
DeleteHeadder:
##n = dllfunc( "SelectFolder", $$1, $$2);
if(!##n) return;
##mailCount = dllfunc("MailCountAll");
##i=0;
while(##i<##mailCount){
##n = dllfunc("SetMailIndex", ##i);
if(!##n) continue;
##n = dllfunc("BeginEditMail");
##j=0;
while(##j<#headerCnt){
##n=1;
while(##n) ##n = dllfunc("DeleteHeader",
$headerStr[##j]);
##j=##j+1;
}
##n = dllfunc("SaveEditMail", 0, 0);
if(!##n){
message "書き込み失敗！ "+$$2;
break;
}
##i=##i+1;
}
return;
|
|