| |
ウインドウが切り替わるごとにloaddllし直して、一件落着かと思ったら・・・、や
はり安定しません。
安定しないと言うのがくせ者で、問題なく動作するときもあります。
抜粋して作り直したマクロを添付します。
これでも、正しく終了する場合と、ダメな場合があります。実際のマクロよりは、正
しく終了する確立が高いような気がします。最初の２行に、自分のメールアドレスと、
メール送信できるアカウント名を設定します。何かメールを選択した状態でマクロを
実行します。
$transfer = "???@????";
$accountn = "アカウント名";
loaddll "TKInfo.dll";
#n =dllfunc("MakeForward");
#o_winh = hidemaruhandle(0);
#LineCount =dllfunc("RootBodyLineCount");
$body = "";
#i =0;
while(#i <#LineCount ){
$body = $body + dllfuncstr("RootBodyLine",#i );
#i =#i +1;
}
$body = leftstr( $body, 32 );
message $body;
#n =dllfunc("SetMainWndTop");
if( #n == 0 ) message "SetMainWndTop Error 1";
loaddll "TKInfo.dll";
closehidemaruforced(#o_winh);
if( !result ) message "closehidemaruforced Error 1";
#n =dllfunc("NewMail");
#Trs_winh =hidemaruhandle(0);
$s =dllfuncstr("SetHeader","To", $transfer);
$s =dllfuncstr("SetHeader","Subject", "マクロの実験");
#n =dllfunc("SetEditorAccount", $accountn);
moveto 0,0;
insert $body;
#n =dllfunc("SendLater");
#n =dllfunc("SetMainWndTop");
if( #n == 0 ) message "SetMainWndTop Error 2";
loaddll "TKInfo.dll";
closehidemaruforced(#Trs_winh);
if( !result ) message "closehidemaruforced Error 2";
|
|