| |
秀まるお2様
お世話になります。
頂いたアドバイスを元に、以下の2種類のマクロで試しましたが、どうしても、返信
メールになってしまうようです。
具体的には、送信様エディタのタイトルの左端に"返信"と表示されており、返信メー
ル扱いになっていると推察します。
出来ましたら、アドバイスをお願いいたします。
マクロ1
-----------------------------
loaddll "tkinfo.dll";
$to = dllfuncstr("CurrentHeaderUnited", "To");
$cc = dllfuncstr("CurrentHeaderUnited", "Cc");
// if( $cc == "" ) {
// $to = $to + ", " + $cc;
// }
// #n = dllfunc("MakeReplyCustom", "AllFromWithMe", "");
#n = dllfunc("MakeReplyCustom", "All", "");
#n = dllfunc("DeleteHeaderUnited", "In-Reply-To");
#n = dllfunc("DeleteHeaderUnited", "References");
#n = dllfunc("SetHeader", "To", $to);
#n = dllfunc("SetHeader", "Cc", $cc);
call GoToHeader "Subject:";
endmacro;
マクロ2
-----------------------------
loaddll "tkinfo.dll";
$to = dllfuncstr("CurrentHeaderUnited", "To");
$cc = dllfuncstr("CurrentHeaderUnited", "Cc");
// if( $cc == "" ) {
// $to = $to + ", " + $cc;
// }
// #n = dllfunc("MakeReplyCustom", "AllFromWithMe", "");
#n = dllfunc("MakeReplyCustom", "All", "");
#n = dllfunc("DeleteHeaderUnited", "In-Reply-To");
#n = dllfunc("DeleteHeaderUnited", "References");
#n = dllfunc("SetHeader", "To", $to);
#n = dllfunc("SetHeader", "Cc", $cc);
call GoToHeader "Subject:";
endmacro;
GoToHeader:
// 特定のヘッダ位置にカーソル移動する
// call GoToHeader "To:" のように、コロンも含めたヘッダ名を指定して呼び
出す。
moveto 0, -999;
golinetop;
##len = strlen( $$1 );
$$1 = dllfuncstr( "ToLower", $$1 );
GoToHeader_Loop:
if( x == 0 ) {
insertline;
insert $$1;
if( ##len < 10 ) {
insert leftstr( " ", 10 - ##len );
} else {
insert " ";
}
return;
}
if( dllfuncstr( "ToLower", gettext( 0, y, ##len, y ) ) == $$1 ) {
return;
}
golineend2;
down;
golinetop2;
goto GoToHeader_Loop;
|
|