| |
それはそれは、自分で作っておきながら知りませんで、失礼しました。
ヘルプも直してしまったので、一応SelectedMailCount関数は追加したままに
しますが、マクロは以下のように修正できるようです。＞鳩２さん
loaddll "tkinfo.dll";
#mainwnd = hidemaruhandle(0);
#n = dllfunc("NewMail");
#editwnd = hidemaruhandle(0);
#n = dllfunc("SwitchHeaderView", 0);
gofiletop;
beginsel;
gofileend;
delete;
setactivehidemaru #mainwnd;
#browse = browsemode;
if( #browse ) browsemodeswitch;
#count = dllfunc("LockSelection");
if( #count == 0 ) {
#n = dllfunc("UnlockSelection", 1);
message "何も選択されてません。";
endmacro;
}
#n = dllfunc("DisableDraw", 0);
while( dllfunc("EnumSelection", 1) != 0 ) {
$id = dllfuncstr("CurrentHeader", "Message-Id:");
moveto 0, -9999;
beginsel;
gofileend;
copy;
setactivehidemaru #editwnd;
gofileend;
#line = linecount;
paste;
if( linecount == #line ) {
message "空の内容を貼り付けたようです。???";
}
gofileend;
insert "\x0C\n";
setactivehidemaru #mainwnd;
#count2 = #count2 + 1;
}
#n = dllfunc("UnlockSelection", 1);
if( #browse ) browsemodeswitch;
#n = dllfunc("EnableDraw");
setactivehidemaru #editwnd;
if( #count != #count2 ) {
message "選択してるメール数と実際に処理したメール数が" +
"一致しませんでした。\n" +
"選択しているメール数 = " + str(#count) + "\n" +
"処理したメール数 = " + str(#count2);
endmacro;
}
message str(#count) + "通のメールを処理しました。" +
"保存先を指定してください。";
SAVEAS;
quit;
|
|