| |
追伸です。
マクロを少し改善してみました。
１ヘッダ当たりのアドレス数を１００にして複数の To: ヘッダを作るように
してみました。
こちらでは千までのメールはできました。
/--- TKInsertAdrList.mac ---------------------------------------------//
//アドレスリストから To: にアドレスを連続挿入
//リストの形式は１行１アドレスの改行区切り，リストの置き場所は任意
//対象メールを開いた状態で実行，リストの途中からでも実行可
#num = 100;
#ime = imestate;
if( #ime ) imeswitch;
#begin = val( input("開始する行番号", "1") );
if( #ime ) imeswitch;
if( #begin == 0 ) endmacro;
title "データ読み込み中";
#handlel = hidemaruhandle(0);
newfile;
#handle2 = hidemaruhandle(0);
showwindow 0;
disabledraw;
loaddll "TKInfo.dll";
#n = dllfunc("SwitchHeaderView", 0);
gofiletop;
beginsel;
gofileend;
delete;
INSERTFILE;
movetolineno 1, #begin;
#lc = linecount2 - #begin + 1;
#i = 1;
#k = 1;
while( #i < #lc ) {
#j = 1;
while( #j <= #num ) {
#by = y;
golineend2;
$adr[#j] = gettext(0, #by, x, y);
if( #j == 1 ) $to[#k] = $adr[#j];
else $to[#k] = $to[#k] + ", " + $adr[#j];
movetolineno 1, lineno + 1;
#j = #j + 1;
#i = #i + 1;
if( #i >= #lc ) break;
}
#timer = dllfunc("SetAutoPushTimerMilli", 400, "ok");
message str(#num * #k);
#k = #k + 1;
}
setactivehidemaru #handlel;
closehidemaruforced #handle2;
disabledraw;
#k = 1;
$s = dllfuncstr( "SetHeader", "To", $to[#k] );
#k = 2;
while( 1 ) {
if( $to[#k] == "" ) break;
$s = dllfuncstr( "AddHeader", "To", $to[#k] );
#k = #k + 1;
title str(#k * #num) + " / " + str(#lc - 1);
}
enabledraw;
question "宛先を分割するマクロをすぐ実行しますか？";
if( result == yes ) execmacro "TKDivideAdrs.mac";
endmacro;
//-----------------------------------------------------//
では， (^^)/~
山紫水明
SANSHISUIMEI
|
|