| |
Bcc:で届いたメールがどうか確実に判断する手段は無いような気がするのですが、
しいて判定するとしたら、To:/Cc:ヘッダの中に自分自身のメールアドレスが存在し
てるかどうかで見る形になるかと思います。
そういう条件にて、返信しようとして警告を出すようなことは、マクロと「コマン
ド置き換え」の機能を使えば可能です。
サンプルマクロは、ちょっと手抜きですが以下のようになります。
（現在アカウントのメールアドレスしか見てないです）
-----------------------------------------------------------------------------
loaddll "tkinfo.dll";
$account = dllfuncstr("CurrentAccount");
#n = dllfunc("LoadAccountProp", $account);
$myemail = dllfuncstr("GetAccountProp", "szEmail");
$myemail = dllfuncstr("ToLower", $myemail);
$to = dllfuncstr("CurrentHeaderUnited", "To" ) + "," + dllfuncstr("Curre
ntHeaderUnited", "Cc");
#emailcount = dllfunc("CountEmailList", $to);
#i = 0;
#found = 0;
while( #i < #emailcount ) {
$email = dllfuncstr("GetEmailList", $to, #i);
$email = dllfuncstr("SetEmailOnly", $email);
$email = dllfuncstr("ToLower", $email);
if( $email == $myemail ) {
#found = 1;
break;
}
#i = #i + 1;
}
if( #found == 0 ) {
question "To:/Cc:にご自身のメールアドレスが入ってないので、たぶんBc
c:で届いたメールです。かまわず返信しますか？";
if( result != yes ) {
endmacro;
}
}
#n = sendmessage( hidemaruhandle(0), 0x111, 40019, 0 );
-----------------------------------------------------------------------------
このマクロを、「マクロ・マクロ登録...」の「コマンド置き換え」の所に、
40019,返信マクロ.mac
みたいな感じで40019番の置き換えとして指定すると、一応期待した動作にはなる
と思います。
どうでしょうか。
questionの所は、
message "To:/Cc:にご自身のメールアドレスが入ってないので返信できませ
ん。";
endmacro;
とすれば、返信が一切不可になります。
|
|