| |
マクロを見た限りでは、このマクロが送信済みメールで正常動作することは無
いように思います。
送信系メールを「save」で保存すると、必ず草稿フォルダに行くはずです。こ
れを防ぐには、一度メールを受信系にしてから保存し、後で送信系に戻せばいい
です。
以下のように修正すれば期待通りに動作するはずです。ただし、現在の鶴亀
メールでは「Alt+Enter」で簡単にメモが書き換えできるので、しいてマクロを
使わなくてもいいんじゃないかという気もします。
----------------------------------------------------------------
// 鶴亀メール メモ編集マクロ（鶴亀本体のみ対応）
loaddll "tkinfo.dll";
if(!result)endmacro;
if(!dllfunc("IsTuruKameMain"))goto END;
if(dllfunc("MailType")!=-1){
$memo = input("メモの編集",dllfuncstr("CurrentHeader","X-Memo"));
if(result==yes){
#altered = dllfunc("GetMailFlag","altered");
#send = dllfunc("GetMailFlag","send");
#sent = dllfunc("GetMailFlag","sent");
if( #send ) {
#n = dllfunc("SetMailFlag", "send", 0);
}
if(!dllfunc("OpenMail"))goto ERR;
if(readonly) #n = dllfunc( "EnableEdit" );
if($memo=="")#n = dllfunc( "DeleteHeader", "X-Memo" );
else #n = dllfunc( "SetHeader", "X-Memo", $memo );
save;
if(!dllfunc("SetMailFlag","altered",#altered))goto ERR;
if( #send ) {
#n = dllfunc("SetMailFlag", "send", 1);
#n = dllfunc("SetMailFlag", "sent", #sent);
}
#hh = hidemaruhandle(0);
#n = dllfunc("SetMainWndTop");
closehidemaru #hh;
}
}
goto END;
ERR:
message "DLL関数に失敗しました";
END:
freedll;
endmacro;
|
|