| |
Toが複数ある場合も対応したい場合は、以下のマクロでお願いします。
-------- 宛名挿入.mac ---------------------------------
loaddll "TKInfo.dll";
if( !result )
endmacro;
disabledraw; // 描画禁止
moveto 0, 0; // 本文先頭に移動
#ToMax = dllfunc("CountCurrentHeader","To"); // Toヘッダ数
#ToCount = 0;
while(#ToCount < #ToMax)
{
//// Toヘッダ分繰り返し
$AddrssList = dllfuncstr("CurrentHeader2","To",#ToCount);
#ListMax = dllfunc("CountEmailList", $AddrssList);
#ListCount = 0;
while(#ListCount < #ListMax)
{
//// アドレス数分繰り返し
$Address = dllfuncstr("GetEmailList", $AddrssList, #ListCount);
$Name = dllfuncstr("FindBook2",$Address);
$EmailAdd = dllfuncstr("SetEmailOnly",$Address);
insert $Name + " 様 " + "(" + $EmailAdd + ")"; // 宛名挿入
insertreturn; // 改行挿入
#ListCount = #ListCount + 1; // 次のアドレス
}
#ToCount = #ToCount + 1; // 次のTo
}
enabledraw; // 描画許可
endmacro;
-------- ここまで ---------------------------------
テンプレートの
$(FindBook2,$(CurrentHeader,To)) 様 ($(SetEmailOnly,$(CurrentHeader,To)))
の部分を
$(ExecMacro,"宛名挿入.mac")$-
に差し替えてみてください。
|
|