| |
ならば、以下のマクロがとりあえず動くかどうか試してみて欲しいです。
loaddll "tkinfo.dll";
setclipboard "";
#n = dllfunc("SwitchHeaderView", 2);
#n = dllfunc("LockSelection");
while( 1 ) {
if( dllfunc("EnumSelection", 1) == 0 ) {
break;
}
$date = dllfuncstr("CurrentHeader", "Date");
if( $date == "" ) $date = "unknown date";
addclipboard "From - " + $date + "\r\n";
moveto 0, -999;
beginsel;
gofileend;
if( selendy > seltopy + 1 ) {
// OK
} else {
message "メール内容がありません";
endmacro;
}
appendcopy;
addclipboard "\r\n";
}
#n = dllfunc("UnlockSelection", 1);
#n = dllfunc("NewMail");
#n = dllfunc("SwitchHeaderView", 0);
gofiletop;
beginsel;
gofileend;
delete;
paste;
これでとりあえず、すべてのヘッダを含むメール内容のmbox形式のやつが出て
くるかどうか試してみて欲しいです。
それでもダメなら、メールを１通だけ選択して、
loaddll "tkinfo.dll";
setclipboard "";
#n = dllfunc("SwitchHeaderView", 2);
$date = dllfuncstr("CurrentHeader", "Date");
if( $date == "" ) $date = "unknown date";
addclipboard "From - " + $date + "\r\n";
moveto 0, -999;
beginsel;
gofileend;
if( selendy > seltopy + 1 ) {
// OK
} else {
message "メール内容がありません";
endmacro;
}
appendcopy;
addclipboard "\r\n";
#n = dllfunc("NewMail");
#n = dllfunc("SwitchHeaderView", 0);
gofiletop;
beginsel;
gofileend;
delete;
paste;
でどうでしょうか。それでもダメなら、このマクロを実行した後にどこか適当
な所に貼り付けしてみてメール内容が出てくるかどうか調べてみて欲しいです。
それでもしうまく動作するパターンが分かったら、マクロの最後に
gofiletop;
moveto 0, y + 1;
Loop:
beginsel;
searchdown "^$", regular, casesense;
replaceallfast "^((?!(subject|date|x-attach))[a-z\\-]+):"
+ ".*(|\\n[ \\t]+.*(|\\n[ \\t]+.*"
+ "(|\\n[ \\t]+.*(|\\n[ \\t]+.*))))\\n", ""
, nocasesense, regular, inselect;
searchdown "^From - .+", regular, casesense;
if( !result ) {
goto Exit;
}
moveto 0, y + 1;
goto Loop;
Exit:
SAVEAS;
を付けてやれば、余計なヘッダが削除されてから「名前を付けて保存...」が
出てくるはずなんですけど。
|
|