|
実はV5.06正式版の方に、FindBookX関数が既に追加してあります。ただしヘル
プには書いてありません。
マクロも、実は簡単なので今作りました。送信するメール用のマクロですけど。
loaddll "tkinfo.dll";
$to = dllfuncstr("CurrentHeader","To");
#c = dllfunc("CountEmailList", $to);
#i = 0;
while( #i < #c ) {
$email[#i] = dllfuncstr("GetEmailList", $to, #i);
#x[#i] = dllfunc("FindBookX", dllfuncstr("SetEmailOnly",$email[#i]));
if( #x[#i] == 0 ) {
#x[#i] = 99999;
}
#i = #i + 1;
}
#i = 0;
while( #i < #c - 1 ) {
#j = #i + 1;
while( #j < #c ) {
if( #x[#i] > #x[#j] ) {
$temp = $email[#i];
$email[#i] = $email[#j];
$email[#j] = $temp;
#temp = #x[#i];
#x[#i] = #x[#j];
#x[#j] = #temp;
}
#j = #j + 1;
}
#i = #i + 1;
}
$to = $email[0];
#i = 1;
while( #i < #c ) {
$to = $to + ", " + $email[#i];
#i = #i + 1;
}
#n = dllfunc("SetHeader", "To", $to);
|
|