| |
昔はたしかにそういうマクロがあったんですが、掲載されていたホームページ
がなくなってるようです。なので突貫工事で今作りました。
以下のようなマクロとなります。
------------------------------------------------------------------
loaddll "tkinfo.dll";
#to_count = dllfunc("CountCurrentHeader", "To");
#cc_count = dllfunc("CountCurrentHeader", "Cc");
#i = 0;
while( #i < #to_count ) {
call SamaChange dllfuncstr("CurrentHeader2", "To", #i);
#n = dllfunc("SetHeader2", "To", $$return, #i );
#i = #i + 1;
}
#i = 0;
while( #i < #cc_count ) {
call SamaChange dllfuncstr("CurrentHeader2", "Cc", #i);
#n = dllfunc("SetHeader2", "Cc", $$return, #i );
#i = #i + 1;
}
endmacro;
SamaChange:
##c = dllfunc("CountEmailList", $$1);
##i = 0;
$$result = "";
while( ##i < ##c ) {
$$one = dllfuncstr("GetEmailList", $$1, ##i);
$$name = dllfuncstr("SetNameOnly", $$one);
$$email = dllfuncstr("SetEmailOnly", $$one);
if( $$email != "" ) {
if( $$name != "" ) {
if( rightstr($$name, 2) != "様" ) {
$$name = $$name + "様";
}
$$one = $$name + " <" + $$email + ">";
} else {
$$one = $$email;
}
if( $$result != "" ) {
$$result = $$result + ", ";
}
$$result = $$result + $$one;
}
##i = ##i + 1;
}
return $$result;
------------------------------------------------------------------
|
|