| |
>選択しているメールから、件名で検索して一覧作成を実行するマクロを作ろうとし
>ているのですが、件名の「Re: Fw: [〜] 」等をうまく取り除けないかと考えて止ま
>ってしまいました。
正規表現の置換を使えば割と簡単でした。。。ご参考にマクロを置いておきます。
関数の件は忘れてください。お騒がせしました。
loaddll "tkinfo.dll";
$subject = dllfuncstr("CurrentHeader", "Subject");
loaddll "HmJre.dll";
while(true){
#n = 0;
// Re: Fw:
$s = dllfuncstr("ReplaceRegularNoCaseSense",
"^(re|fwd?) ?[;:] *", $subject, 0, "", 0);
if($s != ""){
$subject = $s;
}else{
#n = #n + 1;
}
// [~]
$s = dllfuncstr("ReplaceRegularNoCaseSense",
"^\\[[^\\]]*\\] *", $subject, 0, "", 0);
if($s != ""){
$subject = $s;
}else{
#n = #n + 1;
}
if(#n == 2){
break;
}
}
loaddll "tkinfo.dll";
message $subject;
|
|