|
どうもありがとうございます。こさくです。
> gofiletop;
> beginsel;
> moveto 0, -9999;
> replaceallfast @"\s*<.*?ExchangeLabs.*?>$", "", regular, nocasesense,
>inselect;
こちらでいこうと思います。インポートしたメールが非常に見やすくなることが
確認出来ました。
ところが受信フォルダにメールが1通の時は上手くいくのですが複数あると上手
く動作しません。
文末のマクロが全文となります。
このままだと#mをインクリメントしてループしたときに以下のエラーダイアログ
が出ます。
TKINFODLL:エディタ上で実行できない(以下略)
関数コード=33
この時エディタは開いたままです。
そこで AlterSave の後にexit文を入れるとエラーは無くなりますが#mのインク
リメントをせずにマクロが終了します。
AlterSave をsave文に変えてみましたが結果は変わりませんでした。
何処を見直せば良いでしょうか?
以上よろしくお願いします。
---------- マクロ全文 ----------
loaddll "tkinfo.dll";
$Account= "テストアカウント";
#n = dllfunc( "SelectFolder", $Account, "受信" );
#n = dllfunc("MailCountAll");
#m = 0;
while ( #m < #n ) {
#sel = dllfunc("SetMailIndex", #m );
#open = dllfunc( "OpenMail" );
#edit = dllfunc( "EnableEdit" );
message "EnableEdit:"+str(#edit);
gofiletop;
beginsel;
moveto 0, -9999;
replaceallfast @"\s*<.*?ExchangeLabs.*?>$", "", regular, nocasesense,
inselect;
#save = dllfunc("AlterSave");
#m = #m + 1;
}
freedll;
endmacro;
|
|