| |
秀まるお様、さっそくどうもありがとうございます。
エラーが出るのは次のマクロです。y.iida氏の「鶴亀メールメアド名前除去マクロve
r 0.02β」をちょっと勝手に変更させて頂いたものと記憶しています。
loaddll "tkinfo.dll";
$From = dllfuncstr("CurrentHeader","From");
$hagiwara = dllfuncstr("AccountFrom", "hagiwara");
$To = dllfuncstr("CurrentHeader","To");
$CC = dllfuncstr("CurrentHeader","CC");
$BCC = dllfuncstr("CurrentHeader","BCC");
if ($From == $hagiwara){goto TO;}
else {
call EmailOnly $From;
$t = dllfuncstr("SetHeader","From",$$return);
}
TO:
if ($To == ""){goto CC;}
else {
call EmailOnly $To;
$t = dllfuncstr("SetHeader","To",$$return);
}
CC:
if ($CC == ""){goto BCC;}
else {
call EmailOnly $CC;
$c = dllfuncstr("SetHeader","CC",$$return);
}
BCC:
if ($BCC == ""){goto END;}
else {
call EmailOnly $BCC;
$b = dllfuncstr("SetHeader","BCC",$$return);
}
END:
#n = dllfunc( "ClearUpdated" );
freedll;
endmacro;
//
EmailOnly:
$$adr = $$1;
##n =dllfunc("CountEmailList", $$adr);
##i = 1;
while( ##i <= ##n ) {
##j = ##i - 1;
$$tmp = dllfuncstr( "GetEmailList", $$adr , ##j );
$$adr_tbl[##i] = "";
$$adr_tbl[##i] = dllfuncstr("SetEmailOnly",$$tmp );
##i = ##i + 1;
}
$$adr1 = "";
##i = 1;
while( ##i <= ##n ) {
if ( ##i != ##n ){
※ $$adr1= $$adr1 + $$adr_tbl[##i] + "\, ";
}
else {
$$adr1= $$adr1 + $$adr_tbl[##i];
}
##i = ##i + 1;
}
return $$adr1;
エラーが出るのは、※印の行で、「\」は二つでないとダメだと言われます。よろし
くお願い申し上げます。
|
|