| |
追伸です。一時ファイルの削除もつけて少し変えて見ました。
//------ TKAttach.mac ------------------------------------------------//
loaddll "TKInfo.dll";
if( dllfunc( "IsTuruKameMain" ) ) #n = dllfunc( "OpenMail" );
#edithandle = hidemaruhandle(0);
menu "&1 題名を添付ファイル名にする",
"&2 日付を添付ファイル名にする",
"&3 別のファイル名をつける";
#r = result;
$title = dllfuncstr( "CurrentHeader", "Subject" );
if( #r == 1 ) $f = $title + ".txt";
//if( #r == 1 ) $f = dllfuncstr( "CurrentHeader", "Subject" ) + ".txt";
else if( #r == 2 ) $f = dllfuncstr("FormatDate", dllfuncstr("RootHeader",
"Date"), "YYYY-MM-DD-hh-mm")+".txt";
else if( #r == 3 ) {
$f = input( "添付ファイル名は", "forward?.txt" );
if( $f == "" ) goto End;
} else goto End;
$temp = dllfuncstr( "HomeDir" ) + $f;
saveas $temp;
newfile;
$s = dllfuncstr( "SetHeader", "Subject", "Fw: " + $title );
#n = dllfunc( "AddAttach", $temp );
#s = dllfunc( "CurrentHeader", "X-Attach" );
gofiletop;
insert "添付ファイルとして転送します。";
freedll;
loaddll( hidemarudir + "\\DengakuDLL.dll" );
if ( !result ) {
message "田楽DLL をロードできませんでした。";
endmacro;
}
if( !dllfunc("REMOVE","/f " + $temp) )
message $temp + " の削除に失敗しました";
freedll;
End:
closehidemaru #edithandle;
endmacro;
//-----------------------------------------------------------------//
では， (^^)/~
山紫水明
|
|