| |
かめさん今日は、Iranoan です。
念の為お断りしておくと、開発者とは何の関わりも無い単なる一ユーザです。
受信したメール全てに自動的にというわけにはいきませんが、
> > .exe添付ファイルを.exe.chk
> >にリネームするようなマクロ
の部分だけなら、末尾のマクロで出来ます。
//------------------------------------------------------------------------
loaddll "tkinfo.dll";
##xattach = dllfunc( "CountCurrentHeader", "X-Attach" ) - 1;
$$folder = dllfuncstr( "HomeDir" ) + dllfuncstr( "CurrentAccount" ) + "\\";
if( !dllfunc( "IsTuruKameMain" ) ){
message "本体でしか実行できない";
goto End;
}
#n = dllfunc( "BeginEditMail" );
while( ##xattach >= 0 ){
$$attach = dllfuncstr( "CurrentHeader2", "X-Attach", ##xattach );
if( existfile( $$folder + $$attach )
&& rightstr( dllfuncstr( "ToLower", $$attach ), 4 ) == ".exe" ){
if( !dllfunc( "SetHeader2", "X-Attach", $$attach + ".chk",
##xattach ) )goto Error;
if( !dllfunc( "Bypass_MoveFile", $$folder + $$attach,
$$folder + $$attach + ".chk" ) )goto Error;
}
##xattach = ##xattach - 1;
}
#n = dllfunc( "SaveEditMail", 0, 0 );
End:
freedll;
endmacro;
Error:
message "DLL 関数失敗";
goto End;
|
|