| |
ふぃらくさん今日は、ひろです。
> >（案２）.eml を直接開けるようにして、関連付けもしてくれる
> >
> 以前お願いして却下されましたが、できると助かるので、是非お願い
> いたします。
送信メール扱いになってしまうのが、今一つですが、末尾のマクロで簡易
閲覧可能です。
##こんな時のために、受信用の設定でエディタウィンを開く DLL 関数が
あれば便利かも。
//------------- view ``添付されたメール.eml'' on Editor Window ----------
if(hidemarucount > 13){
message "ウィンドの数か多すぎる";
endmacro;
}
loaddll "tkinfo.dll";
if( dllfunc("MailType") != 3)goto End;
if( dllfunc("CountCurrentHeader","X-Attach") != 1)goto End;
$eml = dllfuncstr("CurrentHeader","X-Attach");
call strstr2 $eml,"\\";
if(rightstr($eml,strlen($eml) - ##return) == "添付されたメール.eml")goto End;
#head = dllfunc("HeaderView");
if( !dllfunc("NewMail") ){
message "DLL 関数失敗";
goto End;
}
#tmp = dllfunc("SwitchHeaderView",2);
disabledraw;
selectall;
delete;
insertfile dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount") + "\\" + $eml;
#tmp = dllfunc("ClearUpdated");
#tmp = dllfunc("SwitchHeaderView",#head);
moveto 0,-9999;
browsemodeswitch;
End:
freedll;
endmacro;
strstr2:
##RC = -1;
##Size = strlen($$2);
while( 1 ){
##Pos = strstr( $$1, $$2 );
if( ##Pos == -1 )break;
##RC = ##RC + ##Pos + ##Size;
$$1 = rightstr( $$1, strlen( $$1 ) - ##Pos - ##Size );
}
return ##RC;
|
|