| |
vafeeさん，L.davinciさん，こんにちは。
》最初の1行目しか差出し人氏名が付いてくれませんでした。
》うまく行くと思ったんですが。
後掲のマクロをつくり，返信用テンプレートに
$(ExecMacro,"TKSetName.mac")
$(QuotedSelectedRootText2)
と書き込んでみてはいかがでしょう。
//----- TKSetName.mac -------------------------------------------//
//アドレス帳から差出人名を補完
$kugiri = "さん，\n"; //好みに合わせて設定
loaddll "TKinfo.dll";
$toall = dllfuncstr( "CurrentHeader", "To" );
while( 1 ) {
#a = strstr( $toall, "," );
if( #a < 0 ) {
$to = $toall;
call MakeName;
break;
}
$to = leftstr( $toall, #a );
$toall = midstr( $toall, #a + 1, strlen( $toall )- #a );
call MakeName;
}
insert $allname;
endmacro;
MakeName:
$email = dllfuncstr( "SetEmailOnly", $to );
$name = dllfuncstr( "FindBook", $email );
if( $name == "" ) $name = dllfuncstr( "SetNameOnly", $to );
$allname = $allname + $name + $kugiri;
return;
//------------------------------------------------------------//
では， (^^)/~
山紫水明
|
|