鶴亀メール スレッド その7

$account = "hogehoge";// 自分のアカウント名に変更
$subjectfile = "C:\\Subject.txt";// ファイル名は適当に変更
loaddll "TKInfo.dll";
#n = dllfunc( "SelectFolder", $account, "未送信" );
$oldFindPack = dllfuncstr("GetFindPack");
// サブジェクトリストをクリップボードにコピー
runsync2 hidemarudir + "\\hidemaru.exe" + " /xget_subject.mac " + $subjectfile;
beginclipboardread;
while (1) {
$text = getclipboard;
#p = strstr($text, "\t");
$mae = leftstr($text, #p);
$ato = midstr($text, #p + 1, strlen($text));
if ($mae == "" || $ato == "") {
break;
}
$mae = dllfuncstr( "YenEncode", $mae);
#n = dllfunc("SetMailIndex", 0);
#n = dllfunc("SetFindPack", "(\"" + $mae + "\", target=subject), inmail=0");
#n = dllfunc("FindDownInclude");
if (#n) {
#n = dllfunc("BeginEditMail");
$s = dllfuncstr( "SetHeader", "Subject", $ato);
#n = dllfunc("SaveEditMail", 0, 0 );
}
}
#n = dllfunc("SetFindPack", $oldFindPack);
------
ショックだったが対して修正しなくても出来たよ。