| |
添付された.emlファイルの本文を現在メールの後ろにくっつけるマクロは今作
りました。それをお試しいただきたいと思います。鶴亀メール本体ウィンドウ上
でも、エディタで開いた上でも実行可能にしました。
loaddll "tkinfo.dll";
if( dllfunc("CountCurrentHeader","X-Attach") != 1 ) {
endmacro;
}
$file = dllfuncstr("CurrentHeader", "X-Attach");
if( rightstr( $file, 4 ) != ".eml" ) {
endmacro;
}
$path = dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount")
+ "\\" + $file;
#handle = dllfunc("Bypass_GetForegroundWindow");
runsync2 "turukame.exe /v \"" + $path + "\"";
while( dllfunc("Bypass_GetForegroundWindow") == #handle
&& tickcount - #tick < 5000 ) {
//
}
#handle2 = dllfunc("Bypass_GetForegroundWindow");
if( #handle == #handle2 ) {
message ".emlファイルがオープン出来ませんでした。";
endmacro;
}
setactivehidemaru #handle2;
#browsemode = browsemode;
if( browsemode ) {
browsemodeswitch;
}
gofiletop;
beginsel;
gofileend;
copy;
setactivehidemaru #handle;
closehidemaruforced #handle2;
if( dllfunc("IsTuruKameMain") ) {
message "A";
#n = dllfunc("BeginEditMail");
} else {
#n = dllfunc("EnableEdit");
}
if( browsemode ) {
browsemodeswitch;
}
if( readonly ) {
readonlyswitch;
}
gofileend;
if( x != 0 ) {
insert "\n";
}
insert "\n------------------添付されたメール-----------------\n\n";
paste;
if( dllfunc("IsTuruKameMain") ) {
#n = dllfunc("SaveEditMail", 0, 1);
} else {
#n = dllfunc("AlterSave");
}
if( #browsemode ) {
browsemodeswitch;
}
|
|