| |
To: Cc: Bcc: に特定ドメインを含むかどうか探すサンプルを作りましたが、
これは別に必要無いようですね。
といいつつ、せっかく作ったのでこれも書き込んでしまいます。
loaddll "tkinfo.dll";
call FindRecipientDomain, "@mycompanydomainhogehoge.co.jp";
if( ##return ) {
message "見つかった";
} else {
message "見つからなかった";
}
endmacro;
FindRecipientDomain:
call FindRecipientDomainSub "To", $$1;
if( ##return ) {
return 1;
}
call FindRecipientDomainSub "Cc", $$1;
if( ##return ) {
return 1;
}
call FindRecipientDomainSub "Bcc", $$1;
if( ##return ) {
return 1;
}
return 0;
FindRecipientDomainSub:
##c1 = dllfunc("CountCurrentHeader", $$1);
##i1 = 0;
$$2 = dllfuncstr("ToUpper", $$2);
##domainLen = strlen($$2);
while( ##i1 < ##c1 ) {
$$s = dllfuncstr("CurrentHeader2", $$1, ##i1);
##c2 = dllfunc("CountEmailList", $$s);
##i2 = 0;
while( ##i2 < ##c2 ) {
$$one = dllfuncstr("GetEmailList", $$s, ##i2);
$$one = dllfuncstr("SetEmailOnly", $$one);
$$one = dllfuncstr("ToUpper", $$one);
$$one = rightstr( $$one, ##domainLen );
if( $$one == $$2 ) {
return 1;
}
##i2 = ##i2 + 1;
}
##i1 = ##i1 + 1;
}
return 0;
|
|