| |
エディタで開かずに、さらに、エディタ上でも本体上でも実行できて、しかも、
とにかく暗黙のうちの保存してしまうマクロにしました。
loaddll "tkinfo.dll";
menu "日本語", "欧文";
if( result == 0 ) {
endmacro;
}
#code = result;
#Main = dllfunc("IsTuruKameMain");
if( #Main ) {
$code[1] = "iso-2022-jp";
$code[2] = "iso-8859-1";
#n = dllfunc("BeginEditMail");
if( dllfuncstr("CurrentHeader", "X-Body-Content-Type") != ""
|| strstr( dllfuncstr("CurrentHeader", "Content-Type")
, "charset") == -1 ) {
#n = dllfunc("SetHeader", "X-Body-Content-Type", "text/
plain; charset=" + $code[#code] );
} else {
#n = dllfunc("SetHeader", "Content-Type"
, "text/plain; charset=" + $code[#code] );
}
#n = dllfunc("SaveEditMail", 0);
} else {
$code[1] = "iso-2022-jp";
$code[2] = "euro";
if( readonly ) {
#n = dllfunc("EnableEdit");
}
#n = dllfunc("SetCharSet", $code[ #code ] );
if( dllfuncstr("MailFileName") != "" ) {
#n = dllfunc("AlterSave");
}
}
|
|