| |
状況理解しました。以下のように、$bodyを、今現在のメールから取ってくる
ようにすればいいと思います。
loaddll "tkinfo.dll";
if( dllfunc("CountCurrentHeader", "X-Attach") == 0 ) {
endmacro;
}
$to = dllfuncstr("CurrentHeaderUnited", "To");
$cc = dllfuncstr("CurrentHeaderUnited", "Cc");
$bcc = dllfuncstr("CurrentHeaderUnited", "Bcc");
$subj = dllfuncstr("CurrentHeader", "Subject");
#x = x; #y = y;
gofiletop;
beginsel;
gofileend;
$body = gettext( seltopx, seltopy, selendx, selendy );
moveto #x, #y;
$body = dllfuncstr("Quote", $body);
#n = dllfunc("NewMail");
#n = dllfunc("SetHeader", "Subject", "[解凍用パスワードの通知] " + $subj );
#n = dllfunc("SetHeader", "To", $to );
#n = dllfunc("SetOrDeleteHeader", "Cc", $cc );
#n = dllfunc("SetOrDeleteHeader", "Bcc", $bcc );
gofiletop;
insert " お送りした添付ファイルを解凍する用のパスワードは、\n\n";
insertfix $body;
gofiletop;
golineend;
どうでしょうか。
メール本文がむちゃくちゃ長いと、途中でカットされてしまいますけども。
|
|