| |
たしかにSetMailFlagでalteredを0にすればいいようです。
念のために（他の人も使うかもしれないので）マクロをアップロードしなおし
させていただきます。
loaddll "tkinfo.dll";
#cAttach = 0;
while(1) {
$aAttach[#cAttach] = dllfuncstr("CurrentHeader2", "X-Attach"
, #cAttach );
if( $aAttach[#cAttach] == "" ) break;
#cAttach = #cAttach + 1;
}
if( #cAttach == 0 ) {
message "添付ファイルは１つもありません。";
endmacro;
}
#update = 0;
#x = 0;
while( #x < #cAttach - 1 ) {
#y = #x + 1;
while( #y < #cAttach ) {
if( $aAttach[#x] > $aAttach[#y] ) {
$temp = $aAttach[#x];
$aAttach[#x] = $aAttach[#y];
$aAttach[#y] = $temp;
#update = 1;
}
#y = #y + 1;
}
#x = #x + 1;
}
if( #update != 0 ) {
#htmlview = dllfunc("IsHtmlMailViewerVisible");
#main = dllfunc("IsHidemaruMailMain");
#readonly = readonly;
if( #main != 0 ) {
#n = dllfunc("BeginEditMail");
} else {
if( #readonly != 0 ) {
#n = dllfunc("EnableEdit");
if( readonly ) {
readonlyswitch;
}
}
}
#x = 0;
while( #x < #cAttach ) {
#n = dllfunc("SetHeader2", "X-Attach:", $aAttach[#x], #x);
#x = #x + 1;
}
if( #main != 0 ) {
#n = dllfunc("SaveEditMail", 0, 0);
} else {
if( #readonly != 0 ) {
#n = dllfunc("AlterSave");
#n = dllfunc("SetMailFlag", "altered", 0);
if( ! readonly ) {
readonlyswitch;
}
}
}
if( #htmlview != 0 && dllfunc("IsHtmlMailViewerVisible") == 0 ) {
#n = sendmessage( hidemaruhandle(0), 0x111, 40336, 0);
}
}
|
|