| |
とりあえず１通選択して印刷する専用のマクロを作りました。
ついでに、Date:ヘッダを日本語に変換する処理も入れてしまいました。
#x = x;
#y = y;
loaddll "tkinfo.dll";
if( dllfunc("IsHidemaruMailMain") ) {
if( dllfunc("SelectedMailCount") != 1 ) {
message "このマクロは複数メールまとめ印刷出来ません。";
endmacro;
}
#n = dllfunc("EnterPrintMulti");
}
#readonly = readonly;
if( #readonly ) readonlyswitch;
#browsemode = browsemode;
if( #browsemode ) browsemodeswitch;
begingroupundo;
moveto 0, -9999;
while(1) {
searchdown "^Date: [^ ]", regular, casesense;
if( !result ) {
break;
}
if( (colorcode & 0x1F) != 3 ) {
continue;
}
$date = gettext( 10, y, 256, y );
$date = dllfuncstr("FormatDate", $date, "YYYY/MM/DD(W曜日) hh:mm:ss");
moveto 10, y;
beginsel;
golineend2;
delete;
insert $date;
}
#i = 0;
while(1) {
$attach = dllfuncstr("CurrentHeader2", "X-Attach:", #i );
if( $attach == "" ) {
break;
}
#x = strrstr( $attach, "\\" );
if( #x >= 0 ) {
$attach = midstr( $attach, #x + 1 );
}
gofileend;
if( x != 0 ) {
insert "\n";
}
if( #i == 0 ) {
insert "\n";
}
insert "添付ファイル(" + str(#i + 1) + ") = " + $attach + "\n";
#i = #i + 1;
}
endgroupundo;
print 1;
undo;
if( #readonly ) readonlyswitch;
if( #browsemode ) browsemodeswitch;
loaddll "tkinfo.dll";
if( dllfunc("IsHidemaruMailMain") ) {
#tmp = dllfunc("LeavePrintMulti");
}
moveto #x, #y;
|
|