| |
もう一点教えていただけませんでしょうか。
現在、以下構文としています。
抽出したメールアドレスをすべて、小文字に変換して出力することは
可能なのでしょうか？
（to lower caseと同じ処理）
----
loaddll "tkinfo.dll";
$to = dllfuncstr("CurrentHeaderUnited", "to");
$cc = dllfuncstr("CurrentHeaderUnited", "cc");
$bcc = dllfuncstr("CurrentHeaderUnited", "bcc");
$to = $to + "," + $cc + "," + $bcc;
$to = dllfuncstr("CallByEmailList", "SetEmailOnly", $to);
#count = dllfunc("CountEmailList", $to);
#i = 0;
while( #i < #count ) {
$email = dllfuncstr("GetEmailList", $to, #i);
$emailLow = dllfuncstr("ToLower", $email);
if( $email != ""
&& rightstr($emailLow, 7) != "AAA.com"
&& rightstr($emailLow, 10) != "BBBB.co.jp"
&& rightstr($emailLow, 9) != "CCC.co.jp" ) {
$result = $result + $email + "\n";
}
#i = #i + 1;
}
#x = x; #y = y;
gofileend;
insert "\n--sep@\n" + $result;
moveto #x, #y;
|
|