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

■秀丸側マクロ(get_subject.mac)
---ここから
selectall;
copy;
exit;
---ここまで

■鶴亀側マクロ(名前は任意)
---ここから
$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);
while (1) {
#n = dllfunc("SetFindPack", "(\"" + $mae + "\", target=subject), inmail=0");
#n = dllfunc("FindDownInclude");
if (!#n) break;
#n = dllfunc("BeginEditMail");
$s = dllfuncstr( "SetHeader", "Subject", $ato);
#n = dllfunc("SaveEditMail", 0, 0 );
}
#i = #i + 1;
}
#n = dllfunc("SetFindPack", $oldFindPack);
---ここまで

秀丸側マクロをget_subject.macと言う名前で秀丸のマクロフォルダに保存。
鶴亀側マクロの名前は何でもいい。
鶴亀側マクロの$accountと$subjectfileは自分の環境に合わせて変更すること。