| |
こちらでテストした限りでは、例えば
To: "a@hogehoge.co.jp", "b@hogehoge.co.jp"
みたいな感じでメールを送ろうとして警告は出ないようです。
（ここの会議室に書き込む用に""で囲ってますが、実際には""で囲ってません）
&& strstr( $emailone, "@hogehoge.co.jp" ) < 0 //社外なら
の所は実際にはご自身の会社のメールアドレスの物を入れないといけなくて、例え
ばうちの会社なら
&& strstr( $emailone, "@maruo.co.jp" ) < 0 //社外なら
のようにします。その辺の書き方は僕には分からないのですが、もしうまくいかな
いようでしたら、"maruo@mitene.or.jp"に、具体的にそちらの会社名および社員の
メールアドレスがどういう形式になってるのかの例なども含めて連絡いただければ、
具体的なマクロの例を書いてお返事することは出来ると思います。
-----------------------------------------------
マクロのサンプル
-----------------------------------------------
loaddll "tkinfo.dll";
$to = dllfuncstr("CurrentHeaderUnited", "To");
$cc = dllfuncstr("CurrentHeaderUnited", "Cc");
if( $cc != "" ) {
if( $to != "" ) {
$to = $to + ",";
}
$to = $to + $cc; //宛先全部ひっくるめる。
}
#toCount = dllfunc("CountEmailList", $to);
if( #toCount <= 1 ) {
//宛先が１つ以下なら何もしない
endmacro;
}
#i = 0;
$message = "";
while( #i < #toCount ) {
$one = dllfuncstr("GetEmailList", $to, #i);
$book = dllfuncstr("FindBook", $one);
$emailone = dllfuncstr("ToLower", dllfuncstr("SetEmailOnly", $one));
if( $book == "" //登録されてない場合
&& strstr( $emailone, "@hogehoge.co.jp" ) < 0 //社外なら
) {
if( $message != "" ) {
$message = $message + "\n";
}
$message = $message + $one;
}
#i = #i + 1;
}
if( $message != "" ) {
#n = dllfunc("SetCancel", 1); //送信不可としておく。（とりあえ
ず）
$message = "アドレス帳に登録してないメールアドレスを含んでいて、" +
"しかも複数の宛先にメールを送信しようとしています。" +
"かまわずに送信しますか？\n\n" +
"アドレス帳に登録してないアドレス = \n"
+ $message;
#n = dllfunc("Bypass_MessageBox", hidemaruhandle(0), $message
, "宛先の確認"
, 0x30 //警告
+ 3 //はい + いいえ + キャンセル
+ 0x100 // デフォルトを２番目のボタン
);
if( #n == 6 ) { //「はい」なら送信OK
#n = dllfunc("SetCancel", 0);
}
}
|
|