| |
お世話になります。アレスです。
先日教えていただいた方法とネットの情報を組み合わせて、メールのタイトルと送信
日付をテキストファイル(メールエディタ上)に落とす、マクロを書いてみたのですが、
うまく動作しません。
修正箇所を教えてください。
よろしくお願いします。
loaddll "tkinfo.dll";
//テキストファイル系の処理
#txt = dllfunc("NewMail");
// ヘッダを非表示に
#headerView = dllfunc("HeaderView");
#n = dllfunc("SwitchHeaderView", 0);
gofiletop;
beginsel;
gofileend;
delete;
#n = dllfunc("SetJapaneseCodePageMode", 1);
#mailcount = dllfunc("MailCountAll");
if( #mailcount != dllfunc("MailCount") ) {
message "メール一覧の「範囲」を「全体」にしてからマクロ実行してくだ
さい。";
endmacro;
}
if( dllfunc("IsThreadView") != 0 ) {
#n = dllfunc("SetThreadView", 0);
}
#mailindex = 0;
while( #mailindex < #mailcount ) {
#n = dllfunc("SetMailIndex", #mailindex);
if( #n == 0 ) {
message "メールの選択に失敗 index=" + str(#mailindex);
endmacro;
}
#attachcount = dllfunc("CountCurrentHeader", "X-Attach:");
#attachindex = 0;
while( #attachindex < #attachcount ) {
$attach = dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount")
+ "\\" + dllfuncstr("CurrentHeader2", "X-Attach:", #atta
chindex);
$attachbasename = midstr( $attach, strrstr( $attach, "\\" ) + 1 );
//テキストに書き込みたい
$Subject = dllfuncstr("CurrentHeader", "Subject");
$Subject = dllfuncstr("ValidateForFileName", $Subject);
$Subject = leftstr( $Subject, 100 );
$Subject = "\\" + $Subject;
$d = dllfuncstr("GetMailTransmitDate");
insert $Subject + "," + $d + "\n";
}
#mailindex = #mailindex + 1;
}
|
|