| |
厳密に処理するバージョンも作ってみました。
loaddll "tkinfo.dll";
#cAttach = dllfunc("CountCurrentHeader", "X-Attach");
#cHtml = dllfunc("CountCurrentHeader", "X-Html");
#htmlview = dllfunc("IsHtmlMailViewerVisible");
#wantSwitch = 0;
if( (#cAttach != 0 || #cHtml != 0) && #htmlview == 0 ) {
#wantSwitch = 1;
} else if( #htmlview != 0 && #cAttach != 0 && #cHtml != 0 ) {
$folder = dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount") + "\\";
$htmlFolder = $folder + dllfuncstr("CurrentHeader", "X-Html" );
#x = strrstr( $htmlFolder, "\\" );
if( #x < 0 ) {
message "エラー";
endmacro;
}
$htmlFolder = leftstr( $htmlFolder, #x + 1 );
#i = 0;
while( #i < #cAttach ) {
$attach = dllfuncstr("CurrentHeader2", "X-Attach", #i);
#x = strrstr( $attach, "\\" );
$attach = midstr( $attach, #x + 1 );
$file = $htmlFolder + $attach;
message $file;
if( ! existfile( $file ) ) {
#wantSwitch = 1;
break;
}
#i = #i + 1;
}
}
if( #wantSwitch ) {
//添付ファイル枠があるはず
message "切り替え";
#handle = hidemaruhandle(0);
nexthidemaru;
if( hidemaruhandle(0) != #handle ) {
//添付ファイルは無かった
prevhidemaru;
}
} else {
message "切り替え無し";
}
|
|