| |
すみません。マクロ書き忘れました。
「マクロ・マクロ登録...」の「自動起動」ページの「あとで送信/今すぐ送信時」
に登録して使います。
----------------------------------------------------------
loaddll "tkinfo.dll";
$from = dllfuncstr("CurrentHeader", "From");
$from = dllfuncstr("SetEmailOnly", $from);
$fromdomain = midstr( $from, strstr($from, "@") );
$to = dllfuncstr("CurrentHeaderUnited", "To");
$to = $to + "," + dllfuncstr("CurrentHeaderUnited", "Cc");
$to = $to + "," + dllfuncstr("CurrentHeaderUnited", "Bcc");
#count = dllfunc("CountEmailList", $to);
#i = 0;
$extern = "";
while( #i < #count ) {
$one = dllfuncstr("GetEmailList", $to, #i);;
$email = dllfuncstr("SetEmailOnly", $one);
$emaildomain = midstr( $email, strstr($email, "@") );
if( $emaildomain != "" && $emaildomain != $fromdomain ) {
$extern = $extern + $one + "\n";
}
#i = #i + 1;
}
if( $extern != "" ) {
question "社外のメールアドレスを含んでいます。送信してもいいですか？
\n\n社外の宛先:\n" + $extern;
if( result != yes ) {
#n = dllfunc("SetCancel", 1);
}
}
|
|